PERULANGAN FOR TO DO
Perulangan For To Do merupakan perulangan yang menggunakan
kendali perulangannya berupa
counter/pencacah. Counter akan menjalankan perulangan
dimulai dari nilai awal yang diberikan sampai
counter mencapai nilai akhirnya. Syarat terjadinya
perulangan adalah nilai awal counter harus lebih kecil
atau sama dengan nilai akhir counter.
Bentuk umum dari perulangan ini adalah :
For counter := nilai awal To Nilai
akhir Do
Begin
Perintah;
Perintah;
End;
Contoh Program yang ditulis dalam event OnClick dari
tombol For To Do
procedure
TForm1.Tbl_ForToDoClick(Sender: TObject);
var
i:integer;
c:char;
begin
Memo1.Clear;
for i:=1 to 10 do
Memo1.Lines.Add(IntToStr(i));
for c:='A' to 'Z' do
Memo1.Lines.Add(c);
end;
PERULANGAN FOR DOWNTO DO
Perulangan ini sama seperti perulangan dengan menggunakan
For To Do tetapi arah isi counternya
berkurang (mundur/turun).
Bentuk umum dari perulangan ini adalah :
For counter := nilaiawal DownTo
Nilaiakhir Do
Begin
Perintah;
Perintah;
End;
Perulangan ini akan berulang selama nilai variabel counter
masih lebih besar atau sama dengan nilai
akhir. Nilai awal suatu counter harus lebih besar atau
sama dengan daripada nilai akhirnya.
Contoh Program yang ditulis dalam event OnClick dari
tombol For To Do
procedure TForm1.Tbl_FormDownToDoClick(Sender:
TObject);
var
i:integer;
c:char;
begin
Memo1.Clear;
for i:=10 downto 1 do
Memo1.Lines.Add(IntToStr(i));
for c:='Z' downto 'A' do
Memo1.Lines.Add(c);
end;
PERULANGAN REPEAT UNTIL
Perulangan ini bekerja sampai kondisi yang diinginkan
tercapai. Perulangan ini bisa digunakan sebagai
perulangan yang menggunakan banyak kondisi keluar (multi
condition loop).
Bentuk umum :
Repeat
Perintah;
Perintah;
Until Kondisi;
Contoh Program
procedure
TForm1.Tbl_RepeatUntilClick(Sender: TObject);
var
i:real;
begin
Memo1.Clear;
i:=0;
repeat
i:=i+0.5;
Memo1.Lines.Add(FloatToStr(i));
until i=10;
end;
Perulangan ini berulang sampai kondisi yang ada setelah
until mempunyai nilai true. Jadi repeat until
berjalan selama kondisi salah sampai kondisi benar.
Pengecekan kondisi berada di bagian bawah yaitu setelah
until sehingga semua program yang memakai
perulangan ini akan melakukan minimal 1 kali proses
perulangan.
PERULANGAN WHILE DO
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.
Bentuk umum dari While Do adalah seperti berikut :
While kondisi do
Begin
Perintah;
Perintah;
End;
Contoh program while do yang ditulis pada event onclick
dari tombol While Do.
procedure
TForm1.Tbl_WhileDoClick(Sender: TObject);
var
i:real;
begin
Memo1.Clear;
i:=0;
while i<10 do
begin
i:=i+0.5;
Memo1.Lines.Add(FloatToStr(i));
end;
end;
PERULANGAN LABEL
Label adalah suatu perintah untuk memandai suatu baris
program. Untuk pindah ke posisi yang ditandai
oleh label, maka digunakan perintah Goto.
Untuk lebih jelasnya lihatlah program berikut yang ditulis
dalam event OnClick dari tombol Label.
procedure
TForm1.Tbl_Label5Click(Sender: TObject);
label
A;
var
i:integer;
begin
Memo1.Clear;
i:=0;
A:
i:=i+1;
Memo1.Lines.Add(IntToStr(i));
if i<10 then
Goto A;
End;
PERULANGAN TERSARANG (PERULANGAN DALAM PERULANGAN)
Perulangan tersarang (nested loop) adalah suatu perulangan
dimana di dalam perulangan tersebut ada
perulangan lain. Perulangan yang di ada di bagian
terdalam, maka akan dikerjakan dulu sampai selesai
baru mengerjakan perulangan yang ada diluarnya.
Nested loop bisa merupakan kombinasi antara For To Do, For
DownTo Do, Repeat Until, While Do.
Contoh Program
procedure
TForm1.Tbl_TersarangClick(Sender: TObject);
var
i,j:integer;
begin
Memo1.Clear;
for i:=1 to 5 do
begin
j:=0;
while j<5 do
begin
j:=j+1;
Memo1.Lines.Add(IntToStr(i)+' X
'+IntToStr(j)
+' = '+IntToStr(i*j));
end;
Memo1.Lines.Add('-------------------');
end;
end;
PERULANGAN BANYAK KONDISI
Perulangan dengan banyak kondisi adalah suatu perulangan
dimana berjalannya suatu perulangan tidak
hanya berdasarkan suatu kondisi saja tetapi bisa lebih
dari satu kondisi. Operator yang bisa digunakan
biasanya seperti And, Or, Not dan lain‐lain.
Contoh Program :
procedure
TForm1.Tbl_BanyakKondisiClick(Sender: TObject);
var
i:integer;
total:integer;
begin
Memo1.Clear;
total:=0;
i:=0;
repeat
i:=i+1;
Total:=Total+i;
Memo1.Lines.Add('Isi I =
'+IntToStr(i));
Memo1.Lines.Add('Isi Total =
'+IntToStr(Total));
until (total>150)or(i>25);
end;
PERINTAH CONTINUE
Perintah continue merupakan suatu mekanisme agar alur
program melanjutkan perulangan ke iterasi
berikutnya dengan tidak mengeksekusi perintah yang ada di
bawahnya. Perintah ini berlaku untuk
perulangan for, while do atau repeat until.
Contoh Program :
procedure
TForm1.Tbl_ContinueClick(Sender: TObject);
var
i:integer;
begin
Memo1.Clear;
for i:=1 to 20 do
begin
if (i>5)and(i<=10) then
continue;
memo1.Lines.Add(inttostr(i));
end;
end;
Perintah di atas akan melakukan perulangan dari 1 sampai
20 kecuali 6 s/d 10.
PERINTAH BREAK
Perintah break digunakan untuk menghentikan perulangan.
Break berlaku pada perulangan for, while
do, repeat until. Perintah di bawah break tidak akan
dieksekusi.
Contoh Program :
procedure
TForm1.Tbl_BreakClick(Sender: TObject);
var
i:integer;
begin
Memo1.lines.Clear;
for i:=1 to 100 do
begin
if i>50 then
Break;
Memo1.Lines.add(inttostr(i));
end;
end;
Perintah di atas akan melakukan perulangan dari 1 sampai
100 tetapi akan berhenti ketika counter I
bernilai 50.
