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.


Download contoh program