Looping Pada Delphi

Beberapa Contoh Program Sederhana Pada Delphi

 Kali ini kita akan pelajari bersama contoh program sederhana while do repeat until :

 

Perulangan While Do dan Repeat Until

Berikut contoh Perulangan While Do dan Repeat Until : 

A. Contoh design form.



B. Komponen yang dibutuhkan.
1. 3(tiga) komponen label (ada di tab standard component pallete).
2. 3(tiga) komponen edit (ada di tab standard component pallete).
3. 1(satu) komponen memo (ada di tab standard component pallete).
4. 2(dua) komponen Radiobutton (ada di tab standard component pallete)

C. Kode Program
1. Program While Do

Double Klik Radiobutton1 atau pilih events onclick pada Objects Inspector,
Tuliskan Kode Program Sebagai berikut :

var
angka_awal,angka_akhir:integer;
begin
memo1.clear;
angka_awal:=strtoint(edit1.Text);
angka_akhir:=strtoint(edit2.Text);
while angka_awal<=angka_akhir do
begin
memo1.Lines.Add(inttostr(angka_awal));
inc(angka_awal);
end;
end;

2. Program For Downto Do

Double Klik Radiobutton2 atau pilih events onclick pada Objects Inspector,
Tuliskan Kode Program Sebagai berikut :

var
angka_awal,angka_akhir:integer;
begin
memo1.clear;
angka_awal:=strtoint(edit1.Text);
angka_akhir:=strtoint(edit2.Text);
repeat
memo1.Lines.Add(inttostr(angka_awal));
inc(angka_awal)
until
angka_awal>angka_akhir;
end;

D. Penjelasan Singkat Program


Memo1.clear digunakan untuk menghapus isi memo1
Inc kependekan dari increment, inc(angka_awal) digunakan untuk menambah
angka_awal dengan angka 1 (satu).

Perulangan While Do, Repeat Until, For To Do dan For DownTo Do akan
menghasilkan nilai yang sama.