Sahabat “Jamane Komputer” Pernyataan FOR itu biasa dipakai
dalam melakukan pengulangan yang jumlahnya sudah diketahui sebelumnya. Sebagai
contohnya ya, FOR dapat digunakan untuk menampilkan tulisan “saya bisa Pascal”
sebanyak 10 kali maupun dalam jumlah yang lebih banyak lagi. Salah satu bentuk
pernyataan FOR adalah sebagai berikut ya...
FOR variabel
:= nilai_terakhir TO nilai_akhir DO
Pernyataan
Dalam format
ini ya sabahat, variabel itu berfungsi sebagai variabel pengontrol pengulangan.
Variabel akan diisi dengan nilai, dimulai dari nilai_terakhir sampai
nilai_akhir untuk setiap putarannya. Untuk setiap putaran, maka pernyataan akan
dijalankan.
Pada bentuk
FOR di atas:
·
Variabel, nilai_terakhir dan nilai_akhir harus
bertipe sama atau kompatibel
·
Tipe yang dipakai pada ketiga komponen tersebut
harus ordinal
·
Nilai_terakhir harus lebih kecil atau sama
dengan nilai_akhir, kalau nilai_akhir lebih kecil dari nilai_terakhir, maka
pada bagian pernyataan tidak dapat dijalankan sama sekali.
Contoh
program perulangan FOR yang akan menampilkan tulisan “saya bisa Pascal”
sebanyak 5 kali:
PROGRAM
BELAJAR_FOR;
{contoh pemakaian FOR untuk menampilkan
tulsan saya bisa Pascal 5 kali}
USES crt;
VAR
Ulang : integer;
BEGIN
Clrscr;
FOR Ulang := 1 TO 5 DO
Writeln(‘saya
bisa Pascal’);
Readln;
END.
Pada contoh
di atas, Ulang akan bernilai 1,2,3,4,5. Untuk setiap nilai tersebut, pernyataan:
Writeln(‘saya bisa Pascal’);
Dieksekusi
kemudian di layar akan muncul tulisan
Saya bisa Pascal
sebanyak 5
kali.
Sahabat
"Jamane Komputer", Pada perulangan FOR ini juga bisa menampilkan isi
dari variabel pengontrol. Perhatikan contoh berikut ini ya....
PROGRAM
melihat_isi_variabel;
{menampilkan
bilangan 1 sampai dengan 10}
USES
CRT;
VAR
Ulang : Integer;
BEGIN
Clrscr;
FOR Ulang := 1 TO 5 DO
Writeln(Ulang);
Readln;
END.
Dari program
di atas maka akan muncul output di layar:
1
2
3
4
5
Ada
pertanyaan nih sobat “Jamane Komputer”, Bagaimana cara menampilkan abjad huruf
A sampai Z menggunakan perulangan FOR?? Apakah bisa??
Untuk menjawab
pertanyaan di atas mari kita perhatikan contoh program di bawah ini:
PROGRAM
menampilkan_huruf;
USES CRT;
VAR
Karakter : Char;
BEGIN
Clrscr;
FOR karakter := ‘A’ TO ‘Z’ DO
Write(karakter);
Readln;
END.
Maka hasil
dari program di atas adalah:
ABCDEFGHIJKLMNOPQRSTUVWXYZ
Itulah sahabat “Jamane Komputer” sekilas tentang
perulangan FOR TO DO. Gampang kan..!! selamat mencoba ya, semoga postingan saya
ini bermanfaat untuk kita semua.
Sahabat “Jamane
Komputer” kalau di atas sudah dibicarakan tentang perulangan FOR TO, nah kalau
sekarang kita bahas FOR DOWNTO. Kalau FOR TO digunakan untuk mencacah naik,
maka FOR DOWNTO adalah kebalikannya. Pada FOR DOWNTO, nilai pertama justru
harus lebih besar atau sama dengan nilai akhirnya. Format selengkapnya adalah
sebagai berikut:
FOR variabel
:= nilai_awal DOWNTO nilai_akhir DO
Pernyataan
Contohnya seperti
ini ya:
PROGRAM
perulangan_turun;
USES CRT;
VAR
Perulangan : integer;
BEGIN
Clrscr;
FOR perulangan := 5 DOWNTO 1 DO
Writeln(perulangan);
Readln;
END.
Maka akan
menghasilkan keluaran berupa:
5
4
3
2
1
Sahabat
“Jamane Komputer” pernah tidak melihat hasil output dari perulangan FOR dengan
hasil seperti di bawah ini:
*
**
***
****
*****
******
*******
********
Untuk
membuat program untuk menghasilkan output seperti di atas dapat menggunakan FOR
di dalam FOR. Untuk perulangan seperti ini disebut sebagai FOR bersarang.
Contoh programnya seperti di bawah ini ya sahabat:
Program
menampilkan_bintang;
{ contoh FOR
di dalam FOR }
Uses Crt;
Const
Terakhir = 8;
Var
Atas, bawah : integer;
Begin
Clrscr;
FOR atas := 1 to Terakhir DO
Begin
FOR bawah := 1
to atas DO
Write(‘*’);
Writeln; { yang ini untuk pindah baris ya}
End;
Readln;
End.
