STATEMENT PENGULANGAN (BAG 3)

ini Merupakan bahsan terakhir mengenai bagian2 pengulangan dalam pascal,,kali ini yang akan kita bahas adalah pengulangan dengan menggunakan repeat...until. :D :k

okelah kita langsung saja tanpa buang waktu lama. Blok pengulangan ini sebenarnya mirip dengan pengulangan while,perbedaannya hanya pada jenis ini pengulangan akan terus dilakukan apabila kondisi yg didefinisikan masih bernilai false,jadi dengan kata lain pengulangan dihentikan jika kondisi bernilai true. Juga dalam pengulangan repeat,kondisi ditulis di akhir blok.
Bentuk umumnya seperti ini:

repeat
  statemen;
  ...
until (kondisi);

sebagai bahan perbandingan dengan jenis2 pengulangan sebelumnya,kita lihat saja contoh programnya dibawah ini:

program statemenrepeat1;
uses wincrt;
var i:integer;
begin
 {inisialisasi nilai indeks i dengan 1}
 i:=1;
 {melakukan pengulangan}
 repeat
   writeln('Arpellowgaz');
   i:=i+1;
 until (i < 5);
end.

hasilnya tetap sama seperti pada pengulangan sebelumnya dengan menampilkan teks 'Arpellowgaz' sebanyak lima kali. coba lihat kondisi berada pada akhir bukan? kita lihat contoh lainnya dalam pengulangan repeat

program statemenrepeat2;
uses wincrt;
var 
  a:integer;{variabel utk mnympan bil pertama}
  b:integer;{variabel utk mnympan bil kedua}
  sisabagi:integer;{var utk mnympn sisabagi}
  temp:integer;{var utk bantu proses pertukaran}
begin
 write('Masukan bilangan pertama');readln(a);
 write('Masukan bilangan kedua');readln(b);
{memastikan nilai a < b & melakukan pertukaran}
if (a < b) then begin
  temp:=a;
  a:=b;
  b:=temp;
end;
{melakukan pengulangan}
repeat
  sisabagi:= a mod b;
  a:=b;
  b:=sisabagi;
until (sisabagi = 0);
{menampilkan hasil perhitungan}
 writeln;
 writeln('Pembagi bersama terbesar = ', a);
end.

program diatas adalah program untuk menghitung nilai FPB,coba saja jalankan dan buktikan   nah itu dalam pascalnya