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.

= Baca Juga Sob =



Ditulis Oleh : Unknown ~ Berbagi Ilmu Pengetahuan

Artikel Contoh Case Of pada Pascal ini diposting oleh Unknown. Sobat diperbolehkan mengcopy paste atau menyebar-luaskan artikel ini, namun jangan lupa untuk meletakkan link AKTIF artikel ini sebagai sumbernya. Terimakasih atas kunjungan Anda serta kesediaan Anda membaca artikel ini. Kritik dan saran dapat anda sampaikan melalui kotak komentar.

::..Get Free Daily Email Updates..::

Comments
0 Comments

Tidak ada komentar:

Posting Komentar

Baru Lama HomE
to Top