Cara Membuat Tanda Bintang Pada Free Pascal

بسم الله الرحمن الرحيم

Contoh untuk menampilkan bintang (*)

bisa dicoba menggunakan free pascal


uses crt ;

var

a,b,c,d : integer ;

begin

b := 1 ;

write ( ‘masukan tinggi segitiga:’ ) ;

readln (a) ;

while b <= a do

begin

for c := 1 to b do

begin

write ( ‘*’ ) ;

end ;

b := b + 1 ;

writeln (”) ;

end ;

writeln (”) ;

d := a ;

while d >= 1 do

begin

for c := d downto 1 do

begin

write ( ‘*’ ) ;

end ;

d := d – 1 ;

writeln (”) ;

end ;

readln

end.

Dikutip dari catatan Reza Saputra

Semoga bermanfaat..^^