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.