STATEMENT PENGULANGAN (BAG 2)

Kemarin pengulangan for,sekarang pengulangan denganwhile,,tanpa lama2 kita langsung saja klo begitu :$ :D
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 kaya gene :

{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('Arppelowgaz');
  i:=i+1; {menaikan nilai i sebesar 1}
end;
end.

apabila program dijalankan akan menghasilkan teks "Arpellowgaz' 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. :D Mudeng ga loh :D :D 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,try it beybeh :$