REPEAT..UNTIL

perulangan ini hampir sama dengan pernyataan pengulangan while, dan biasanya digunakan bila jumlah belum dapat ditentukan pada saat program ditulis. Perbedaan pernyataan reeat... until dan while terletak pada pengecekkan kondisi. 

  Jika pada pernyataan while, kondisi di cek pada awal kalang, sedangkan pada pernyataan repeat..until, kondisi di cek pada akhr kalang.

    Perbedaan yang lain, bila pernyataan selama kondisi masih terpenuhi, sedangkan pernyataan repeat ..until mengulang pernyataan selama kondisi belum terpenuhi. Bentuk umum pernyataan repeat..until adalah sebagai berikut

repeat  (pernyataan - pernyataan yang akan di ulang) until kondisi 


CONTOH LATIHAN:


uses crt;
var
   awal,akhir,rpbunga   : real;
   bunga, lama, i       : integer;
   mau                  : char;
begin
     repeat
       clrscr;
       writeln('*******************************');
       writeln('**    Nama  : Muh. Deni    **');
       writeln('**    Kelas : TI.12          **');
       writeln('**    NIM   : 20142205062    **');
       writeln('*******************************');
       writeln;
       writeln;
       write('Pinjaman Awal = Rp. ');readln(awal);
       write('Bunga [%] = ');readln(bunga);
       write('Lamanya Pinjaman [Periode] = ');readln(lama);
       writeln('------------------------------------------------');
       writeln(' Periode Bunga [%] Pinjaman Pinjaman Bunga [Rp] ');
       writeln('                    Awal      Akhir');
       writeln('------------------------------------------------');
       for i:=1  to lama do
       begin
            akhir:=awal + ((bunga/100) * awal);
            rpbunga:=0.1 * awal;
            writeln(i:5, bunga:9, awal:11:0, akhir:11:0, rpbunga:10:0);
            awal:=akhir;
       end;
       writeln('Mau Menghitung Lagi ? [Y/N] : ');readln(mau);
       until mau='0';
readln;
end.

 HASIL...... :)

REPEAT..UNTIL TERSARANG 
   Repeat until bersarang adalah suatu perulangan repeat..until yang satu berada di dalam perulangan repeat unti yang lainnya. 
contoh 
uses crt; var
  a,b,c : real;
  begin
  clrscr;
  writeln('================================');
  writeln(' sisi a     sisi b      sisi c  ');
  writeln('================================');
  a := 1;
  repeat
  b := 0;
    repeat
     c := sqrt (a * a + b * b);
     writeln (a:6:2, b:11:2, c:12:2);
     b := b + 5;
     until b > 25;
       a := a+1;
       until a > 3;
 writeln('=================================');
 readln; 
 end.