Program Yang Menampilkan CASE OF dan IF PASCAL

  

Program Yang Menampilkan CASE OF dan IF

Bingung Bro ingin Menyelesaikan Tugas Dari dosen Karna ingin membuat program yang Menampilkan CASE OF dan IF. Di bawah ini adalah Program Yang Menampilkan CASE OF dan IF

Copy semua program yang ada dibawah ini kedalam Notepad dan save dengan tipe .pas 

program menu_pilihan;
uses crt;

var harga,tambah,menu,total,jumlah,plus,i:longint;
var porsi,porsi2,jenis,nama,najen:string;

begin
clrscr;
     writeln('       WARUNG MAKAN ARIYO WEB   ');
     writeln('    +--------------------------+');
     writeln('    | NO . Daftar Menu Makanan  |');
     writeln('    +---+----------------------+');
     writeln('    | 1 .|  Nasi Kuning          ');
     writeln('    | 2 .|  Nasi Goreng          ');
     writeln('    | 3 .|  Mie Goreng Sapi      ');
     writeln('    | 4 .|  Mie Goreng Ayam      ');
     writeln('    | 5 .|  Soto                 ');
     writeln('    | 6 .|  Keluar               ');
     writeln('    +--------------------------+');
     write('   Masukkan menu pilihan anda : ');readln(menu);

     case menu of
     1: begin
          harga:=6000;
          nama:='Nasi Kuning';
          write('   Porsi (kecil/sedang/besar) : ');readln(porsi);
          write('   Jenis(DT/PA)               : ');readln(jenis);
     end;
     2: begin
          harga:=5000;
          nama:='Nasi Goreng ';
          write('   Porsi (kecil/sedang/besar) : ');readln(porsi);
          write('   Jenis(DT/PA)               : ');readln(jenis);
     end;
     3: begin
          harga:=6000;
          nama:='Mie Goreng Sapi ';
          write('   Porsi (kecil/sedang/besar) : ');readln(porsi);
          write('   Jenis(DT/PA)               : ');readln(jenis);
     end;
     4: begin
          harga:=5000;
          nama:='Mie Goreng Ayam ';
          write('   Porsi (kecil/sedang/besar) : ');readln(porsi);
          write('   Jenis(DT/PA)               : ');readln(jenis);
     end;
     5: begin
          harga:=4000;
          nama:='Soto            ';
          write('   Porsi (kecil/sedang/besar) : ');readln(porsi);
          write('   Jenis(DT/PA)               : ');readln(jenis);
     end;
     6: begin

     end;
     end;

     if porsi='besar' then
     begin
          tambah:=3000;
          porsi2:='Besar';
     end;
     if porsi='sedang' then
     begin
          tambah:=2000;
          porsi2:='Sedang';
     end;
     if porsi='kecil' then
     begin
          tambah:=1000;
          porsi2:='Kecil';
     end;

     if jenis='DT' then
     begin
          plus:=0;
          najen:='Di tempat';
     end;
     if jenis='PA' then
     begin
          plus:=2000;
          najen:='Pesan Antar';
     end;

     jumlah:=harga+tambah;
     total:=jumlah+plus;

     if menu<=5 then
     begin

     writeln;
     writeln;
     writeln;
     writeln;
     writeln('  ');
     writeln;
     writeln('   +-----------------------------------+');
     writeln('   |          PESANAN ANDA              ');
     writeln('   ------------------------------------+');
     writeln('   | ',nama,' : ','Rp. ',jumlah,',-     ');
     writeln('   | Porsi           : ',porsi2,'       ');
     writeln('   | Jenis           : ',najen,'        ');
     writeln('   | Total           : Rp. ',total,',   ');
     writeln('   +-----------------------------------+');
     readln;
     end;
end.