Wednesday, May 3, 2017

Program Kasir Pascal




Program Kasir Pascal . kali ini ane share contoh program pascal kasir market atau pasac ,berguna untuk menghitung suatu pembayaran dengan baik. Program ini saya buat saat saya bersekolah, Source code ini saya 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 sobat oprek-oprek sendiri ( open source ).

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

Program Kasir Pascal
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 saya 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 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 .

    Artikel Terkait

    8 komentar

    Makasih banyak gan, sangat bermanfaat. Ngomong-ngomong logikanya mantap (y)

    hehe , terima kasih gan , silahkan dicoba buat programnya (y)

    Nice info, bisa dicoba nih, thanks ya gan

    silahkan gan .. langsung dicoba aja

    kalau mau bkin yg belom tau jumlah barang gmn ya gan?

    Hi Kevin Alexander,
    hapus saja pada variable ban_bar :real ;{banyak barang}
    lalu
    hapus begin write('Banyak Barang:') ; readln(ban_bar);
    thanks .


    EmoticonEmoticon