04 Februari 2011

Program Pencetak Bintang dengan Pascal (Versi 2)

Pada program ini, user akan menginputkan tinggi bintang, kemudian hasilnya akan keluar berdasarkan tinggi bintang tersebut.



Program Bintang_Versi_2 ;
uses wincrt ;
var
x, y, z : integer ;
begin
write ('masukkan jumlah tinggi bintang : ') ;     read (z) ;
     for y:= z downto 1 do
         begin
              for  x:= y downto 1 do
              write ('*');
              writeln;
         end;
end.


Hasilnya
--------------------
masukkan jumlah tinggi bintang : 4
****
***
**
*


Share on Facebook
Share on Twitter
Share on Google+

Related : Program Pencetak Bintang dengan Pascal (Versi 2)

0 Komentar:

Posting Komentar

Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^