Contoh Case Of pada Pascal

Dalam pembahasan Pascal kali ini, saya akan membahas tentang membuat Menu program dengan Case Of, yang didalamnya terdapat program “Penjualan Karcis Bioskop” dan “Aplikasi Nilai Ujian”. berikut ini adalah scriptnya :

program caseof;

var a,b,m:longint;

pilihan:byte;

x,y,z,n1:real;

begin

writeln(‘<<<<Pilihan>>>’);

writeln(’1.Karcis Bioskop’);

writeln(’2.Nilai ujian’);

writeln(’3.exit’);

writeln;

writeln(‘Pilih 1-3 ?’);readln(pilihan);

case pilihan of

1: begin

writeln(‘Selamat Datang di Aplikasi Karcis Bioskop’);

writeln(‘Harga Karcis Rp.15.000+ Pajak Rp.2000′);

writeln(‘Masukan Jumlah karcis yang akan dibeli:’);readln(a);

m:=(a*15000)+(a*2000);

writeln(‘Harga Karcis yang anda beli adalah: Rp ‘,m);

writeln(‘Terimakasih telah menikmati fasilitas kami’);

end;

2: begin

writeln(‘Selamat Datang di aplikasi Nilai Ujian’);

writeln(‘masukan Nilai basic anda:’);readln(x);

writeln(‘masukan Nilai pascal anda:’);readln(y);

writeln(‘masukan Nilai C anda :’);readln(z);

n1:=(x+y+z)/3;

writeln(‘Nilai Ujian anda adalah:’,n1:5:2);

if n1 > 91 then

begin

writeln(‘anda mendapatkan grade A’);

writeln(‘Besar biaya anda adalah Rp.50.000′);

end

else if n1 > 76 then

begin

writeln(‘anda mendapatkan grade B’);

writeln(‘Besar biaya anda adalah Rp.150.000′);

end

else if n1 > 60 then

begin

writeln(‘anda mendapatkan grade C’);

writeln(‘Besar biaya anda adalah Rp.250.000′);

end

else if n1 > 40 then

begin

writeln(‘anda mendapatkan grade D’);

writeln(‘Besar biaya anda adalah Rp.350.000′);

end

else if n1 > 01 then

begin

writeln(‘anda mendapatkan grade E’);

writeln(‘Besar biaya anda adalah Rp.450.000′);

end

else if n1 = 0 then

begin

writeln(‘anda tidak mendapatkan grade’);

writeln(‘Besar biaya anda adalah Rp.550.000′);

end

else

write(‘Anda salah memasukan format’);

writeln(‘terimakasih telah menikmati fasilitas kami’);

end;

3: Begin

Write(‘terimakasih telah menikmati fasilitas kami’);

end;

end;

readln;

end.