Contoh Program Billing Pemesanan Restoran

Program Billing;
Uses Crt;

Var
pilihan,uang,jenisbt,harga,kembalian: integer ;
jenis,tanya,pesanan: string ;

begin
writeln('----------------------------BIll PEMBAYARAN--------------------------');
writeln ;
writeln('Daftar Menu : ');
writeln('1.Batagor = Rp.1000');
writeln('2.Soto = Rp.2000');
writeln('3.Bakso = Rp.3000');
writeln;
write('jumlah uang :Rp.') ; readln(uang);
begin
repeat
if uang<1000 then writeln('maaf uang anda tidak cukup') else write('pilihan 1/2/3 : '); readln(pilihan); case pilihan of 1:begin pilihan:=1000; jenis:='batagor ,'; write('1.kuah atau 2.kering = '); readln(jenisbt) ; if (jenisbt=1) then begin writeln('anda membeli ',jenis,' kuah ',' harga :Rp.',pilihan); pilihan:=1000 ; end else if (jenisbt=2)then begin writeln('anda membeli ',jenis,' kering ',' harga :Rp.',pilihan); pilihan:=1000; end else if (jenisbt>2) then
begin
writeln('yang anda maksud tidak ada di daftar');
pilihan:=0;
end
end;
2:begin
if (uang<2000) then begin writeln('uang anda tidak mencukupi'); pilihan:=0; end else pilihan:=2000; jenis:='soto ,'; writeln('anda membeli ',jenis,' harga :Rp.',pilihan); end; 3:begin if (uang<3000) then begin writeln('uang anda tidak mencukupi'); pilihan:=0; end else pilihan:=3000; jenis:='bakso ,'; writeln('anda membeli ',jenis,' harga :Rp.',pilihan); end; else pilihan:=0; writeln('MENU TIDAK ADA'); end; if pilihan=0 then jenis:='' else harga:=harga ; harga:=pilihan+harga; pesanan:=pesanan; pesanan:=pesanan + jenis; uang:=uang-pilihan; writeln; if uang>=1000 then
writeln('sisa uang anda Rp.',uang);
writeln;
write('Apakah anda ingin pesan lagi (y/t): ');readln(tanya);
clrscr;
writeln('---------------------------BIll PEMBAYARAN---------------------------');
writeln ;
writeln('Daftar Menu : ');
writeln('1.Batagor = Rp.1000');
writeln('2.Soto = Rp.2000');
writeln('3.Bakso = Rp.3000');
writeln;
writeln('sisa uang anda Rp.',uang);
writeln('Makanan yang telah anda pesan adalah :',' ',pesanan);
if tanya='y' then
until(uang<1000)or(tanya='t');
end;
clrscr;
if (tanya='t') then
writeln('Total Belanja :Rp.',harga)
else
writeln('Tidak bisa membeli lagi, Pengeluaran :Rp.',harga);
writeln('Makanan yang telah anda pesan adalah :',' ',pesanan);
writeln('Sisa uang anda Rp.',uang);
writeln;
writeln('TERIMAKASIH ATAS KUNJUNGANNYA ^_^') ;
readln();
end.