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
****
***
**
*