Perulangan dengan Repeat Until

May 19, 2009 1 Comment by Sahabat

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.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

One Response to “Perulangan dengan Repeat Until”

  1. anonymous says:

    if (IP < =1.2)then
    bagian ini kok error statement terus ya? :)

Leave a Reply

You must be logged in to post a comment.