Materi Perulangan Pada Pemrograman Science (Delphi)

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