Perulangan dengan WHILE DO loop pada Pascal

Pada kesempatan kali ini kita tetap membahas tentang perulangan pada Pascal. Setelah sebelumnya kita memakai FOR loop, sekarang kita akan coba menggunakan WHILE DO loop pada Bahasa Pascal.

Pengertian WHILE DO loop pada Pascal

WHILE DO loop merupakan perulangan pada Pascal yang menggunakan kondisi berupa ekspresi boolean sebagai penanda perulangannya. Perulangan dengan WHILE DO loop ini tidak akan berhenti selama kondisinya masih bernilai true.

Jika FOR loop sebelumnya kita analogikan sebagai minum obat yang sudah pasti 3 kali sehari, pada WHILE DO loop ini bisa kita analogikan sebagai proses mengaduk adonan roti.

Saat mengaduk adonan roti tidak mungkin kan kita menggunakan bilangan pasti, seperti

Aduk adonan roti sebanyak 50 kali

Siapa juga yang mau ngaduk adonan sambil ngitung hehe... sebagai gantinya, biasanya kita jumpai perintah sebagi berikut

Aduk adonan roti sampai mengembang

Alih alih menggunakan bilangan seperti 50. Pada perintah tersebut kita menggunakan sebuah kondisi yaitu "sampai roti mengembang".

Artinya, selama adonan roti belum mengembang maka pengadukan akan terus berjalan. Namun ketika adonan sudah mengembang maka pengadukan selesai.

Kurang lebih jika diterjemahkan kedalam bahasa Pascal akan seperti ini

// dalam bahasa pascal
while (adonan_belum_mengembang) do
  aduk_adonan;

// atau dalam bahasa indonseia
selama (adonan_belum_mengembang) lakukan
  aduk_adonan;

Yah kurang lebih seperti itu penggunaan while pada Pascal. Mungkin jika diterjemahkan kedalam bahasa Indonesia lebih mudah dimengerti hehe....

Format Penulisan WHILE DO loop pada Pascal

Pada WHILE DO loop, komponen paling penting adalah sebuah kondisi yang berupa ekspresi boolean. Selanjutnya adalah statement perintah yang akan kita jalankan. Berikut merupakan format penulisan WHILE DO loop

while ({kondisi}) do
begin
  {perintah yang akan dijalankan}
end;

Oke supaya lebih paham, kita lanjut dengan membuat program sederhana menggunakan WHILE DO loop.

Contoh Penggunaan WHILE DO loop pada Pascal

Pada contoh kali ini kita akan coba mengeluarkan output bilangan antara 1 sampai 100 dengan perulangan WHILE DO. Oke coba kalian ketikkan kode berikut ini.

program WhileDoLoop;
uses crt;
var
  i: integer;
begin
  clrscr;
  i := 1;
  while (i <= 100) do // selama i kurang dari atau sama dengan 100
  begin
    writeln(i); // output nilai variable i
    i := i + 1; // menambah nilai i sebanyak 1
  end;
  readln;
end.

Kalau dijalankan maka outputnya akan keluar bilangan mulai dari 1 sampai 100. Kurang lebih seperti ini

1
2
.
.
99
100

Output ini dihasilkan karena pada WHILE DO loop kita menggunakan kondisi yaitu i <= 100, selanjutnya kita menjalankan perintah writeln, dan yang terakhir adalah menambah nilai i sebanyak 1 (i := i + 1)

menambahkan nilai variable i ini sangat penting, karena jika tidak ada maka WHILE DO loop akan berjalan selamanya, dan output yang dikeluarkan hanya angka 1 saja. Hal ini juga bisa didapat ketika kodisi pada while kita isikan nilai true.

while (true) do
  ....

Kode tersebut akan berjalan selamanya atau biasa disebut infinite looping

Invinite looping sangat berguna dalam pemrograman game, karena dalam game terdapat banyak perintah kompleks yang harus terus berjalan

Seperti biasa untuk eksperimen kalian bisa coba mengganti variable dan bermain dengan kondisinya. Bebas... selamat mencoba hehe..

Penutup

Cukup sekian untuk tutorial kali ini, semoga bermanfaat pada tutorial selanjutnya kita masih tetap akan membahas seputar looping, jadi jangan bosen ya hehe... Selanjutnya kita akan membahas tentang repeat until loop pada Pascal.