screenshot output program
Selasa, 31 Januari 2012
Program Mencetak Ketupat
Program ketupat;
uses wincrt;
var
a,b,c,d:integer;
lagi : char;
begin
lagi:='y';
repeat
clrscr;
writeln('------------------------------');
writeln(' program mencetak ketupat ');
writeln('------------------------------');
writeln;
write(' Masukkan diagonal ketupat : ');readln(a);
for c:=1 to a do
begin
for d:=1 to a-c do
begin
write(' ');
end;
for b:=1 to c do
begin
write('*',' ');
end;
writeln('');
end;
if (c=a) then
begin
for c:=a-1 downto 1 do
begin
for d:=1 to a-c do
begin
write(' ');
end;
for b:=1 to c do
begin
write('*',' ');
end;
writeln('');
end;
end;
writeln;
write('Ulangi ? (Y/T) : ');readln(lagi);
until (lagi='t')or(lagi='T');
donewincrt;
end.
Langganan:
Posting Komentar (Atom)
Welcome Guys
About Me
- Nasrum Sahab
- Nama : Nasrum Sahab Alamat : Dusun Balonggatel, Desa Karangwedoro, Kecamatan Turi Kabupaten Lamongan, Provinsi Jawa Timur, Negara Indonesia
0 komentar:
Posting Komentar