program KRS sederhana dalam dua versi bahasa

Berikut ini akan saya berikan contoh program KRS sederhana dalam dua versi bahasa, iya dalam dua bahasa, yakni bahasa jawa dan bahasa indonesia, langsung saja simak listing programnya.

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.

Program KRS sederhana dalam dua versi bahasa ini menggunakan metode REPEAT UNTIL, yang berarti akan terus mengulang sampai didapatkan kondisi yang dicari. Demikianlah contoh listing program KRS sederhana dalam dua versi bahasa, semoga bermanfaat.