Contoh Kegiatan Pascal Sajian Restoran

Hallo Coding Maniak, Sudahkah Anda Ngoding Hari Ini ??
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