for < pencacah > := < awal > to
< akhir > do < pernyataan >
atau
for < pencacah > := < awal >
downto < akhir > do < pernyataan >
Pada
bentuk diatas, pencacah merupakan variabel bertipe bilangan bulat, bisa berupa
integer, longint, byte dan sebagainya. Pencacah tidak dapat digantikan dengan
pernyataan, karena nilai pencacah haruslah bisa ditambahkan (increment) atau
dikurangkan (decrement).
Dari
dua bentuk diatas, bentuk pertama akan melakukan penambahan dari nilai awal
sampai nilai akhir, perulangan akan berhenti jika nilai pencacah lebih besar
dari nilai akhir. Sedangkan pada bentuk kedua akan melakukan pengurangan dari
nilai awal sampai nilai akhir, sehingga perulangan akan berhenti jika nilai
pencacah lebih kecil dari nilai akhir. Dari kedua bentuk diatas, penambahan
atau pengurangan yang dilakukan adalah senilai 1.
Untuk
lebih jelasnya perhatikan contoh berikut :
for i := 1 to 10 do
writeln (“nilai i =”+inttostr(i));
Potongan
program diatas akan menampilkan nilai i, yang mana nilai i kan bertambah secara
berulang hingga nilainya lebih dari 10. Prosesnya adalah seperti berikut :
a.
Variabel
pencacah adalah i dan nilai awal adalah 1
b.
Selama
i bernilai 1 sampai dengan 10 maka tampilkan “nilai i = i”
c.
Hasil
dari program diatas adalah :
nilai i = 1
nilai i = 2
nilai i = 3
...
nilai i = 10
Contoh
diatas merupakan perulangan menggunakan penambahan, sedangkan perulangan dengan
pengurangan adalah sebagai berikut :
for i := 10 downto 1 do
writeln (“nilai i =”+inttostr(i));
Potongan
program diatas akan menampilkan nilai i, yang mana nilai i kan berkurang secara
berulang hingga nilainya kurang dari 1. Prosesnya adalah seperti berikut :
d.
Variabel
pencacah adalah i dan nilai awal adalah 10
e.
Selama
i bernilai 10 sampai dengan 1 maka tampilkan “nilai i = i”
f.
Hasil
dari program diatas adalah :
nilai i = 10
nilai i = 9
nilai i = 8
...
nilai i = 1
sumber :
-
Panduan Lengkap Pemrograman Borland Delphi 5.0, Penerbit Andi, 2001.
baca juga :
perulangan while do delphi
pernyataan case of delphi
pernyataan if else pada delphi
baca juga :
perulangan while do delphi
pernyataan case of delphi
pernyataan if else pada delphi
Sign up here with your email
ConversionConversion EmoticonEmoticon