Pengulangan While Pada Pascal #32

andrypein.net : Setelah postingan kemarin mengenai pengulangan for, sekarang dilanjut tentang pengulangan while.

Berbeda dengan pengulangan for, pada konstruksi pengulangan while terdapat suatu kondisi yang harus diperiksa terlebih dahulu.

Apabila kondisi bernilai benar (true) maka statemen yang terdapat dalam blok pengulangan akan dieksekusi,sebaliknya jika false maka pengulangan dihentikan.

Sama seperti pengulangan for,dalam while pun diperlukan sebuah variable indeks pengulangan, juga variable indeks pengulangan tersebut harus diinisialisasikan terlebih dahulu juga sebagai kondisi yang harus diperiksa.

bentuk umumnya seperti listing dibawah ini :

{apabila hanya satu kondisi}
while (kondisi) do
  statemen;

{apabila terdapat lebih dari satu kondisi}
while (kondisi) do begin
  statemen1;
  statemen2;
  ...
end;

untuk contoh programnya bisa dilihat dari contoh berikut

program statemenwhile1;
uses wincrt;
var i:integer;
begin
{inisialisasi indeks dengan nilai 1}
i:=1;

{melakukan pengulangan}
while (i <= 5) do begin
  writeln('Aing Ganteng Banget');
  i:=i+1; {menaikan nilai i sebesar 1}
end;
end.

Apabila program dijalankan akan menghasilkan teks “Aing Ganteng Banget‘ sebanyak 5 kali.

Penjelasannya,mula2 variabel i bernilai 1,selanjutnya program akan memeriksa apakah i lebih kecil atau sama dengan 5,atau tidak.

Karena 1 lebih kecil dari 5 maka blok pengulangan akan dieksekusi,kemudian i akan dinaikan satu sehingga i bernilai 2,lalu program akan mengecek kembali,karena 2 lebih kecil dari 5 maka statemen akan dieksekusi kedua kalinya,begitu seterusnya,dan pada saat i bernila 6 maka pengulangan akan dihentikan.

Insha Allah lieur  lihat juga contoh program yang satu ini.

program statemenwhile2;
uses wincrt;
var i:integer;
begin
{inisialisasi indeks dengan nilai 1}
i:=1;
{melakukan pengulangan dengan indeks awal = 1}
while (i <= 20) do begin
  write(i, ' ');
  i:=i+2; {menaikan nilai i sebesar 1}
end;
end.

hasil dari program tersebut akan mencetak angka2 ganjil dari 1 sampai 20, silahkan dicoba.

AFK*