Source Code

Source Code Repeat .... Until

SCRIPT CODE - REPEAT UNTIL

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');
end.

JIKA PILIH 'Y'

JIKA PILIH 'T'