Contoh Kegiatan Pascal Sajian Restoran
Contoh Program Pascal Menu Makanan Restoran | Hari ini aku membagikan pola aktivitas pascal hidangan makanan restoran sederhana, diprogram ini kita memakai algoritma pemilihan case of dan if dalamnya ada daftar menu, harga juga diubahsuaikan dengan jenis porsi dan makan ditempat atau dibawa pulang. Oke tanpa banyak basa-basi berikut ini yaitu gambarannya.
Dan dibawah ini yaitu source code nya, menyerupai biasa aku lebih menyarankan anda mengetik manual code nya, biar lebih terbiasa.
Tapi kembali lagi itu terserah anda.
Program Menu_pilihan;
uses crt;
var harga, tambah, menu, total, jumLah, plus, i :longint;
var porsi, porsi2, jenis, nama, najen :string;
begin
clrscr;
GotoXY(40,7);writeln(‘ WARUNG MAKAN MAD ARIEF ‘);
GotoXY(36,8);writeln(‘ ____________________________________ ‘);
GotoXY(36,9);writeln(‘ |NO. | Daftar Menu Makanan |’);
GotoXY(36,10);writeln(‘ |____|_______________________________|’);
GotoXY(36,11);writeln(‘ | 1. | Nasi Goreng Spesial |’);
GotoXY(36,12);writeln(‘ | 2. | Mie Goreng Komplit |’);
GotoXY(36,13);writeln(‘ | 3. | Sop Iga Sapi |’);
GotoXY(36,14);writeln(‘ | 4. | Seblak Ceker Setan |’);
GotoXY(36,15);writeln(‘ | 5. | Soto Ayam |’);
GotoXY(36,16);writeln(‘ |____|_______________________________|’);
GotoXY(36,17);write(‘ Masukan Menu Pilihan Anda : ‘);readln(menu);
case hidangan of
1: begin
harga:=20000;
nama:=’Nasi Goreng Spesial’;
GotoXY(40,18);write(‘Porsi (kecil/sedang/besar): ‘);readln(porsi);
Gotoxy(40,19);write(‘Jenis (D/H): ‘);readln(jenis);
end;
2: begin
harga:=15000;
nama:=’Mie Goreng Komplit’;
GotoXY(40,18);write(‘Porsi (kecil/sedang/besar): ‘);readln(porsi);
GotoXY(40,19);write(‘Jenis (D/H): ‘);readln(jenis);
end;
3: begin
harga:=25000;
nama:=’Sop Iga Sapi’;
GotoXY(40,18);write(‘Porsi (kecil/sedang/besar): ‘);readln(porsi);
GotoXY(40,19);write(‘Jenis (D/H): ‘);readln(jenis);
end;
4: begin
harga:=10000;
nama:=’Seblak Ceker Setan’;
GotoXY(40,18);write(‘Porsi (kecil/sedang/besar): ‘);readln(porsi);
GotoXY(40,19);write(‘Jenis (D/H): ‘);readln(jenis);
end;
5: begin
harga:=15000;
nama:=’Soto Ayam’;
GotoXY(40,18);write(‘Porsi (kecil/sedang/besar): ‘);readln(porsi);
GotoXY(40,19);write(‘Jenis (D/H): ‘);readln(jenis);
end;
end;
if porsi=’besar’ then
begin
tambah:=5000;
porsi2:=’Besar’;
end;
if porsi=’sedang’ then
begin
tambah:=3000;
porsi2:=’Sedang’;
end;
if porsi=’kecil’ then
begin
tambah:=0;
porsi2:=’Kecil’;
end;
if jenis=’D’ then
begin
plus:=0;
najen:=’Makan Di Tempat’;
end;
if jenis=’H’ then
begin
plus:=2000;
najen:=’Dibawa Pulang’;
end;
jumLah:=harga+tambah;
total:=jumLah+plus;
if menu<=5 then
begin
GotoXY(25,22);writeln(‘ <>><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>’);
GotoXY(25,24);writeln(‘ ___________________________________________________________ ‘);
GotoXY(25,25);writeln(‘ | PESANAN ANDA |’);
GotoXY(25,26);writeln(‘ |___________________________________________________________|’);
GotoXY(25,27);writeln(‘ ‘,nama,’ ‘);
Gotoxy(65,27);writeln(‘Rp.’,jumlah,’,-‘);
GotoXY(25,28);writeln(‘ Porsi ‘);
GotoXY(65,28);writeln(”,porsi2,”);
GotoXY(25,29);writeln(‘ Jenis ‘);
GotoXY(65,29);writeln(”,najen,”);
GotoXY(25,30);writeln(‘ Total ‘);
GotoXY(65,29);writeln(‘Rp.’,total,’,-‘);
readln;
end;
end.
Ini Screenshot saat aktivitas dijalankan
Untuk inputnya
Menu : memakai angka 1 sd 5 (seperti yang tertera di daftar)
Porsi : Tulis pribadi saja kecil/sedang/besar
Jenis (apakah mau makan ditempat atau dibawa pulang), masukan D : Ditempat atau H : Dibawa pulang
Semoga klarifikasi diatas bermanfaat, silahkan tuliskan komentarnya kalau dirasa ada yang salah, kurang terang atau sebagainya.
Kita disini sama-sama belajar
Seperti salah satu moto di blog ini “Dari newbie, oleh newbie, untuk newbie”
Baca Juga
Program Permainan Sulap Angka
Program Reservasi Hotel
Konsep Aplikasi Untuk Smart City
