Perulangan For...Do di Pascal

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

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.

Itulah sahabat “Jamane Komputer” sekilas tentang perulangan FOR TO DO. Gampang kan..!! selamat mencoba ya, semoga postingan saya ini bermanfaat untuk kita semua.