Repeat Until

REPEAT . . . UNTIL

Perintah Repeat . . . Until mirip dengan perintah While . . . Do, yaitu untuk melakukan perulangan jika banyak perulangan yang akan dikerjakan belum diketahui.

Syntax  :
Repeat
Statement1;
Statement2;
………;

Until <kondisi logika>
Perbedaan antara Repeat . . . Until dengan While . . . Do adalah bahwa pada  Repeat  . . . Until statement akan dikerjakan secara berulang-ulang sampai kondisi logika bernilai TRUE.  Dengan demikian selama kondisi bernilai FALSE, maka perulangan akan terus dilakukan.
Pada Repeat . . . Until, pemeriksaan kondisi untuk menentukan benyaknya perulangan setelah statement dikerjakan.  Dengan demikian statement pada perulangan ini akan selalu dikerjakan minimal satu kali.

contoh program pascal menggunakan repeat until

program konversi_biner;
uses wincrt;
var desimal,d,sisa,biner:longint;
begin
write('Angka Desimal');readln(desimal);
d:=0;
repeat
      sisa:=desimal mod 2;
      desimal:=desimal div 2;
      if (d=0)then
         d:=1
      else
          d:=d*10;
     biner:=biner+sisa*d
until desimal=0;
write ('Biner= ',biner);
end.

Posted in: 1311100133, dio ariadi, pascal, program pascal invers, repeat until