[Turbo Pascal] Fungsi Looping Pada Turbo Pascal

Posted on Wednesday, July 13, 2011 by fendri

Pada kesempatan kali ini saya sharing tentang "Fungsi Looping Pada Pascal.

Apa Itu Looping

Pada Pemograman looping diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali dengan menggunakan kode atau perintah tertentu.

Tanpa menggunakan looping listing program yang kita tulis bisa jadi panjang dan logika pemograman jadi agak susah.

Selanjutnya bagaimana cara penerapan fungsi looping pada pascal?

Cara Penerapan Fungsi Looping Pada Pascal

Looping pad pascal menggunakan beberapa perintah seperti;

• for...to.. do;
For biasa digunakan untuk perulangan positif dengan penghitung (counter) dari kecil kebesar atau dengan kata lain pertambahannya positif. Bentuk Umum ; For variabel := nilai awal To nilai akhir Do Statement; dan For variabel := nilai awal DownTo nilai akhir Do Statement;
• while..do;
• dan repeat until

Pada kesempatan kali ini contoh listing yang saya berikan adalah penerapan fungsi looping dengan perintah "for". Pda postingan berikutnya saya akan membahas contoh penerapan fungsi loopng pada pascal dengan perintah (while..do dan repeat..until)

Berikut contoh list programnya;

uses crt;
var i: integer;
a:string[30];
begin
clrscr;
write('kata='); readln(a);
for i:=1 to 5 do
begin
writeln(a);
end;
readln;
end.

Contoh listing program diatas adalah pengulangan kata yang diinput sebanyak 5 kali. Logika programnya seperti ini;

• deklarasikan variable
• input kata
• cetak kata yang diinput
• lakukan pengulangan sampai 5 kali
• selesai

Related Articel:

Posted in: Turbo Pascal