Fungsi Looping Turbo Pascal (lanjutan..)

Selamat malam sobat netter, menyambung postingan saya sebelumnya tentang "Fungsi Looping Pada Pascal".

Pada kesempatan ini saya melanjutkan share tentang "Cara Penerapan Fungsi Looping Pada Pascal".

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;

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;

Bagaimana sobat netter, sudah mulai paham kan..

Sekian dulu share pengalaman saya dalam belajar tentang "Penerapan Fungsi Looping Dengan Perintah While". Pada kesempatan berikutnya, saya akan share tentang "Penerapan Fungsi Looping Dengan Perintah Repeat..Until".

wasalam

Fendri-informatika|Looping Pada Pascal|Looping