KeluarJangan Lupa Klik Like Dan Follow ya!
WELCOME TO andriworldwide.blogspot.com | Sesering mungkin mampir ke blog saya yang sederhana ini agar tidak ketinggalan berita-berita tentang game, terutama Ninja Saga dan yang lainnya | Jika ingin bertanya sesuatu tentang blog ini, kalian bisa bertanya | Jika ada kekurangan dalam blog ini mohon di maafkan | SALAM

GRATIS BITCOIN DI SINI

Get Free 100.000 SATOSHIS Get Free 1000 BITCOIN EARN 5500 BITCOIN

Membuat Menu Program dengan Turbo Pascal

Share on :
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.

0 comments on Membuat Menu Program dengan Turbo Pascal :

Post a Comment

Jika Spam Akan DI hapus.

Tulisan Lain