[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:

Turbo Pascal

• [Turbo Pascal] Pengurutan Bilangan
• [Turbo Pascal] Menghitung Bilangan Ganjil dan Genap
• [Turbo Pascal] Perulangan Dengan Repeat Until
• [Turbo Pascal] Perbedaan Char dan String
• [Turbo Pascal] Program Pencarian Indeks Bilangan
• [Turbo Pascal] Program dengan menggunakan menu pilihan
• [Turbo Pascal] Program Menghitung Tahun Kabisat dan Non-Kabisat
• [Turbo Pascal] Menghitung Nilai Rata-rata dengan While..Do
• [Turbo Pascal] Program Sederhana Menghitung Gaji Pegawai
• [Turbo Pascal] Contoh sederhana penggunaan FOR TO DO
• [Turbo Pascal] Contoh Sederhana Penggunaan Case Of
• [Turbo Pascal] Program Data Mahasiswa dengan Type Data Terstruktur
• [Turbo Pascal] Program Kasir
• [Turbo Pascal] Menghitung banyaknya huruf Vokal
• [Turbo Pascal] Program Segitiga Pascal
• [Turbo Pascal] Input data yang tidak sama
• [Turbo Pascal] Program KRS Mahasiswa
• [Turbo Pascal] Menghitung huruf
• [Turbo Pascal] Program membaca nilai berpasangan
• [Turbo Pascal] Contoh Prosedur dengan Parameter Variabel
• [Turbo Pascal] Mencari Pangkat Dan Faktorial
• [Turbo Pascal] Mencari Nilai Minimal Dengan Array
• [Turbo Pascal] Mencari Nilai Maksimal Dengan Array
• [Turbo Pascal] Mencari Modus Dari Bilangan
• [Turbo Pascal] Menentukan Ganjil & Genap

Posted in: Turbo Pascal