Showing posts with label Materi Kuliah. Show all posts
Showing posts with label Materi Kuliah. Show all posts
Wednesday, January 11, 2012
Monday, January 2, 2012
CONTOH PASCAL FOR TO DO BINTANG PIRAMIDA

Berikut ini adalah contoh perulangan penerapan statemen For.. Do.. dengan bentuk bintang yang tersusun piramida
u
ses 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.