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 :

form disign


2. Lakukan penulisan kode pada tombol “Cek”

kode program

Catatan :
Pada penggalan program di atas terlihat bahwa terdapat sebuah variabel “ i ”. variabel tersebut
digunakan sebagai variabel untuk menampung jumlah data looping.

Bentuk Perulangan


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 : 

Cetak sebanyak i

(* 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.

 

Most Reading

Arsip