Pengulangan Repeat Until Pada Pascal #33

andrypein.net : Merupakan bahasan terakhir mengenai bagian-bagian pengulangan dalam pascal, kali ini yang akan kita bahas adalah pengulangan dengan menggunakan repeat…until.

Sekilas pengulangan repeat until ini berupa 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 jenis-jenis 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('Andry Ganteng Banget');
   i:=i+1;
 until (i < 5);
end.

hasilnya tetap sama seperti pada pengulangan sebelumnya dengan menampilkan teks ‘Andry Ganteng Banget‘ 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.

NB : Program diatas adalah program untuk menghitung nilai FPB.

dan pada postingan selanjutnya pengulangan-pengulangan ini akan di implementasikan pada bahasa pemrograman delphi.

Sekian bahasan pengulangan repeat until pada pascal nya, bhay.

*AFK