CONTOH PASCAL FOR TO DO BINTANG PIRAMIDA

Berikut ini adalah contoh perulangan penerapan statemen For.. Do.. dengan bentuk bintang yang tersusun piramida

uses crt;
var
a,b,c,d:integer;
begin
write('masukkan jumlah baris bintang yang akan ditampilkan:');readln(a);
for b:= 1 to a do
begin
for c:= a downto b do
write(' ');
for d:= 1 to b+b-1 do
write('*');
writeln;
end;

readln;

end.