Contoh Pemrograman Pascal: Program Menu pada Warnet |

Bahasa pemrograman pascal adalah bahasa pemrograman yang ditujukan kepada pemula, karena bahasa yang digunakan cenderung menggunakan bahasa kita sendiri dan juga sangat mudah dipahami.

Di bawah ini adalah contoh program menu yang saya buat untuk project akhir saya di semester pertama di salah satu kampus swasta di surakarta, project ini wajib untuk semua mahasiswa karna sebagai syarat untuk mengikuti UAS mata kuliah “Pemrograman I (Pascal).

Program makanan;
Uses crt;
Label balik;
var harga,kembali,tambah,total,menu,jumlah,haha,i,lama,uang:longint;
var jenis,nama,nm,hihi,y:string;
var lagi: char;
begin
balik:
clrscr;
gotoxy(25,2);
write(‘Nama Pelanggan: ‘); readln(nm);
writeln;
gotoxy(32,4);
writeln(‘—# WARNET #— ‘);
gotoxy(5,6);
writeln(‘==========================================================================’);
gotoxy(5,7);
writeln(‘No. Daftar Bilik Warnet |’);
gotoxy(5,8);
writeln(‘==========================================================================’);
gotoxy(5,10);
writeln(‘1. Mewah & ber AC |’);
gotoxy(5,11);
writeln(‘————————————————————————–‘);
gotoxy(5,12);
writeln(‘2. Menengah & ber AC |’);
gotoxy(5,13);
writeln(‘————————————————————————–‘);
gotoxy(5,14);
writeln(‘3. Biasa & tidak ber AC |’);
gotoxy(5,15);
writeln(‘————————————————————————–‘);
gotoxy(5,16);
writeln(‘4. Smoking Room ‘);
gotoxy(5,17);
writeln(‘————————————————————————–‘);
gotoxy(5,18);
writeln(‘5. KELUAR’);
gotoxy(5,20);
writeln(‘==========================================================================’);
gotoxy(45,6);
write(‘=============================’);
gotoxy(45,7);
write(‘Masukan pilihan anda: ‘);readln(menu);
gotoxy(45,8);
writeln(‘===========================’);

Case menu of
1: begin
nama:=’Mewah & ber AC’;
harga:=10000;
gotoxy(45,10);
write(‘Login (Personal/Paket): ‘); readln(jenis);
gotoxy(45,11);
writeln(‘—————————–‘);
gotoxy(45,12);
write(‘Lama Penggunaan (Jam): ‘); readln(lama);
gotoxy(45,13);
writeln(‘—————————–‘);
gotoxy(45,14);
write(‘Uang Pembayaran: ‘); readln(uang);
gotoxy(45,15);
writeln(‘==============================’);
end;
2: begin
harga:=8000;
nama:=’Menengah & ber AC’;
gotoxy(45,10);
write(‘Login (Personal/Paket): ‘); readln(jenis);
gotoxy(45,11);
writeln(‘—————————–‘);
gotoxy(45,12);
write(‘Lama Penggunaan (Jam): ‘); readln(lama);
gotoxy(45,13);
writeln(‘—————————–‘);
gotoxy(45,14);
write(‘Uang Pembayaran: ‘); readln(uang);
gotoxy(45,15);
writeln(‘==============================’);
end;
3: begin
nama:=’Biasa & tidak ber AC’;
harga:=6000;
gotoxy(45,10);
write(‘Login (Personal/Paket): ‘); readln(jenis);
gotoxy(45,11);
writeln(‘—————————–‘);
gotoxy(45,12);
write(‘Lama Penggunaan (Jam): ‘); readln(lama);
gotoxy(45,13);
writeln(‘—————————–‘);
gotoxy(45,14);
write(‘Uang Pembayaran: ‘); readln(uang);
gotoxy(45,15);
writeln(‘==============================’);
end;
4: begin
nama:=’Smoking Room’;
harga:=6000;
gotoxy(45,10);
write(‘Login (Personal/Paket): ‘); readln(jenis);
gotoxy(45,11);
writeln(‘—————————–‘);
gotoxy(45,12);
write(‘Lama Penggunaan (Jam): ‘); readln(lama);
gotoxy(45,13);
writeln(‘—————————–‘);
gotoxy(45,14);
write(‘Uang Pembayaran: ‘); readln(uang);
gotoxy(45,15);
writeln(‘==============================’);
end;
5: begin
writeln;
gotoxy(45,12);
writeln(‘ | Batal Login | ‘);readln;
end;
end;

if jenis=’Personal’ then begin
haha:=0;
hihi:=’PERSONAL’; end;

if jenis=’Paket’ then begin
if lama >2 then haha:=-2000;
if lama >4 then haha:=-3000;
if lama >6 then haha:=-5000;
hihi:=’PAKET’; end;

clrscr;
jumlah:=lama*harga;
total:=jumlah+haha;
kembali:=uang-total;

gotoxy(10,5);

if menu<=4 then
begin
writeln;
gotoxy(15,2);
writeln(‘# ========================================================= #’);
gotoxy(15,3);
writeln(‘# | PROGRAM MENU WARNET #’);
gotoxy(15,4);
writeln(‘# ========================================================= #’);
gotoxy(15,5);
writeln(‘# ========================================================= #’);
gotoxy(18,6);
writeln(‘Nama: Dedi Nugroho | Nim: xxx’);
gotoxy(18,8);
writeln(‘Dosen: ? | Mata Kuliah: Pascal’);

gotoxy(18,9);
writeln(‘========================================================’);
gotoxy(18,10);
writeln(‘ Nota Pembayaran Warnet ‘);
gotoxy(18,11);
writeln(‘========================================================’);
gotoxy(18,12);
writeln(‘Nama Pelanggan : ‘,nm,”);
gotoxy(18,13);
writeln(‘Nama Bilik : ‘,nama,’ ‘);
gotoxy(18,14);
writeln(‘Lama Penggunaan(Jam) : ‘,lama,’ Jam ‘);
gotoxy(18,15);
writeln(‘Harga : ‘,’ Rp. ‘,jumlah,”);
gotoxy(18,16);
writeln(‘Login : ‘,hihi,’ ‘);
gotoxy(18,17);
writeln(‘Total Harga : Rp. ‘,total,”);
gotoxy(18,18);
writeln(‘Uang Pembayaran : Rp. ‘,uang,”);
gotoxy(18,19);
writeln(‘Uang Kembalian : Rp. ‘,kembali,”);
gotoxy(18,20);
writeln(‘========================================================’);
writeln;
gotoxy(24,22);
write(‘ Kembali Ke Menu Utama[y/t]: ‘);
readln(lagi);
if (lagi=’y’) then goto balik;
readln;
end;
end.