Home > Pemprograman > Membuat Menu Program dengan Turbo Pascal

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. December 11, 2009 at 8:00 am

    pascal yeuh! bikin anu looping atuh, misalkan kalo udah pake program ke 1 kmu bisa masuk lagi ke menu utama. Atau gini, di akhir setiap program ada pilihan ke menu utama atau mengakhiri program.. bisa teu… mana budak IT teh.. hahahaha

    • May 25, 2010 at 7:11 pm

      lagi nyari referensi antivirus yang bagus, eh malah nyantol di blog ini, smadav juni 2010 oke gak sih buat virus lokal?

  2. vinzprimadv
    January 22, 2010 at 11:28 am

    thx yaaah…

  3. IRFAN
    January 17, 2011 at 9:20 am

    bikin tutor untuk pemula dong kk

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s