huruf m
program huruf_m;
uses wincrt;
var
i,j: integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
if(j=1) or (j=5) or (i=2) and (j=2) or (i=3) and (j=3) or (i=2) and (j=4)
then write ('*')
else
write(' ');
writeln;
end;
end.
end.
ANGKA 6
program angka_6;
uses wincrt;
var
i,j: integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
if(j=1) or (i=3) or (i=5) or (i=4) and (j=5)
then write ('*')
else
write(' ');
writeln;
end;
end.
end.
Tidak ada komentar:
Posting Komentar