Program Kasir Pascal

Program Kasir Pascal . kali ini ane share pola kegiatan pascal kasir market atau pasac ,berguna untuk menghitung suatu pembayaran dengan baik. Program ini aku buat ketika aku bersekolah, Source code ini aku bagikan untuk sekedar sharing mungkin ini sedikit berguna. Silahkan dikembangkan script di bawah ini dan Jangan lupa untuk tidak mengganti general public licensi(GPL) . Silahkan sahabat oprek-oprek sendiri ( open source ).

Berikut screenshot kegiatan outputnya gan . Silahkan dicoba jikalau ada kesalahan harap komentar dibawah , kita diskusikan sama-sama .

Spoiler output Program Kasir

Langsung saja kita ke topic utama

1.     Open DOSBox nya
2.     Ketik " mount c: c:\tp7 " ( sesuaikan lokasi tp7 nya kalau aku simpanya di c )
3.     Ketik " c: "
4.     Ketik " cd BIN "
5.     Ketik " TURBO.EXE "
6.     Setelah itu write code nya .
7.     Compile code nya ( alt + f9 )
8.     Run ( ctrl + f9 )

Berikut Listing Code nya ( silahkan di write yak biar paham dan mengerti jangan eksklusif copy and paste . Ini bertujuan supaya sahabat sendiri mengerti dan untuk dirimu sendiri gan

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.

Lebih elok 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 eksklusif copy paste source code tersebut . Carilah tumpuan mengenai alur dan maksud dari masing-masing script semoga kita paham . Mungkin di lain waktu akan aku bahas untuk klarifikasi atas script yang di inputkan :)

 Semoga bermanfaat gan .

Sumber https://scodeid.blogspot.com/

Berbagi :