PERULANGAN (LOOPING) REPEAT..UNTIL

PERULANGAN (LOOPING)

     Perulangan (looping) merupakan bentuk yang sering ditemui dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan statemen For, While-Do dan Repeat….Until. Perulangan Repeat..until dapat berbentuk perulangan repeat..until dan repeat..until tersarang.



PERNYATAAN REPEAT..UNTIL

   Pernyataan 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 :

    Program Perulangan_Repeat_Until;
    uses crt;
    Var i : byte;
    Begin
    clrscr;
    i := 1;
    Repeat
    Write ('No ');
    Writeln (i);
    i := i + 1;
    Until i > 5;
    Readln;

    End.

   Hasilnya

     No 1
     No 2
     No 3
     No 4
     No 5


PERNYATAAN 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.


 Programnya :

   Hasilnya