
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.
Makalah Tentang Sepak Bola Terlengkap
Contoh Laporan Kewirausahaan Menjual Snack di CFD
Proposal Kegiatan Pemilihan Ketua Osis
Makalah Tentang Bola Voli Lengkap
Alasan Mahasiswa di D.O dari Perguruan Tinggi yang Perlu Kalian Ketahui
5 Fakta Menarik Kuliah Jurusan Hukum
Jurusan Kuliah untuk Anak IPS yang Paling Bergengsi
Jurusan untuk Anak IPA yang Banyak Diserbu Saat Ini