fork download
copy 
  1. program menu_warung ;
  2. uses crt ;
  3. var Pizza_Small,Hamburger,Hot_Dog,Ice_Cola,Lemon_Tea,Mineral_Water,  a,b,c,d,e,f,bayar,jumlah:longint;
  4. begin
  5. Pizza_Small              :=  59900      ;
  6. Hamburger                :=  14900      ;
  7. Hot_Dog                  :=  19900      ;
  8. Ice_Cola                 :=  7900      ;
  9. Lemon_Tea                :=  4900       ;
  10. Mineral_Water            :=  3900       ;
  11. writeln('=============================================================');
  12. writeln('                           FOOD COURT                                    ');
  13. writeln('=============================================================');
  14. writeln('Menu :                                                                   ');
  15. writeln('1. Pizza Small                                                Rp 59900');
  16. writeln('2. Hamburger                                                  Rp 14900');
  17. writeln('3. Hot Dog                                                    Rp 19900');
  18. writeln('4. Ice Cola                                                   Rp 7900');
  19. writeln('5. Lemon Tea                                                  Rp 4900');
  20. writeln('6. Mineral Water                                              Rp 3900');
  21. writeln('=============================================================');
  22. writeln('Jumlah Pembelian : ');
  23. write('Pizza Small : ');
  24. read(a);
  25. write('Hamburger  : ');
  26. read(b);
  27. write('Hot Dog : ');
  28. read(c);
  29. write('Ice Cola  : ');
  30. read(d);
  31. write('Lemon Tea : ');
  32. read(e);
  33. write('Mineral Water : ');
  34. read(f);
  35. jumlah:= (Pizza_Small*a)+(Hamburger*b)+(Hot_Dog*c)+(Ice_Cola*d)+(Lemon_Tea*e)+(Mineral_Water*f);
  36. writeln('total pembelian sejumlah  :Rp ',jumlah);
  37. write('Anda membayar sejumlah   :Rp ');
  38. read(bayar);
  39. writeln('Anda menerima kembalian : Rp ',bayar-jumlah);
  40. writeln('=============================================================');
  41. writeln('        –Terima Kasih, Selamat Menikmati, Anda puas kami selamat–      ');
  42. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas:2: error: module/unit interface `crt' could not be imported
stdout
copy 
Standard output is empty
https://ideone.com/fBH1kk
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!