Minggu, April 26, 2009

Pengulangan FOR



contoh :

var

a : integer ;

begin
for a := 1 to 5
writeln ( 'halo' )
end.

untuk memberikan no. urut menaik pada
writeln ( 'halo' ) ubah menjadi writeln ( a,'.halo' )
untuk memberikan no. urut menurun ubah for a := 1 to 5 menjadi for 5 downto 1





Tidak ada komentar:

Posting Komentar