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;
4. Label
Label adalah suatu perintah sebagai penanda baris program, untuk berpindah ke posisi yang mempunyai perintah label tersebut.
procedure TForm1.Button6Click(Sender: TObject);
label
A;
var i:integer;
begin
listbox1.Clear;
i:=0;
A:
i:=i+1;
listbox1.Items.Add(IntToStr(i));
if i<10 then
Goto A;
end;
5. Perulangan Tersarang (Perulangan dalam perulangan)
Perulangan tersarang adalah suatu perulangan dimana didalam perulangan tersebut ada perulangan lain. Perulangan dibagian dalam akan dikerjakan dahulu sampai selesai kemudian mengerjakan perulangan dibagian luar.
Perulangan tersarang dapat merupakan kombinasi dari perulangan for to do, for down to, while do dan repeat until.
procedure TForm1.Button7Click(Sender: TObject);
var i,j : integer;
c : char;
begin
listbox1.Clear;
for i:=1 to 5 do
begin
j:=0;
while j <> 5 do
begin
j:=j+1;
listbox1.Items.Add('Data ke = '+ inttostr(i) + ' , ' + inttostr(j));
end;
end;
A.
0 komentar:
Posting Komentar