Perulangan dengan Repeat Until

May 19, 2009 1 Comment by

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, pengertian repeat until, contoh repeat until pascal, contoh program repeat until pascal, program repeat until, Perulangan REPEAT UNTIL, program pascal repeat until.

Related posts:

  1. Program Stat Game
  2. Intan Record
  3. Perulangan dalam Pascal
  4. Perulangan
  5. Menghitung Hambatan
  6. Program untuk Mengurutkan Data dengan Metode RADIX SORT
  7. Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
  8. Hendra Array & Record
  9. Perhitungan Gaji
  10. Program GJE (Gauss Jordan Exchange) dengan Pascal
Pascal

About the author

Tulisan kiriman sahabat

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