Pascal‎ > ‎

repeat-until

REPEAT pacaran UNTIL putus

blok program REPEAT xxx UNTIL(yyy) berguna untuk perulangan yang akan dilakukan paling tidak sekali, lalu diulang lagi hingga kondisi xxx bernilai TRUE. Oleh karena itu, kondisi yyy harus tidak boleh selamanya FALSE, harus ada sesuatu yang akan menyebabkan yyy bernilai true agar komputernya tidak "hang" 

repeat1.pas


var
  i:integer;
begin
  i:=1;
  Repeat
    writeln(i);
    i:=i+1;
  Until i>5;
end.

repeat1.exe jika dijalankan akan menampilkan tulisan 1 sampai 5 di layar.

repeat2.pas


var
  i:integer;
begin
  i:=5;
  Repeat
    writeln(i);
    i:=i+1;
  Until i=5;
end.



repeat3.pas


var
  i:integer;
begin
  i:=10;
  Repeat
    writeln(i);
    i:=i+1;
  Until i>5;
end.


Perhatikan baik-baik pada contoh kode sumber repeat2.pas! Pada repeat2, hati-hatilah dengan penulisan bagian UNTIL pada perulangan REPEAT..UNTIL, jika Anda salah, maka komputer akan terus melakukan perulangan. Anda beruntung kali ini karena integer tidaklah terlalu besar, maka masih bisa berhenti setelah mencapai MAX_INTEGER, lalu overflow, menjadi MIN_INTEGER, lalu terus bertambah hingga kembali nol dan berhenti di lima.

Perhatikan repeat3.pas, dimana walaupun i bernilai 10, repeat..until tetap dipanggil.
ċ
repeat1.pas
(0k)
Muhammad Jazman,
16 Dec 2010, 02:22
ċ
repeat2.pas
(0k)
Muhammad Jazman,
19 Jun 2011, 07:52
ċ
repeat3.pas
(0k)
Muhammad Jazman,
16 Dec 2010, 02:22
Comments