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