Perulangan dengan Repeat Until

Dalam pemrograman, tak jarang kita membutuhkan suatu cara agar program berulangkali melakukan sesuatu yang sama. Sebagai contoh, mencetak bilangan dari 1 sampai 10. Jika kita menuliskan satu-satu, tentu akan repot sekali. Nah, dengan Repeat Until, kita bisa meringkasnya menjadi beberap kode program saja.

Yang perlu diperhatikan saat menggunakan Repeat Until adalah: Repeat Until mengulang terus sampai diberitahu kapan dia berhenti. Pemberitahuan ini terletak sesudah kata Until. Adalah kewajiban programmer untuk memberitahukan kapan Repeat Until berhenti.

Struktur dasar Repeat Until adalah sebagai berikut:

Repeat

Until {syarat berhenti}

Kita dapat memberikan "apa-saja" sebagai syarat keluar dari perulangan. Berikut ini adalah contoh pemakaian Repeat Until untuk mencetak bilangan dari 1 s.d. 10

var
  Bilangan : integer;
begin
   Bilangan := 1;
   Repeat
      Writeln(Bilangan);

      if Bilangan < 11 then
      Bilangan := Bilangan + 1;

   Until Bilangan = 11;
end.
Dengan cara yang sama, kita dapat menghentikan program dengan memakai variabel logika seperti contoh berikut:

var
  Bilangan : integer;
  Keluar : boolean;
begin
   Bilangan := 1;
   Keluar := false;
   Repeat
      Writeln(Bilangan);

      if Bilangan < 10 then
         Bilangan := Bilangan + 1
      else
        Keluar := true;

   Until Keluar;
end.

Hasil eksekusinya adalah sebagai berikut:
 

Perulangan dengan Repeat Until 2015-06-15T13:40:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer