PROGRAM RUMAH MAKAN
Program ABDIMAULANA_141510123;
uses wincrt;

var harga,tambah,menu,total,jumlah,plus,i, jp: longint;
var porsi,porsi2,jenis,nama,najen, md, np:string;
var makanan : string ;
    menuutama: char ;
begin
repeat
clrscr;
     writeln('             RUMAH MAKAN OPOP    ');
writeln('    +------------------------------------+');
writeln('    ¦NO.¦ Daftar Menu Makanan            ¦');
writeln('    ¦---+--------------------------------¦');
writeln('    ¦ 1.¦ NasiGoreng                     ¦');
writeln('    ¦ 2.¦ Nasi Ayam                         ¦');
writeln('    ¦ 3.¦ Mie                                 ¦');
writeln('    ¦ 4.¦ Sup                            ¦');
writeln('    ¦ 5.¦ Soto                           ¦');
writeln('    | 6.| Keluar                         |');
writeln('    +------------------------------------+');
write('   Masukkan menu pilihan anda             : ');readln(menu);

clrscr; 
case menu of
     1: begin
          harga:=6000;
          nama:='Nasi Goreng ';
gotoxy(10,1);writeln('Nasi Goreng Jenis');
gotoxy(10,2);writeln('1. Daging Sapi ');
gotoxy(10,3);writeln('2. Seafod  ');
gotoxy(10,4);writeln('3. Special ');
write('Nasi Goreng Jenis : '); readln (Jenis);
writeln;
gotoxy(10,6);writeln('Porsi Makanan');
gotoxy(10,7);writeln('1. kecil');
gotoxy(10,8);writeln('2. sedang');
gotoxy(10,9);writeln('3. besar');
write ('Porsi Makanan     : ') ;readln (porsi);
writeln ;
write('Jumlah Pesanan    : '); readln (jp);
end;
     2: begin
          harga:=5000;
          nama:='Nasi Ayam ';
gotoxy(10,1);writeln('Nasi Ayam Jenis');
gotoxy(10,2);writeln('1. Goreng Special');
gotoxy(10,3);writeln('2. Goreng Bawang  ');
gotoxy(10,4);writeln('3. Rica-rica');
write('Nasi Ayam Jenis : '); readln (Jenis);
gotoxy(10,6);writeln('Porsi Makanan');
gotoxy(10,7);writeln('1. kecil');
gotoxy(10,8);writeln('2. sedang');
gotoxy(10,9);writeln('3. besar');
write ('Porsi Makanan   : ') ;readln (porsi);
writeln ;
write('Jumlah Pesanan  : '); readln (jp);
end;
     3: begin
          harga:=6000;
          nama:='Mie ';
          gotoxy(10,1);writeln('Mie Jenis');
gotoxy(10,2);writeln('1. Tiaw');
gotoxy(10,3);writeln('2. Aceh ');
gotoxy(10,4);writeln('3. Goreng Special');
write('Mie Jenis      : '); readln (Jenis);
gotoxy(10,6);writeln('Porsi Makanan');
gotoxy(10,7);writeln('1. kecil');
gotoxy(10,8);writeln('2. sedang');
gotoxy(10,9);writeln('3. besar');
write ('Porsi Makanan  : ') ;readln (porsi);
writeln ;
write('Jumlah Pesanan : '); readln (jp);
end;
     4: begin
          harga:=5000;
          nama:='Sup ';
gotoxy(10,1);writeln('Sup Jenis');
gotoxy(10,2);writeln('1. Daging Sapi');
gotoxy(10,3);writeln('2. Daging Ayam  ');
write('Sup Jenis       : '); readln (Jenis);
gotoxy(10,6);writeln('Porsi Makanan');
gotoxy(10,7);writeln('1. kecil');
gotoxy(10,8);writeln('2. sedang');
gotoxy(10,9);writeln('3. besar');
write ('Porsi Makanan   : ') ;readln (porsi);
writeln ;
write('Jumlah Pesanan  : '); readln (jp);
end;
    5: begin
          harga:=4000;
          nama:='Soto ';
gotoxy(10,1);writeln('Soto Jenis');
gotoxy(10,2);writeln('1. Medan');
gotoxy(10,3);writeln('2. Padang  ');
gotoxy(10,4);writeln('3. Lamongan');
write('Soto Jenis       : '); readln (Jenis);
gotoxy(10,6);writeln('Porsi Makanan');
gotoxy(10,7);writeln('1. kecil');
gotoxy(10,8);writeln('2. sedang');
gotoxy(10,9);writeln('3. besar');
write ('Porsi Makanan    : ') ;readln (porsi);
writeln ;
write('Jumlah Pesanan   : '); readln (jp);
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='ds' then
     begin
          harga:=12000;
          najen:='Daging Sapi';
     end;
          if jenis='sf' then
     begin
          harga:=10000;
          najen:='Seafod';
     end;
     if jenis='sp' then
     begin
          harga:=13000;
          najen:='Special';
     end;
     if jenis='ags' then
     begin
          harga:=15000;
          najen:='Ayam Goreng Special';
     end;
     if jenis='agb' then
     begin
          harga:=17000;
          najen:='Ayam Goreng Bawang';
     end;
     if jenis='arr' then
     begin
          harga:=15000;
          najen:='Ayam Goreng Rica-rica';
     end;
     if jenis='mt' then
     begin
          harga:=9000;
          najen:='Mie Tiaw';
     end;
     if jenis='ma' then
     begin
          harga:=10000;
          najen:='Mie Aceh';
     end;
     if jenis='mgs' then
     begin
          harga:=10000;
          najen:='Mie Goreng Special';
     end;
     if jenis='sds' then
     begin
          harga:=12000;
          najen:='Sup Daging Sapi';
     end;
     if jenis='sda' then
     begin
          harga:=10000;
          najen:='Sup Daging Ayam';
     end;
     if jenis='sm' then
     begin
          harga:=13000;
          najen:='Soto Medan';
     end;
     if jenis='sp' then
     begin
          harga:=15000;
          najen:='Soto Padang';
     end;
     if jenis='sl' then
     begin
          harga:=11000;
          najen:='Soto Lamongan';
     end;
     if jenis='sb' then
     begin
          harga:=12000;
          najen:='Soto Betawi';
     end;
