program menu_pilihan;
uses wincrt;
var harga,tambah,menu,total,jumlah,plus,porsi,jenis:longint;
var porsi2,nama,najen:string;
begin
writeln(' SIANG MALAM MAKNYUS ');
writeln(' -----------------------------');
writeln(' Menu Yang Tersedia');
writeln(' 1. Nasi Goreng Sapi ');
writeln(' 2. Nasi Goreng Ayam ');
writeln(' 3. Mie Goreng Sapi ');
writeln(' 4. Mie Goreng Ayam ');
writeln(' 5. Soto ');
writeln(' 6. Keluar ');
writeln;
repeat;
writeln;
write(' Masukkan menu pilihan anda : ');readln(menu);
writeln;
case menu of
1: begin
harga:=6000;
nama:='Nasi Goreng Sapi';
end;
2: begin
harga:=5000;
nama:='Nasi Goreng Ayam';
end;
3: begin
harga:=6000;
nama:='Mie Goreng Sapi ';
end;
4: begin
harga:=5000;
nama:='Mie Goreng Ayam ';
end;
5: begin
harga:=4000;
nama:='Soto ';
end;
6: begin
end;
7: begin
write;
end;
end;
until menu<=6;
if menu<=5 then
begin
repeat;
writeln;
write(' Porsi (kecil(1)/sedang(2)/besar(3)) : ');readln(porsi);
writeln;
case porsi of
1: begin
tambah:=1000;
porsi2:='Kecil';
end;
2: begin
tambah:=2000;
porsi2:='Sedang';
end;
3: begin
tambah:=3000;
porsi2:='Besar';
end;
4: begin
write;
end;
end;
until porsi<=3;
repeat;
writeln;
write(' Jenis(DT(1)/TH(2)) : ');readln(jenis);
writeln;
case jenis of
1: begin
plus:=0;
najen:='Di tempat';
end;
2: begin
plus:=2000;
najen:='Take Home';
end;
3: begin
write;
end;
end;
until jenis<=2;
end;
jumlah:=harga+tambah;
total:=jumlah+plus;
if menu<=5 then
begin
writeln;
writeln;
writeln(' =============================');
writeln;
writeln;
writeln(' Pesanan Anda ');
writeln;
writeln(' ',nama,' : ','Rp. ',jumlah,',-');
writeln(' Porsi : ',porsi2);
writeln(' Jenis : ',najen);
writeln(' Total Harga : Rp. ',total,',-');
readkey();
end;
end.
Tidak ada komentar:
Posting Komentar