Algoritma dan Pemrograman

X.2    Dasar Teori

1.    Perulangan For

a.      Perulangan For To Do

Penggunaan bentuk for  mengikuti pola seperti berikut :

For counter:=nilai_awal To nilai_akhir Do

Begin

      Perintah1;

      Perintah2;

      .........

End;

Perulangan ini berjalan dengan menggunakan variabel counter  yang akan bertambah secara otomatis. Perulangan selesai jika telah mencapai nilai akhir

Buatlah rancangan Form seperti berikut :

Tuliskan kode program berikut pada tombol For To Do untuk event OnClick

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

  c : char;

begin

listbox1.Clear;

for i := 1 to 10 do

  listbox1.Items.Add('Angka ke = '+ inttostr(i));

for c:= 'A' to 'Z' do

  listbox1.Items.Add(c);

end;

Bentuk perulangan pada contoh diatas adalah For To Do maka arah counter akan bertambah/naik ke atas.

b.    Perulangan For Downto Do

Perulangan ini sama dengan For To Do, namun arah counternya sebaliknya yaitu turun kebawah (mundur/turun)

Ketikkan contoh program berikut pada tombol For Downto Do pada event OnClick

procedure TForm1.Button2Click(Sender: TObject);

var i : integer;

  c : char;

begin

listbox1.Clear;

for i := 10 downto 1 do

  listbox1.Items.Add('Angka ke = '+ inttostr(i));

for c:= 'Z' downto 'A' do

  listbox1.Items.Add(c);

end;

2.      Perulangan Repeat

Perulangan ini bekerja sampai kondisi yang diinginkan tercapai. Bentuk perulangan ini mempunyai pola sebagai berikut :

Repeat

      Perintah1;

      Perintah2;

      ....

Until Kondisi

Ketikkan kode berikut pada event OnClick untuk tombol Repeat Until

procedure TForm1.Button4Click(Sender: TObject);

var i : integer;

begin

i:=0;

listbox1.Clear;

repeat

  i:=i+1;

  listbox1.Items.Add(inttostr(i));

until i=10

end;

Perulangan repeat akan dilakukan sampai kondisi Until bernilai benar. Jadi prinsipnya perulangan dilakukan selama kondisi bernilai salah dan akan berhenti apabila kondisi bernilai benar. Setiap program yang memakai perulangan repeat until minimal akan melakukan perulangan satu kali.

3.      Perulangan While

Perulangan ini mempunyai bentuk :

While kondisi do

      Perintah1

      Perintah2

      ....

End;

Perulangan ini mirip dengan perulangan Repeat Until, tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.

Ketikkan kode program berikut pada event OnClick pada tombol While Do

procedure TForm1.Button5Click(Sender: TObject);

var i : integer;

begin

listbox1.Clear;

i:=0;

While i<10 do

  begin

  i:=i+1;

  listbox1.Items.Add(inttostr(i));

  end;

end;