Penggunaan Perulangan For Lazarus Free Pascal

Penggunaan Perulangan For pada Lazarus Free Pascal ada dua jenis, yaitu perulangan dari kecil ke besar dan dari besar ke kecil. Tutorial kali ini merupakan kelanjutan dari tutorial Jenis Perulangan Lazarus Free Pascal kali ini akan dijelaskan lebih mendetail tentang penggunaan perulangan for. Pada perulangan for nilai awal dan nilai akhir ditentukan dengan menggunakan suatu variabel kontrol yang nilainya dibatasi dalam suatu range tertentu.

1. FOR ... TO ... DO
Perulangan for to do adalah perulangan dari nilai kecil ke besar.

Syntax:
FOR (variabel_kontrol) := (nilai_awal) TO (nilai_akhir) DO
Begin
...(isi_perulangan);
End;

2. FOR ... DOWNTO ... DO
Perulangan for downto do adalah perulangan dari nilai besar ke kecil.

Syntax:
FOR (variabel_kontrol) := (nilai_awal) DOWNTO (nilai_akhir) DO
Begin
...(isi_perulangan);
End;

CONTOH PENGGUNAAN
Buatlah proyek aplikasi baru dan dalam Form tambahkan komponen edit dan button sehingga nanti akan terdapat 1 form dengan nama Form1, 1 edit dengan nama Edit1 dan 1 button dengan nama Button 1. Buat event OnClick pada Button1:

1. Untuk perulangan FOR ... TO ... DO pernyataannya seperti ini:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 1 to 5 do
edit1.SelText := inttostr(i);
end;

Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit1 dengan hasil 12345, seperti gambar di bawah ini.



2. Untuk perulangan FOR ... DOWNTO ... DO pernyataannya seperti ini:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 5 downto 1 do
edit1.SelText := inttostr(i);
end;

Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit1 dengan hasil 54321, seperti gambar di bawah ini.



Perbedaan antara TO dan DOWNTO terletak pada nilai awal dan nilai akhir. Pada TO nilai awal lebih kecil dari nilai akhir, sedangkan pada DOWNTO nilai awal lebih besar dari nilai akhir. Demikian tutorial Penggunaan Perulangan For Lazarus Free Pascal, sampai jumpa di tutorial perulangan yang lain.