Perulangan dengan FOR loop pada Pascal

Pada kesempatan kali ini kita akan membahas tentang FOR loop pada bahasa Pascal. Sesuai namanya, loop memiliki arti perulangan. Fungsinya untuk menjalankan perintah berulang kali sesuai kondisi yang ada.

Sebenarnya pada Pascal ada beberapa cara untuk membuat perulangan. Yaitu dengan menggunakan FOR loop, WHILE DO loop, dan REPEAT UNTIL loop. Tetapi untuk kali ini kita hanya akan membahas FOR loop saja.

Penggunaan Perulangan

Namanya juga perulangan, pasti digunakan untuk melakukan pekerjaan berulang. Sekarang coba tuliskan kode berikut ini terlebih dahulu.

program perulanganFor;
uses crt;
begin
  clrscr;
  writeln('saya berjanji tidak akan terlambat lagi');
  readln;
end.

Tidak perlu dijalankan pasti sudah terlihat outputnya.

Familiar? Itu adalah kalimat yang biasa ditulis ketika ada anak terlambat masuk kelas hehe...

Biasanya kalimat tersebut akan ditulis berkali kali, sebagai hukuman agar jera. Nah sekarang kita akan melakukan itu juga. Cukup 5 kali saja. Kalimatnya diganti menjadi "saya akan belajar pascal" biar tidak terkesan hukuman

program perulanganFor;
uses crt;
begin
  clrscr;
  writeln('saya akan belajar pascal');
  writeln('saya akan belajar pascal');
  writeln('saya akan belajar pascal');
  writeln('saya akan belajar pascal');
  writeln('saya akan belajar pascal');
  readln;
end.

Yayy masalah selesai bukan?

Jika kalian jalankan, akan keluar output kalimat tersebut sebanyak 5 kali. Oke selanjutnya saya tantang agar menghasilkan output sebanyak 10 kali. Ah gampang tinggal ketik ketik dikit ya kan...

Kalau ingin menghasilkan 20 output? 40 output? atau bahkan 1000 output? bisa bisa tangan jadi keriting nih kalau diketik manual. Nah fungsi perulangan adalah untuk melakukan hal ini secara efektif dan efisien.

Cara Penulisan FOR loop pada Pascal

Pada FOR loop kita menginstruksikan komputer untuk menjalankan suatu perintah sebanyak berapa kali secara explisit (kondisinya bukan expresi boolean).

Untuk format penulisannya adalah sebagai berikut

for {a} to {n} do
  begin
    {perintah yang akan dieksekusi}
  end;

atau

for {a} downto {n} do
  begin
    {perintah yang akan dieksekusi}
  end;

dengan:

• a : batas awal looping berupa variable integer atau assignment variable
• n : batas akhir looping berupa integer (bilangan bulat)

Format perintah yang pertama untuk menghitung menaik, sedangkan format perintah yang kedua untuk menghitung menurun.

Contoh Penggunaan FOR loop pada Pascal

Untuk membuat perulangan dengan for, beberapa hal yang kita butuhkan adalah sebuah variable, dan batas looping. Variable yang biasa digunakan untuk perulangan adalah i, j, dan k. tapi kalian bebas untuk menentukan ini.

Oke sekarang coba ubah kode Pascal yang telah kita buat sebelumnya

program perulanganFor;
uses crt;
var
  i: integer;
begin
  clrscr;
  for i:=1 to 5 do
    writeln('saya akan belajar pascal');
  readln;
end.

Sekarang coba kalian jalankan, maka outputnya kurang lebih akan sebagai berikut

saya akan belajar pascal
saya akan belajar pascal
saya akan belajar pascal
saya akan belajar pascal
saya akan belajar pascal

Hasil outputnya akan sama seperti ketika ketik manual. Inilah fungsi dari perulangan FOR loop, sangat amat efisien dan menghemat waktu. Jadi perintah setelah keyword "do" akan dijalankan dengan batas awal variable i yang isinya 1 dan batas akhir angka 5.

Pada setiap looping, variable i akan bertambah nilainya sebanyak 1. Untuk mengeceknya kita bisa menambahkan variable i pada output.

....
  for i := 1 to 3 do
    writeln(i, '. saya akan belajar pascal');
  readln;
....

Jika kalian jalankan maka outputnya akan sebagai berikut

1. saya akan belajar pascal
2. saya akan belajar pascal
3. saya akan belajar pascal

Sebagai eksperimen bisa kalian coba untuk mengganti batas akhir dan batas awalnya. Bisa kalian coba angka angka sebanyak apapun, semisal 1000, atau bahkan 1000000, semakin banyak looping akan memakan waktu lebih lama.

....
  for i := 1 to 1000 do
    writeln(i, '. saya akan belajar pascal');
  readln;
....

Bisa kalian coba juga dengan menggunakan downto, dengan catatan batas awal harus lebih besar dari batas akhir.

Penutup

Cukup sekian untuk tutorial kali ini, Semoga bermanfaat Pada tutorial selanjutnya kita akan tetap membahas perulangan namun dengan metode yang berbeda, yaitu perulangan dengan while do loop.