Program mesin kasir sederhana menggunakan tabel pada pascal

Baca Juga

Cara membuat program mesin kasir minimarket sederhana menggunakan tabel pada pemrograman pascal

baiklah sobat selamat berkunjung kembali ke artikel saya yang singkat ini. berikut saya akan membuat sebuah pemrograman pascal tentang cara membuat program mesin kasir minimarket sederhana menggunakan tabel.

Tabel adalah daftar yang berisi ikhtisar sejumlah data data yang berisi informasi yang biasanya berupa kata kata atau bilangan yang tersusun dengan menggunakan pembatas.

Program mesin kasir sederhana ini merupakan prosedur harga barang yang apabila ketika simasukkan kode barang yang di tulis pada program pascal ini. maka secara otomatis harga barang akan keluar di dalam tabel tersebut, begitu juga nama barang dari kode barang yang di inputkan.

Program dibawah ini sudah saya atur sedemikian rupa mengunakan struktur data tambahan seperti Gotoxy, dan juga sudah memasukkan rumus logika if jika salah satu kode barang dimasukkan. untuk lebih jelasnya lagi lihat gambar dibawah ini :

Program mesin kasir pada -pada pascal

Baca juga (Cara penggunaan Gotoxy dan Textcolor pada pascal)
Keterangan :

• Jika kode barang " HD " Nama barang " Harddisk " dan harga satuan " 850000"
• Jika kode barang " MNTR " Nama barang " Monitor " dan harga satuan " 550000 "
• Jika kode barang " PRNT " Nama barang " Printer " dan harga satuan " 500000 "

Untuk mencari total bayar maka harga satuan dikali dengan jumlah barang yang dibeli.

berikut contoh program aplikasi mesin kasir sederhana pada pascal:

Code Program :

Uses crt;

Var Kode_Barang:String;

Jumlah_Barang:Integer;

Total_Bayar:Real;

begin

clrscr;

gotoxy(30,2); Writeln('CV. Global Kuansing');

gotoxy(25,3); Writeln('Jl. Mawar No. 09 Teluk Kuantan');

gotoxy(20,4); Writeln('****************************************');

gotoxy(20,7); Writeln('Kode Barang   :');

gotoxy(20,8); Writeln('Jumlah Barang :');

gotoxy(20,10); Writeln('++++++++++++++++++++++++++++++++');

gotoxy(20,11); Writeln('+ Nama Barang  +  Harga Satuan +');

gotoxy(20,12); Writeln('++++++++++++++++++++++++++++++++');

gotoxy(20,13); Writeln('+              +               +');

gotoxy(20,14); Writeln('++++++++++++++++++++++++++++++++');

gotoxy(20,16); Writeln('Total Biaya   :'); gotoxy(45,20);

gotoxy(36,7); Readln(Kode_Barang);

gotoxy(36,8); Readln(Jumlah_Barang);

gotoxy(23,13); If Kode_Barang='HD' then

begin

Writeln('Harddisk');

gotoxy(40,13); Writeln('850000');

gotoxy(37,16); Total_Bayar:= Jumlah_Barang * 850000;

Writeln(Total_Bayar:2:0);

end;

gotoxy(23,13); If Kode_Barang='MNTR' then

begin

Writeln('Monitor');

gotoxy(40,13); Writeln('550000');

gotoxy(37,16); Total_Bayar:= Jumlah_Barang * 550000;

Writeln(Total_Bayar:2:0);

end;

gotoxy(23,13); If Kode_Barang='PRNT' then

begin

Writeln('Printer');

gotoxy(40,13); Writeln('500000');

gotoxy(37,16); Total_Bayar:= Jumlah_Barang * 500000;

Writeln(Total_Bayar:2:0);

end;

readkey;

end.

Paste kan kode yang berwarna biru diatas pada aplikasi turbo pascal sobat atau pada aplikasi free turbo pascal sobat. ok semoga sukses ya sob.

Baiklah itulah artikel singkat yang membahas tentang cara membuat program mesin kasir sederhan menggunakan tabel pada pemrograman pascal. terimakasih telah berkunjung ke blog saya yang mungil ini, semoga ada manfaatnya. assalamualaikum wr wb.

Subscribe to receive free email updates: