Di Pascal, untuk perulangan ternyata agak sedikit berbeda dari bahasa pemrograman lainnya seperti C dan Java. Di pascal, ada 3 jenis perulangan yang saya ketahui yakni, for - do, while - do, dan repeat - until. For - Do Dalam perulangan ini, syntax-nya hampir mirip seperti for yang di Java. Hanya...

Jenis Perulangan di Pascal

Di Pascal, untuk perulangan ternyata agak sedikit berbeda dari bahasa pemrograman lainnya seperti C dan Java. Di pascal, ada 3 jenis perulangan yang saya ketahui yakni, for - do, while - do, dan repeat - until.

  • For - Do

Dalam perulangan ini, syntax-nya hampir mirip seperti for yang di Java. Hanya saja penulisannya agak berbeda dimana, kalau di Java Anda bisa menggunakan seperti ini.

for(int x = 1; x <= 5; x++)
{
   // Statement
}

Maka, di Pascal Anda bisa menuliskannya seperti berikut.

for x := 1 to 5 do
begin
     (*Statement*)
end;

Kode diatas akan melakukan perulangan sebanyak 5 kali dimana, index awalnya dimulai dari 1 sampai 5. “Itu kan untuk perulangan dari nilai rendah ke nilai tinggi. Kalau dari nilai tinggi ke nilai rendah gimana? Misal, saya mau dari 5 ke 1. Apa sama kodenya?”  Yap, kalau nilai index-nya dari besar ke kecil maka Anda bisa menggunakan keyword downto. Berikut contohnya.

for x := 5 downto 1 do
begin
     (*Statement*)
end;

 

  • While - Do

Jenis perulangan ini sebenarnya ada juga di Java. Cuma cara penulisannya saja yang berbeda. Kalau di Java Anda bisa menulisnya seperti berikut.

while(value <= 5)
{
     // Statement
}

Maka, di Pascal Anda bisa menulisnya seperti berikut.

while(x <= 5) do
begin
     (*Statement*)
end;

Perulangan jenis ini akan melakukan perulangan ketika kondisi di dalam while bernilai true atau terpenuhi.

 

  • Repeat - Until

Untuk jenis perulangan ini sepertinya tidak ada di Java. Kira – kira seperti inilah contoh penulisannya.

repeat
begin
	(*Statement*)
end;
until x = 5;

Pada perulangan ini, perulangan akan dilakukan selama value/nilai di kondisi bernilai false. Pada program diatas until x = 5 berarti perulangan akan berhenti ketika x = 5. Kira - kira konsep perulangan ini hampir mirip seperti perulangan Do - While di Java. Dimana, pada perulangan ini minimal akan terjadi 1 kali perulangan. Oya, Untuk perulangan jenis While - Do dan Repeat - Until, di dalam blok perulangannya perlu dibuat pengubah nilai kondisi agar tidak terjadi infinitely looping(Perulangan tak terbatas).

Dan berikut ialah contoh source code untuk mencetak angka 1 sampai 9 untuk tiap – tiap jenis perulangan.

  1. For - Do
    (* Created by Yudi Setiawan *)
    program looping;
    uses crt;
    
    (*Variable*)
    var
       x    :integer;
    
    (*Main*)
    begin
         (*Bersihkan layar console*)
         clrscr;
    
         for x := 1 to 9 do
         begin
              writeln(x);
         end;
    
         readkey;
    end.
  2. While - Do
    (* Created by Yudi Setiawan *)
    program looping;
    uses crt;
    
    (*Variable*)
    var
       x    :integer;
    
    (*Main*)
    begin
         (*Bersihkan layar console*)
         clrscr;
    
         x := 1;
         while(x <= 9) do
         begin
              writeln(x);
              x := x + 1;
         end;
    
         readkey;
    end.
  3. Repeat - Until
    (* Created by Yudi Setiawan *)
    program looping;
    uses crt;
    
    (*Variable*)
    var
       x    :integer;
    
    (*Main*)
    begin
         (*Bersihkan layar console*)
         clrscr;
    
         x := 1;
         repeat
         begin
              writeln(x);
              x := x + 1;
         end;
         until x > 9;
    
         readkey;
    end.

 


About Author

Yudi Setiawan

Saat ini aktif sebagai Mahasiswa di salah satu Universitas di kota Medan dengan mengambil bidang Fakultas Teknik dan Ilmu Komputer. Sangat senang dengan bahasa pemrograman Java dan Android.


Comment & Discussions

    Please LOGIN before if you want to give the comment.