Program Kasir Pascal

Program Kasir Pascal - Kembali lagi di blog Cara2xMudah, Pada kesempatan kali ini admin akan membagikan artikel tentang Program Kasir Pascal, dan admin telah menyiaplkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan pada Artikel Pascal, Artikel Programming Language, Artikel Sekolah, Artikel Sekolah Programmer, yang kami tulis ini dapat dengan mudah anda pahami. baiklah, tidak usah berlama-lama selamat membaca.

Judul : Program Kasir Pascal
link : Program Kasir Pascal

Baca juga


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 .

kali ini ane share pola kegiatan pascal kasir market 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 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


    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/


    Demikianlah artikel kali ini tentang Program Kasir Pascal

    dengan adanya artikel Program Kasir Pascal yang admin bagikan kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan atau artikel menarik lainnya dan terimaksih telah berkunjung.

    Anda sekarang membaca artikel Program Kasir Pascal dengan alamat link https://cara2xmudah.blogspot.com/2017/04/program-kasir-pascal.html