untung99play.xyz: Program mesin kasir sederhana menggunakan tabel pada pascal

Untung99 menawarkan beragam permainan yang menarik, termasuk slot online, poker, roulette, blackjack, dan taruhan olahraga langsung. Dengan koleksi permainan yang lengkap dan terus diperbarui, pemain memiliki banyak pilihan untuk menjaga kegembiraan mereka. Selain itu, Untung99 juga menyediakan bonus dan promosi menarik yang meningkatkan peluang kemenangan dan memberikan nilai tambah kepada pemain.

Berikut adalah artikel atau berita tentang Harian untung99play.xyz dengan judul untung99play.xyz: Program mesin kasir sederhana menggunakan tabel pada pascal yang telah tayang di untung99play.xyz terimakasih telah menyimak. Bila ada masukan atau komplain mengenai artikel berikut silahkan hubungi email kami di koresponden@untung99play.xyz, Terimakasih.

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:

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

gotoxy(40,13); Writeln(‘850000’);

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

Writeln(Total_Bayar:2:0);

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

gotoxy(40,13); Writeln(‘550000’);

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

Writeln(Total_Bayar:2:0);

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

gotoxy(40,13); Writeln(‘500000’);

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

Writeln(Total_Bayar:2:0);

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.