Sabtu, 07 Mei 2011
turbo pascal 1.5 - perulangan bersarang 5
program segitigabintang; {program menampilkan karakter bintang menjadi piramyd sebanyak N baris}
uses wincrt;
var
i,j,N :integer;
begin
write('berapa jumlah baris bintang : '); readln(N);
writeln;
for i:=1 to N do
write(' ');
write('*');
writeln;
for i:=N downto 2 do
begin
for j:=i downto 2 do
begin
write(' ');
end;
for j:=i to N do
begin
write('*');
end;
write('*');
for j:=i to N do
begin
write('*');
end;
writeln;
end;
end.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar