Perulangan For...Do Dalam Pascal

Iterasi / perulangan (Loop) dalam bahasa Pascal terdiri dari 3 macam, yaitu : For … Do, While …
Do dan Repeat … Until.
8.1. For … Do
• Digunakan untuk mengulang statemen atau satu blok statemen berulang kali sejumlah
yang ditentukan.
• Perulangan For dapat berbentuk perulangan positif, perulangan Negatif dan
perulangan tersarang.
a) Perulangan Positif
Adalah perulangan dengan penghitung (counter) dari kecil ke besar atau
pertambahannya positif.
B.u : For Variabel_Kontrol := Nilai_Awal To Nilai_Akhir Do
Statement ;
Ket : - Variabel_Kontrol, Nilai_Awal dan Nilai_Akhir harus bertipe sama, yaitu
Integer.
􀂃 Jika Statement hanya 1, maka boleh ditulis dalam blok (Diawali Begin
dan diakhiri End;) boleh tidak. Sedangkan jika blok statement lebih
dari 1, maka statement2 tsb harus diletakkan dalam blok.
Contoh 1 :
Program Perulangan_FOR_1 ;
Var I : Integer ;
Begin
FOR I := 1 To 5 Do Writeln (‘Pascal’);
End.
Contoh 2 :
Program Perulangan_FOR_2 ;
Var I : Integer ;
Begin
FOR I := 1 To 5 Do
Begin
Writeln (‘Pascal’);
End ;
End.
Contoh 3 :
Program Perulangan_FOR_3 ;
Var I : Integer ;
Begin
FOR I := 1 To 5 Do
Begin
Writeln (I );
Writeln (‘Pascal’);
End ;
End.
b) Perulangan Negatif
Adalah perulangan dengan penghitung (counter) dari besar ke kecil atau
pertambahannya negatif.
B.u : For Variabel_Kontrol := Nilai_Awal DownTo Nilai_Akhir Do
Statement ;
Program Perulangan_FOR_4;
Var I : Integer ;
Begin
FOR I := 1 To 5 Do Writeln (‘Pascal’);
End.
c) Perulangan Tersarang (Nested Loop)
Adalah perulangan yang berada dalam perulangan lainnya. Perulangan yang lebih
dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang luar
baru bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari awal,
dan seterusnya.
Program Perulangan_FOR_5 ;
Var I, J : Integer ;
Begin
For I := 1 To 3 Do
Begin
For J := 1 To 3 DO
Write (I:8, J :3) ;
Writeln ;
End ;
End.
catatan perulangan lainnya akan saya posting selanjutnya