PERULANGAN/ LOOPING
Perulangan
(looping) merupakan kontrol program
yang digunakan untuk suatu proses yang akan berjalan terus menerus. Kondisi
perulangan merupakan proses yang berjalan secara terus menerus, dan akan
berhenti apabila menemukan kondisi yang sudah ditentukan sebagai batas
akhirnya. Dalam delphi terdapat 4 (empat) jenis perulangan.
a. Perulangan
For – To – Do
Perulangan dengan statement for adalah perulangan yang digunakan untuk melakukan
suatu proses dalam sebuah blok program. Proses perulangan For-To-Do dimulai
dengan nilai terkecil ke besar.
Bentuk Umum :
For <variabel> := <nilai_awal> To <nilai_akhir> Do [statement]
*** Catatan
Semua variabel yang berhubungan dengan perulangan harus mempunyai tipe data yang
sama.
Contoh :
Procedure Tform1.Button1Click(Sender:Tobject);
Var
i:integer;
begin
for i := 1 to 5 do
edit1.SelText :=inttostr(i);
end;
Penerapan
:
1.
Lakukan desain form :
2. Lakukan penulisan kode pada tombol “Cek”
Catatan :
Pada penggalan program di atas terlihat bahwa terdapat sebuah variabel “ i ”. variabel tersebut
digunakan sebagai variabel untuk menampung jumlah data looping.
Penggalan program di atasi tersebut merupakan blok program looping. Dimana looping/perulangan
akan dilakukan sebanyak 5 (lima) kali ( dari 1 ke 5 ), dan setiap terjadi perulangan maka program
akan selalu mengeksekusi baris program yang terdapat di bawah baris for to do sampai ketemu “ ;
“. Dalam hal ini yang selalu dieksekusi setiap terjadi looping (sebanyak 5 kali) adalah :
(* Perhatikan disini terdapat sedikit perbedaan dengan contoh yang selalu kita gunakan, biasanya
untuk edit, kita gunakan “text”, namun pada contoh ini kita gunakan “SelText”. Hal tersebut
berfungsi untuk mengantrikan setiap data pada text edit.
b. Perulangan For – DownTo – Do
Perulangan ini memiliki blok yang hampir sama dengan For-To-Do, namun pada jenis perulangan ini akan melakukan suatu proses perulangan dari nilai terbesar hingga terkecil.
Bentuk Umum :
For <variabel> := <nilai_awal> DownTo <nilai_akhir> Do [statement/pernyataan]
Contoh :
Procedure Tform1.Button1Click(Sender:Tobject);
Var
i:integer;
begin
for i := 10DownTO5 do
edit1.SelText :=inttostr(i);
end;
c. Perulangan While Do
Perulangan While-Do merupakan pernyataan/statement perulangan yang akan terus melakukan suatu proses perulangan/looping selama kondisi/syarat yang diberikan memiliki nilai benar (true).
Bentuk Umum :
While <kondisi> Do [pernyataan]
Contoh :
Procedure Tform1.Button1Click(Sender:Tobject);
Var
i:integer;
begin
i:=0;
while i < 10 do
begin
edit1.SelText :=inttostr(i);
i:=i+1;
end;
end;
d. Perulangan Repeat Until
Perulangan repeat until merupakan perulangan yang digunakan untuk melakukan
perulangan terhadap suatu kondisi hingga (until) kondisi bernilai salah.
Bentuk Umum :
Repeat [pernyataan] Until <kondisi>
Contoh :
Procedure Tform1.Button1Click(Sender:Tobject);
Var
i:integer;
begin
i:=1;
repeat
i:=i+2;
edit1.SelText :=inttostr(i);
until i=15;
end;
Selamat Mencoba
Tidak ada komentar:
Posting Komentar
Silahkan berkomentar dengan baik dan sopan. jika ada pertanyaan silahkan hubungi kontak.