Penerapan Fungsi Looping Dengan Perintah While

Looping pada Pascal menggunakan perintah While..Do;

Perintah while..do digunakan untuk memerintah komputer melakukan pengulangan selama kondisi/statement yang ditentukan programmer terpenuhi. Atau komputer akan berhenti melakukan pengulangan jika kondisi/statement yang diperlukan tidak terpenuhi. Masih belum pahamkah..?

 Baiklah untuk lebih menambah pengetahuan tentang fungsi dan penerapan perintah while.do pada Pascal, mari kita cermati contoh listing program berikut; 

Coding Nya:

program ulang_dgn_while;
 uses crt; 
var n:integer;
 i:integer; 
begin clrscr; write('Nilai N=');
 readln(n); i:=1
; writeln('Print i dengan While:'); 
while i<=n do begin writeln (i);
 i:=i+1; 
end; 
readln; end.

Pada contoh program tersebut, kondisi/statement yang diinginkan adalah jika i kurang atau sama dengan nilai n(nilai i adalah "1"). Maka komputer tetap melakukan pengulangan cetak nilai i sebanyak n . Jadi jika kita memasukan nilai n adalah angka 5 maka program akan mengeluarkan output seperti gambar berikut;