Selasa, 13 Maret 2012

Membuat Menu Program dengan Turbo 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.

1 komentar:

Rozy mengatakan...

makasih gan, tutorialnya

saya juga ada blog www.karyamud.blogspot.co.id

kalau boleh tau, udah berapa lama belajar pascal?