Contoh Program Pascal Menu Restoran

Hallo Coding Maniak, Sudahkah Anda Ngoding Hari Ini ??
Contoh Program Pascal Menu Makanan Restoran | Hari ini saya membagikan contoh program pascal menu makanan restoran sederhana, diprogram ini kita menggunakan algoritma pemilihan  case of dan if dalamnya ada daftar menu, harga juga disesuaikan dengan jenis porsi dan makan ditempat atau dibawa pulang. Oke tanpa banyak basa-basi berikut ini adalah gambarannya.

Dan dibawah ini adalah source code nya, seperti biasa saya lebih menyarankan anda mengetik manual code nya, supaya 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 menu 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 ketika program dijalankan

Untuk inputnya
Menu : menggunakan angka 1 sd 5 (seperti yang tertera di daftar)
Porsi : Tulis langsung saja kecil/sedang/besar
Jenis (apakah mau makan ditempat atau dibawa pulang), masukan D : Ditempat atau H : Dibawa pulang

Semoga penjelasan diatas bermanfaat, silahkan tuliskan komentarnya jika dirasa ada yang salah, kurang jelas 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