Program Pencetak Bintang dengan Pascall (versi 1)

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





Program Bintang_Versi_1 ;
uses wincrt ;
var
x, y, z,i : integer ;
begin
write ('masukkan jumlah tinggi : ') ;     readln (z) ;   
     for y:= 1 to z do
         begin
         for  x:= z-1 downto y do
              write (' ');
         for i:= 1 to y do
              write ('*');
              writeln;
         end;
end.


Hasilnya
--------------------


masukkan jumlah tinggi : 4
   *
  **
 ***
****