Program Kasir Warung dari PASCAL

Jaman sekarang atau dijaman Globalisasi ini pasti sekarang semua serba instan. alat komunikasi bahkan juga ada bisnis online. segalanya serba instan sampai pembuatan mie pun dengan cara instant (mie instan). Nahh, karena itulah saya akan membantu anda khususnya bagi yang punya warung dan masih menghitung total belanja yang masih pakai kalkulator nieh (udah nggak jaman), saya akan membuatkan anda kasir otomatis yang bisa menghitung jumlah total dari keseluruhan belanja dari pelanggan anda. contohnya seperti ini niihh :

Bagus kan program diatas.
bagi anda nieh yang ingin program seperti itu, ikuti saja petunjuk dibawah ini :

1. Buka aplikasi Turbo Pascal anda.
2. Copy teks di bawah ini :

uses crt; var pilihmakan,pilihminum:integer;     hargamakan,hargaminum:integer;     totalbayar:integer; begin clrscr; writeln('Program Kasir Warung.'); writeln; writeln('===================='); writeln; writeln('Menu Makan.'); writeln; writeln('1.Nasi pecel   Rp.3000'); writeln('2.Nasi Kare    Rp.5000'); writeln('3.Nasi Rawon   Rp.7000'); writeln('4.Nasi Lodeh   Rp.4000'); writeln('----------------------'); write('Tadi Makan (1/2/3/4) :  ');readln(pilihmakan); writeln('Menu Minuman'); writeln('1.Es Teh       Rp.1500'); writeln('2.Es Degan     Rp.3000'); writeln('3.Es Jeruk     Rp.2000'); writeln('4.Es Sogem     Rp.5000'); writeln('----------------------'); write('Tadi Minum (1/2/3/4) :  ');readln(pilihminum); writeln; if pilihmakan=1 then    hargamakan:=3000 else if pilihmakan=2 then    hargamakan:=5000 else if pilihmakan=3 then    hargamakan:=7000 else    hargamakan:=4000; if pilihminum=1 then    hargaminum:=1500 else if pilihminum=2 then    hargaminum:=3000 else if pilihminum=3 then    hargaminum:=2000 else    hargaminum:=5000; totalbayar:=(hargamakan+hargaminum); writeln('Harga Makan =Rp.',HargaMakan); writeln('Harga Minum =Rp.',HargaMinum); writeln('Total Bayar =Rp.',Totalbayar); readln; end.

Keterangan:
Program boleh anda ganti, tambah atau anda kurangi sesuai keinginan anda.

3. Jalankan progam di atas dengan menekan tombol CTRL+F9.

Lihat hasilnya.
Selamat anda berhasil !!!