program Piramida_bintang;
uses wincrt;
var c,a,b,n : integer;
begin
write ('masukkan angka penunjuk jumlah bintang terakir : ');readln(n);
writeln;
if n mod 2 = 0 then
for a := 1 to (n div 2) do begin
for b := 1 to (n div 2)-a do
write (' ');
for c := 1 to (a*2) do
write ('*');
writeln;
end
else
for a := 1 to (n div 2)+1 do begin
for b := 1 to (n div 2)+(1-a) do
write (' ');
for c := 1 to (a*2)-1 do
write ('*');
writeln;
end;
end.
skip to main |
skip to sidebar
Jumat, 19 November 2010
Langganan:
Posting Komentar (Atom)
Alamat laen
jam
Blog Archive
About Me
- Dunia Web saya
- Nama Saya Teguh, saya beralamatkan di sidoarjo dari lahir sampai sekarang. saya lebih suka musik dari pada nonton tv..
Diberdayakan oleh Blogger.
1 komentar:
Alhamdulillah..... Tugasku selesai juga :-)
Posting Komentar