Materi X TKJ : Statemen Perulangan While-Do dan Repeat

Statemen While-Do

Statemen While-Do digunakan untuk melakukan proses perulangan suatu statemen atau blok statemen terus-menerus selama kondisi ungkapan logika pada While masih bernilai logika benar. Pada pengulangan while terdapat suatu kondisi yang harus diperiksa terlebih dahulu. Apabila kondisi yang didefinisikan bernilai benar (true) maka statemen yang terdapat dalam blok pengulangan pun akan dieksekusi. Sebaliknya apabila kondisi salah (false), maka program tidak akan pernah memasuki blok pengulangan. Dengan kata lain, statemen dalam blok pengulangan akan diabaikan.

Bentuk umum pendeklarasian:

{apabila hanya terdapat satu statemen}

while (kondisi) do

     statemen;

{apabila terdapat lebih dari satu statemen}

while (kondisi) do begin

     statemen1;

     statemen2;

     ….

     end;

Contoh1: program yang menggunakan pengulangan while :

program statemenwhile1;

uses crt;

var

   i:integer;   {variabel untuk indeks pengulangan}

begin

     clrscr;

     {inisialisasi nilai indeks dengan nilai 1}

     i := 1;

     {melakukan pengulangan dengan indeks awal = 1}

     while (i <=5) do begin

           writeln('Bahasa Pemograman Pascal');

           i := i+1;       {menaikkan nilai i sebesar 1}

     end;

end.

Bila program dijalankan maka didapatkan output :
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal

Penjelasan:

Apabila program tersebut dijalankan maka akan tampil teks ‘Bahasa Pemograman Pascal’ sebanyak 5 kali. Mula-mula variabel i bernilai 1. selanjutnya program akan memeriksa apakah nilai i lebih kecil atau sama dengan 5, atau tidak. Oleh karena 1 lebih kecil dari 5, maka kondisi diatas terpenuhi atau bernilai true sehingga statemen didalam blok pengulangan akan dieksekusi untuk pertama kali. Selanjutnya nilai i akan dinaikkan satu sehingga bernilai 2. program akan kembali melakukan pengecekan terhadap nilai i. Oleh karena 2 juga masih lebih kecil dari 5, maka statemen akan dieksekusi untuk kedua kalinya. Begitu seterusnya sampai variabel i bernilai 6. Pada saat nilai i sama dengan 6, maka program akan dihentikan. Hal ini disebabkan karena 6 tidak lebih kecil dari 5 atau sama dengan 5, sehingga kondisi sudah tidak terpenuhi lagi atau telah bernilai false.

Statemen repeat

Blok pengulangan jenis ini sebenarnya mirip dengan blok pengulangan while, perbedaannya hanya pada jenis ini pengulangan akan terus dilakukan apabila kondisi yang didefinisikan masih bernilai false. Jadi dengan kata lain pengulangan hanya akan dihentikan apabila kondisi bernilai true. Dalam pengulangan ini kondisi akan dituliskan di akhir blok. Hal ini tentu menyebabkan pada blok pengulangan jenis ini statemen minimal akan dieksekusi satu kali, walaupun ternyata kondisi yang didefinisikan terpenuhi atau bernilai true. Pengulangan jenis ini pada umumnya digunakan untuk kasus-kasus pengulangan yang tidak bergantung pada kondisi awal.

Bentuk umum pendeklarasiannya :

program statemenrepeat1;

uses crt;

var

   i:integer;

begin

     clrscr;

     i:=1;

     repeat

           writeln('Bahasa Pemograman Pascal');

           i:=i+1;

     until (i>5);

     readln;

end.

Bila program dijalankan maka didapatkan output :
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal