uses wincrt; { program KRS sederhana dalam dua versi bahasa} var total,IP:real; sks,x:integer; mk:string; begin writeln (‘ SELAMAT DATANG DA...
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.
Sumber : www.nusinau.com
COMMENTS