Berikut screenshot program outputnya gan . Silahkan dicoba jika ada kesalahan harap komentar dibawah , kita diskusikan sama-sama .
 |
| Spoiler output Program Kasir |
Langsung saja kita ke topic utama
- Open DOSBox nya
- Ketik " mount c: c:\tp7 " ( sesuaikan lokasi tp7 nya kalau saya simpanya di c )
- Ketik " c: "
- Ketik " cd BIN "
- Ketik " TURBO.EXE "
- Setelah itu write code nya .
- Compile code nya ( alt + f9 )
- Run ( ctrl + f9 )
Berikut Listing Code nya ( silahkan di write yak biar paham dan mengerti jangan langsung copy and paste . Ini bertujuan supaya sobat sendiri mengerti dan untuk dirimu sendiri gan
Lebih bagus untuk menuliskan script di atas tanpa menyalin, berikut keluaran dari textarea di atas
Program Kasir;
uses
crt;
label
awal,exit;
var
nam_bar :string;{nama barang}
har_sat :real ;{harga satuan}
ban_bar :real ;{banyak barang}
tot_har :real ;{total harga}
uang_cash:real ;{uang cash}
pot_har:real;{potongan harga}
kemb :real;{kembalian}
non_pot :real;{non potongan}
ya :char;{kembali ke awal}
{ * https://yogithesymbian.blogspot.com
https://www.yogi-aw.id
*}
begin
awal:
clrscr;
writeln('PROGRAM KASIR ');
writeln('-------------- yogithesymbian.blogspot.com');
write('Nama Barang:'); readln(nam_bar);
write('Harga Satuan :Rp.'); readln(har_sat);
write('Banyak Barang:') ; readln(ban_bar);
tot_har:=(har_sat*ban_bar);
writeln('Total Harga :Rp.',tot_har:1:0);
if tot_har>=5000 then
pot_har:=(0.1*tot_har);
if tot_har<500 then
pot_har:=(0.0*tot_har);
writeln('Potongan Harga :Rp. ',pot_har:1:0);
write('Uang Cash :Rp.'); readln(uang_cash);
kemb:=(uang_cash)-(tot_har-pot_har);
writeln('Uang Kembalian :Rp.',kemb:1:0);
write('Masukkan Data Lagi(y/n)?'); readln(ya);
if ya='y' then
goto awal
else if ya='n' then
goto exit;
exit:
end.
======================================================================
Jangan lupa nih ... gan , jangan langsung copy paste source code tersebut . Carilah referensi mengenai alur dan maksud dari masing-masing script agar kita paham . Mungkin di lain waktu akan saya bahas untuk penjelasan atas script yang di inputkan :)
Semoga bermanfaat gan .