Kondisi Perulangan/Looping Dalam Bahasa Pemrograman Pascal

Melanjutkan tutorial tentang Kondisi Percabangan IF ELSE Dalam Bahasa Pemrograman Pascal, kita akan masuk ke perulangan/Looping Dalam Bahasa Pemrograman Pascal. Disini akan dibahas cara penulisan serta cara penggunaannya.

Dalam pemrograman komputer, loop adalah urutan instruksi yang akan terus berulang sampai kondisi tertentu tercapai. Biasanya, proses tertentu dilakukan, seperti mendapatkan item data dan mengubahnya, dan kemudian beberapa kondisi diperiksa seperti apakah penghitung telah mencapai jumlah yang ditentukan.

Singkatnya Looping / Perulangan adalah konsep pemrograman dimana kita mengulang baris program beberapa kali. “Beberapa kali” disini bisa dikatakan tidak terbatas, selama komputer masih bisa mengolahnya dan kondisi tertentu belum tercapai. jadi jika proses looping “tercapai” kondisi tertentunya maka proses looping akan berhenti.

PASCAL menyediakan 3 jenis perulangan, yaitu :

1. For….Do
2. While Do
3. Repeat…Until

Statement  digunakan untuk mengulangan beberapa statemen dengan jumlah perulangan yang sudah diketahui.

Pengertian Perulangan FOR..DO Dalam Pascal

Statement digunakan untuk mengulangan beberapa statemen dengan jumlah perulangan yang sudah diketahui.

Berikut adalah struktur kode perulangan For…Do:

FOR (variabel_counter) := (nilai_awal) TO (nilai_akhir) DO
begin
  (kode program yang ingin diulang disini...)
end;

Penjelasan struktur kode:

1. variabel_counter adalah variabel yang berfungsi sebagai counter, atau penghitung di dalam perulangan.
2. nilai_awal dan nilai_akhir. adalah “batas” nilai awal dan akhir yang akan digunakan untuk dihitung di variable_counter.
3. isi dari kode yang ingin diulang. 
4. begin dan end; digunakan untuk pembatas awal dan akhir isi dari kode yang ingin diulang.

Berikut contoh sederhana perulangan For…Do dalam Pascal, Silahkan ketikan kode program seperti berikut ini, atau boleh copy paste:

program looping_for_do;
uses crt;
var
  i: integer;
begin
  clrscr;
    for i := 1  to 1000 do
      begin
        writeln('Fixcoding');
      end;
  readln;
end.

Penjelasan code diatas:

1. uses crt adalah code untuk memanggil / menggunakan CommandPrompt yang biasa sering kita sebut cmd.
2. var yang berarti variable digunakan untuk meng-inisialisasi dan menentukan variabel atau nilai awal sebelum memulai perhitungan, yaitu i bertipe data integer yang akan digunakan sebagai variable counter.
3. clrscr digunakan untuk membersihkan layar pada cmd.
4. perintah for i := 1  to 1000 do. ini digunakan untuk melakukan perulangan dari 1 sampai 1000.
5. perintah writeln(‘Fixcoding’) artiya tulis “Fixcoding”.

maka hasil dari code diatas akan muncul tulisan Fixcoding sampai 1000 kali.

Pengertian Perulangan WHILE..DO Dalam Pascal

Statement digunakan untuk mengulang statemen atau satu blok statemen yang jumlahnya belum bisa ditentukan. Perulangan ini disebut juga dengan perulangan dengan kondisi benar.

Untuk situasi dimana jumlah perulangan belum bisa dipastikan, kita bisa menggunakan perulangan WHILE DO atau REPEAT UNTIL. Dalam tutorial kali ini saya akan fokus kepada WHILE DO.

Berikut adalah struktur kode perulangan While Do:

WHILE (condition) DO
begin
  (kode program yang ingin diulang disini...)
  (kode program untuk mengubah condition..)
end;

Penjelasan struktur code:

1. Condition bisa dikatakan sebagai syarat agar perulangan bisa dijalankan. Selama syarat ini terpenuhi (bernilai TRUE), perulangan akan terus dijalankan. Jika syarat ini tidak terpenuhi (bernilai FALSE), perulangan tidak akan berjalan.
2. kode program untuk mengubah condition adalah kode yang akan digunakan untuk mengontrol perulangan agar dapat (bernilai FALSE).
3. jika tidak menggunakan sebagaimana yang sudah dijelaskan pada point (2) maka condition akan terus bernilai TRUE, sehingga porgram akan terus melakukan perulangan tanpa henti hingga menyebabkan komputer bekerja sangat keras.

Berikut contoh sederhana perulangan While Do dalam Pascal, Silahkan ketikan kode program seperti berikut ini, atau boleh copy paste:

program while_do;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 0;
  while i < 5 do
    begin
      writeln('Fixcoding');
      i:= i + 1;
    end;
  readln;
end.

maka hasil dari code diatas akan muncul tulisan Fixcoding sampai 5 kali.

Pengertian Perulangan REPEAT..UNTIL Dalam Pascal

Perulangan Repeat..Until berfungsi hampir sama dengan While..Do. Pada Repeat..Until, looping akan berhenti justru ketika kondisi bernilai TRUE. Selain itu kondisi akan diuji pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu kali walaupun kondisi yang ada masih FALSE. Repeat…Until digunakan untuk mengulang statement-statement atau blok statement sampai (until) kondisi yang diseleksi di until tidak terpenuhi.

Perbedaannya, pengulangan Repeat-Until dengan While-Do terletak pada letak pengecekan kondisi. Jika pada pernyataan While-Do kondisi dicek pada awal blok pernyataan yang harus diulang, sedangkan pada pernyataan Repeat Until, kondisi dicek pada akhir blok pernyataan yang harus diulang. Perbedaan yang lain, bila pernyataan while mengulang pernyataan selama kondisi masih terpenuhi, pernyataan repeat..until mengulang pernyataan selama kondisi belum terpenuhi.

Berikut adalah struktur kode perulangan Repeat..Until:

REPEAT
  begin
   (kode program yang ingin diulang disini...)
   (kode program yang untuk mengubah condition..)
  end;
UNTIL (condition)

Penjelasan struktur kode:

1. begin dan end; digunakan untuk pembatas awal dan akhir isi dari kode yang ingin diulang.
2. isi dari kode yang ingin diulang. 
3. Condition bisa dikatakan sebagai syarat agar perulangan bisa dijalankan. Selama syarat ini terpenuhi (bernilai TRUE), perulangan akan terus dijalankan. Jika syarat ini tidak terpenuhi (bernilai FALSE), perulangan akan berhenti.
4. Karena condition dicek di akhir, setidaknya isi perulangan akan dijalankan minimal 1 kali, meskipun condition tidak dipenuhi. Inilah perbedaan mendasar dari REPEAT UNTIL dengan perulangan lain seperti FOR DO dan WHILE DO.

Berikut contoh sederhana perulangan Repeat..Until dalam Pascal, Silahkan ketikan kode program seperti berikut ini, atau boleh copy paste:

program repeat_until; 
uses crt; 
var i: integer; 
begin 
  clrscr; 
  i:= 0; 
  repeat
    begin
      writeln('Fixcoding'); 
      i:= i + 1; 
    end; 
  until i = 5;
readln; 
end.

Maka hasil dari code diatas akan muncul tulisan Fixcoding sampai 5 kali.