Perulangan dengan Repeat Until
uses wincrt;
{ program KRS sederhana dalam dua versi bahasa}
var total,IP:real;
sks,x:integer;
mk:string;
begin
writeln (‘ SELAMAT DATANG DALAM PENGISIAN KRS ‘);
writeln (‘ 1. dalam versi bahasa jawa’);
writeln (‘ 2. dalam versi bahasa indonesia’);
write (‘pilih versi = ‘);read (x);
if (x= 1) then
begin
write (‘lebokno nilai IP semestermu = ‘); readln (IP);
total:= 0;
if (IP < =1.2)then begin write ('kowe nduwe jatah sks = 12'); repeat begin write (' lebokno mata kuliah seng arep mbok jipuk = ');readln (mk); write (' lebokno sks mata kuliah seng mbok jipuk = '); readln (sks); total:= total+sks end; until (total =12); write (' jatah sks mu wis entek'); end; if ( IP <= 2) then begin writeln ('kowe nduwe jatah sks = 21'); repeat begin write (' lebokno mata kuliah seng arep mbok jipuk = ');readln (mk); write ('lebokno sks mata kuliah seng mbok jipuk = ');readln (sks); total:= total + sks end; until ( total= 21); write ('jatah sksmu wis entek'); end; if ( IP >= 3 ) then
begin
writeln (‘ kowe nduwe jatah sks = 24’);
repeat
begin
write (‘lebokno mata kuliah seng arep mbok jipuk = ‘);readln (mk);
write (‘lebokno sks mata kuliah seng mbok jipuk = ‘);readln (sks);
total:= total + sks
end;
until (total = 24);
write (‘jatah sksmu wis entek’);
end;
if ( IP < 3) then begin writeln ('kowe nduwe jatah sks = 22'); repeat begin write (' lebokno mata kuliah seng arep mbok jipuk = ');readln (mk); write (' lebokno sks mata kuliah seng mbok jipuk = ');readln (sks); total:=total + sks end; until (total = 22); write ('jatah sksmu wos entek'); end; end; if (x = 2) then begin write ('masukan nilai IP semester = '); readln (IP); total:= 0; if ( IP <= 2) then begin writeln ('anda mempunyai jatah sks = 21'); repeat begin write (' input mata kuliah yang akan anda ambil = ');readln (mk); write ('input sks mata kuliah yang anda ambil = ');readln (sks); total:= total + sks end; until ( total= 21); write ('jatah sks anda sudah habis'); end; if ( IP >= 3 ) then
begin
writeln (‘ anda mempunyai jatah sks = 24’);
repeat
begin
write (‘input mata kuliah yang akan anda ambil= ‘);readln (mk);
write (‘input sks mata kuliah yang anda ambil= ‘);readln (sks);
total:= total + sks
end;
until (total = 24);
write (‘jatah sks anda sudah habis’);
end;
if ( IP < 3) then begin writeln ('anda mempunyai jatah sks = 22'); repeat begin write (' input mata kuliah yang akan anda ambil = ');readln (mk); write (' input sks mata kuliah yang anda ambil = ');readln (sks); total:=total + sks end; until (total = 22); write ('jatah sks anda sudah habis'); end; end; end.
Kata Kunci
repeat until pascal, contoh repeat until, pascal repeat until, contoh program repeat until, contoh program repeat until pascal, pengertian repeat until, contoh repeat until pascal, contoh program pascal repeat until, repeat pada pascal, Perulangan REPEAT UNTIL.
if (IP < =1.2)then
bagian ini kok error statement terus ya? :)