Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
PascalPemrograman

Pengulangan While Pada Pascal #32

Harddisk itu memiliki piringan di dalamnya, teu bohong aing mah

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*

 

Related Articles

One Comment

  1. Mas Andry ganteng banget, gmana untuk bikin pengecualiannya mas?Pake database.
    Misalnya ketika menjalankan while ternyata g' ada di database.
    Trus muncul tulisan "Mas Andry ganteng banget lagi g' ada di database"…
    Mohon penjelasannya mas…

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button