uses crt;
label mlg,slesai,lgm,log,awal,minumkah,bayarlg,ulangminum;
var
loding,pilma,pilmi,pila,jum,nm:integer;
pmlg,pmlagi,trylog,user,t,pass,pa,pm,ulangmi,ts,makanan,minuman:string;
tmin,tmak,totalma,total,totalm,bayar,kembali:longint;
Const
a='Nasigoreng ';
b='piza ';
c='Burger ';
d='Hot Dog ';
e='Capuchino Cookies ';
f='Chocolate Love ';
g='Guava Juice ';
h='Avocado juice ';
hmnasgor=7000;
hmpiza=35000;
hmburger=12000;
hmhotdog=10000;
hackkies=6000;
hachoklo=7000;
haguavaj=3500;
haavukaj=3500;
procedure loko;
begin
write('loading');
loding := 1;
while loding <= 5 do
begin
loding:=loding+1;
t:='.';
Write(t); delay(1500);
end;
end;
Begin
repeat
log:
clrscr;
write('Masukan User Name : ');
readln(user);
if user='ISWANTO' then user:='iswanto'
else if user<>'iswanto' then write('Maaf User Name yg anda masukan Salah...!!!');
readln;
if user<>'iswanto' then goto log;
until user='iswanto';
write('masukan password : '); readln(pass);
if pass='KMZWA8AWAA' THEN PASS:='kmzwa8awaa'
else if (pass<> 'kmzwa8awaa') then writeln('Pasword yg anda Masukan Salah...!!! ');
if pass <> 'kmzwa8awaa' then write('coba lagi?(y/t): ');
readln(trylog);
if (trylog='y') or (trylog='Y') then goto log;
loko;
if trylog='t' then goto slesai;
if pass<>'kmzwa8awaa' then goto slesai;
awal:
textcolor(white);
clrscr;
writeln(' >>>>> Ice Cafe <<<<<');
writeln('');
writeln('+----------------------------+');
writeln('| Menu Makanan |');
writeln('+----------------------------+');
writeln('|No| Makanan + Harga |');
writeln('+--+--------------+----------+');
writeln('|1 | Nasi Goreng | Rp.7000 |');
writeln('|2 | piza | Rp.35000 |');
writeln('|3 | Burger | Rp.12000 |');
writeln('|4 | HotDog | Rp.10000 |');
writeln('+--+--------------+----------+');
writeln;
write ('Apakah anda akan memesan Makanan?(y/n): ');
readln(pm);
if pm='Y' then pm:='y';
if pm<>'y' then goto minumkah;
if pm='y' then
begin
lgm:
write('Nomor Brapa yg akan anda Pesan ? '); readln(pilma);
write('Jumlah: '); readln(jum);
end;
case pilma of
1:makanan:=a;
2:makanan:=b;
3:makanan:=c;
4:makanan:=d;
else write('Menu tidak tersedia');
readln;
goto awal;
end;
case pilma of
1:tmak:=tmak+(hmnasgor*jum);
2:tmak:=tmak+(hmpiza*jum);
3:tmak:=tmak+(hmburger*jum);
4:tmak:=tmak+(hmhotdog*jum);
else writeln('meu tidak ada dalam daftar') ;
end;
case pilma of
1:totalma:=(hmnasgor*jum);
2:totalma:=(hmpiza*jum);
3:totalma:=(hmburger*jum);
4:totalma:=(hmhotdog*jum);
else writeln('meu tidak ada dalam daftar') ;
end;
write('Anda memesan ',jum,' ',makanan,' dengan total Rp.',totalma);
writeln('');
write('Apakah Anda ingin memesan makanan yg lainnya juga?(y/t): ');
readln(pmlagi);
writeln('');
if (pmlagi='Y')or (pmlagi='y')then goto lgm;
begin
minumkah:
writeln('');
write('apakah anda ingin memesan minuman(y/n): ');
readln(pa);
if pa='Y' then pa:='y';
if (pa<>'y') and (pm<>'y') then goto awal;
if pa<>'y' then goto bayarlg;
if pa='y' then
begin
ulangminum:
clrscr;
writeln(' >>>>> Ice Cafe <<<<<');
writeln('');
writeln('+---------------------------------+');
writeln('| Menu Minuman |');
writeln('+--+-------------------+----------+');
writeln('|No| Minuman | Harga |');
writeln('+--+-------------------+----------+');
writeln('|1 | Capuchino Cookies | Rp.6000 |');
writeln('|2 | Chocolate Love | Rp.7000 |');
writeln('|3 | Guava Juice | Rp.3500 |');
writeln('|4 | Avocado Juice | Rp.3500 |');
writeln('+--+-------------------+----------+');
writeln;
mlg:
write('Nomor Brapa yg akan anda Pesan ? ');
readln(pilmi);
case pilmi of
1:minuman:=e;
2:minuman:=f;
3:minuman:=g;
4:minuman:=h;
else write('Menu tidak tersedia');
readln;
goto ulangminum;
end;
write('Jumlah: ');
readln(jum);
case pilmi of
1:totalm:=(hackkies*jum);
2:totalm:=(hachoklo*jum);
3:totalm:=(haguavaj*jum);
4:totalm:=(haavukaj*jum);
else goto ulangminum;
end;
case pilmi of
1:tmin:=tmin+(hackkies*jum);
2:tmin:=tmin+(hachoklo*jum);
3:tmin:=tmin+(haguavaj*jum);
4:tmin:=tmin+(haavukaj*jum);
else goto ulangminum;
end;
writeln('');
write('Anda memesan ',jum,' ',minuman,' dengan total Rp.',totalm);
writeln('');
write('Apakah Anda ingin memesan minuman yg lainnya juga?(y/t): ');
readln(pmlg);
if (pmlg='Y')or (pmlg='y')then goto mlg ;
bayarlg:
writeln('');
loko;
clrscr;
total:=tmin+tmak;
writeln('');
writeln('>>>>> Nota Pembayaran <<<<<');
writeln('Jadi Total Bayar:');
writeln('Total Makanan Rp.',tmak);
writeln('Total Minuman Rp.',tmin);
writeln('--------------------------');
writeln('Total Bayar: Rp.',total);
write ('Uang Bayar Rp.');
readln(bayar);
kembali:=bayar-total;
if bayar<total then writeln('Maaf Uang Anda Kurang..!! Bayar lagi...!!!');
if bayar<total then goto bayarlg;
writeln('Uang Kembali Rp.',kembali);
writeln;
end;
tmak:=0;
tmin:=0;
writeln('Transaksi Selesai ^_^');
writeln('');
textcolor (lightgreen);
write('Apakah Anda Ingin Kluar dr aplikasi ini?(y/t): ');
readln(ts);
if ts='T' then ts:='t';
if ts='t'then goto awal;
end;
slesai:
end.
Maaf jika masih banyak bug dalam program tersebut ^_^
