Fungsi Looping Pada Pascal (lanjutan..)

Pada kesempatan ini saya melanjutkan share tentang "Cara Penerapan Fungsi Looping Pada Pascal".Looping atau Pengulangan digunakan untuk menjalankan satu atau beberapa pernyataan sebanyak beberapa kali. Dengan kata lain, pengulangan memungkinkan kita untuk menjalankan beberapa pernyataan hanya dengan menuliskan pernyataan tersebut satu kali saja.

Sesuai dengan janji saya pada posting sebelumnya pada kesempatan ini berbagi pengetahuan tentang:

Looping Pascal dengan statement Repeat..Until

Statement Repeat..until fungsinya perintah-perintah yang ada di dalam badan pengulangan diulangi sampai kondisi berhenti terpenuhi. Selain itu kondisi akan diuji
pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu
kali walaupun kondisi yang ada masih FALSE.

Untuk lebih memahami bagaimana Fungsi Looping Pada Turbo Pascal dengan statement Repeat..until, coba perhatikan dan teliti contoh listing program berikut;

>

uses crt;
var i: integer;
a:string[30];
begin
clrscr;
writeln('_______________________');
write('tulis kata='); readln(a);
begin
i:=0;
repeat
inc(i);
writeln(a);
until i=7;
end;
readln;
end.

Pada contoh diatas kata yang dimasukan akan ditulis sampai 7(tujuh) kali. Alurnya adalah sebagai berikut;

• pengenalan dan pembacaan variable yang digunakan

var i: integer; a:string[30];

• pembuatan garis

writeln('_______________________');

• Input kata yang akan diulang
write('tulis kata='); readln(a);
• Statement "Looping"

begin i:=0; repeat inc(i); writeln(a); until i=7; end;


Statement di atas memberikan perintah pada program untuk melakukan Looping kata yang dimasukan sampai 7(tujuh) kali. Jika sudah selesai memcetak kata sampai 7(tujuh) kali, maka Looping akan berhenti.

Demikian share saya pada saat ini tentang "Fungsi Looping Pada Pascal". Jika ada pertanyaan atau ingin menambahkan silakan tulis pada kolom komentar.

fendri-informatika|Fungsi Looping Pada Pascal|Looping|Looping Pada Turbo Pascal|Repeat..until|statement|