clrscr;
np:= nama+jenis;
 jumlah:=harga+tambah;
     total:=jumlah+harga;

     if menu<=5 then
     begin
     clrscr;
writeln('   |======================================================|');
writeln('   |                 PESANAN ANDA                                      |');
writeln('   |======================================================|');
writeln('   | Makanan                : ',np,'                       1  |');
writeln('   | Harga Makanan          : ','Rp. ',jumlah,',-                        |');
writeln('   | Porsi                  : ',porsi2,'                                 |');
writeln('   | Jumlah Pesanan         : ',jp,'                             |');
writeln('   | Total                  : Rp. ',total,',-                             |');
writeln('   |======================================================|');
writeln('                       TERIMA KASIH         ');
writeln('                  SELAMAT DATANG KEMBALI        ');
     readln;
     end;
clrscr;
begin
     write('Apakah anda ingin memesan makanan lain (tekan enter) : ');readln(menuutama);
                end;
until (menuutama='y');
end.
Outputnya :
Readkey

Comments

Post a Comment

Popular posts from this blog

QUESTION OF LIFE

Ni pertanyaan question of life yg kayak di programnya Dedy Corbuzier Hitam Putih di Trans7. boleh di jawab ķalo mau. QUESTION OF LIFE “ Isilah titik2 dibawah ini dengan jawaban menurut diri sendiri A. Soal 1. Ibu saya tidak pernah tahu kalo saya pernah.... 2. Saya merasa Ganteng/Cantik saat saya.... 3. Jika saya bisa mengulangi waktu saya akan.... 4. Seandainya saya dilahirkan jadi hewan, maka saya ingin menjadi.... 5. Kalau saya bertemu tuyul, saya akan minta...... 6. Saya pintar saya kaya saya ganteng/cantik tapi sebenarnya saya ...... ” “ PILIH SALAH SATU JAWABANNYA YAH B. Pilih Pilih mana 1. Pacar Cantik/ganteng tapi Bodoh/ Pacar Jelek Tapi pintar 2. Kaya Bodoh/Miskin Pintar 3. Mati muda/Hidup Melarat 4. Ketemu setan/Ketemu macan 5. Mati mendadak/ miskin mendadak 6. Pete / Jengkol 7. Tambah pintar/ Tambah kaya 8. Ibu/ ayah
Read more

TUGAS MANDIRI IMPLEMENTASI PANCASILA DI ERA SETELAH REFORMASI MATA KULIAH : PANCASILA

TUGAS MANDIRI IMPLEMENTASI PANCASILA DI ERA SETELAH REFORMASI MATA KULIAH : PANCASILA DISUSUN OLEH :                                       NAMA    :   ABDI MAULANA                                       NPM       :   141510123 UNIVERSITAS PUTERA BATAM TAHUN 2014 KATA PENGANTAR Puji Syukur Marilah kita ucapkan kepada Tuhan Yang Maha Esa Yang telah melimpahkan Rahmat dan karuniaNYA kepada kita semua, sehingga melalui proses yang panjang dan kerjasama yang baik tugas makalah (artikel) “ Pendidikan Pancasila “ ini dapat diselesaikan. Makalah (artikel) ini dibuat dengan maksud untuk salah satu persyaratan nilai Pendukung Ujian akhir semester, disamping itu makalah (artikel) ini juga memberikan manfaat kepada kita semua tentang Implementasi Pancasila diera Setelah Reformasi.             Dan tidak lupa saya ucapkan terimakasih kepada “Team Dosen” Selaku dosen pemandu mata kuliah Pendidikan Kewarganegaraan yang telah membimbing saya dalam
Read more

Program Perhitungan Gaji Karyawan

==============================PROGRAM 1=============================== program pembuatan_record; uses crt; procedure garis; begin writeln(’==============================================’); end; type reckaryawan=record jab,nip,nama:string; gol:integer; gapok,tunj:real; end; var pegawai:reckaryawan; total:real; begin clrscr; writeln(’ LAPORAN PERHITUNGAN GAJI KARYAWAN PT MAJU TAK GENTAR’); garis; writeln; write(’Masukan NIP Karyawan : ‘);readln(pegawai.nip); write(’Masukan Nama Karyawan : ‘);readln(pegawai.nama); write(’Golongan[1/2/3] : ‘);readln(pegawai.gol); garis; case pegawai.gol of 1: begin pegawai.jab:=’Staf dan Tetap’; pegawai.gapok:=900000; end; 2: begin pegawai.jab:=’Staf dan Kontrak’; pegawai.gapok:=700000; end; 3: begin pegawai.jab:=’Kontrak’; pegawai.gapok:=500000; end; end; if pegawai.jab=’Staf dan Tetap’ then pegawai.tunj:=25/100*pegawai.gapok else if pegawai.jab=’Staf dan Kontrak’ then pegawai.tunj:=10/100*pegawai.gapok else
Read more