-->

    Social Items

SPACE IKLAN ( ADS ) CLICK HERE



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 .

    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 .

      Subscribe Our Newsletter