1. Program While Do
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
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;
* 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.
Contoh Lain
var
a:Byte;
begin
ListBox1.Clear;
for a:= 1 to 10 do
begin
ListBox1.Items.Add(IntToStr(a));
end;
end;
Contoh 2
Code: (for down)
procedure TForm1.Button4Click(Sender: TObject);
var
i:Byte;
begin
ListBox1.Clear;
for i:= 10 downto 1do
begin
ListBox1.Items.Add(IntToStr(i));
end;
end;
Contoh 3
Code: (while)
procedure TForm1.Button3Click(Sender: TObject);
var j :integer;
begin
memo1.Clear;
j:=1;
while j<=100 do
begin
memo1.Lines.Add(inttostr(j));
j:=j+1;
end;
end;
Contoh 4
Code: (while down)
procedure TForm1.Button3Click(Sender: TObject);
var j :integer;
begin
memo1.Clear;
j:=100;
while j>=1 do
begin
memo1.Lines.Add(inttostr(j));
j:=j-1;
end;
end;