Operasi Pengulangan pada Delphi

Langsung saja kita bahas tentang Operasi Perulangan, sebelumnya kita perna membahas tentang Operasi Kordisional, baik langsung saja kita ke materi, macam-macam Operasi Perulangan pada Delphi

1. REPEAT .... UNTIL

Statement repeat akan melaksanakan perulangan proses terhadap blok perintah sampai suatu keadaan dinyatakan True (bernilai benar). Sintaks penggunaannya adalah sebagai berikut:

Sintaks

Repeat
[blok perintah]
until kondisi

Contoh Program :

program CobaRepeatUntil;
uses
Windows, SysUtils;

{$R *.res}
{$APPTYPE CONSOLE}
var
luas, keliling, diameter: real;
pilihan: char;
begin
writeln(‘Menghitung Luas dan Keliling Lingkaran’);
writeln(‘===============================’);
repeat
write(‘Diameter = ‘); readln(diameter);
luas:= 1/4*(22/7)*(diameter*diameter);
keliling:= pi*diameter;
writeln(‘Luas lingkaran : ‘, luas:5:2);
writeln(‘Keliling lingkaran : ‘, keliling:5:2);
write(‘Anda ingin menghitung lagi [Y/T] : ‘); readln(pilihan);
until (pilihan = ‘t’) or (pilihan = ‘T’);
readln;
end.

2. While..Do 
Statement while digunakan untuk mengeksekusi sebuah blok secara berulang selama memenuhi kondisi tertentu. Sintaks penggunaannya adalah sebagai berikut.

Sintaks

While kondisi Do
begin
[blok perintah];
end;

Contoh Program :
 

Jika tutorial ini bermanfaat silahkan beri +1 Google ya, karena +1 kamu sangat berarti sekali untuk situs kami ini. Terimakasih :)