02 April 2012

Membuat Bintang Berbentuk Piramid Di Pascal

Postingan kali ini RSN  akan  memberi tau cara Membuat Bintang Berbentuk Piramid Di Pascal mungkin semuanya uda tau tapi tidak apa-apalah hehe.
Dibawah ini scrip dan Outputnya yang bisa langsung dicoba..:
uses wincrt;
var
a,b,c,d:integer;
begin
write('Masukkan Jumlah Baris Bintang:');
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.

Dan dibawah ini adalah Output dari scrip yang di atas..:



semoga bermanfaat.

sumber : 

0 komentar:

Post a Comment

Terima kasih sudah memberi komentar,
komentar anda sangat berguna untuk menjadikan blog ane lebih baik lagi..
jangan lupa berkunjung kembali..