PROGRAM PEMBELIAN BARANG MENGGUNAKAN PASCAL

Oleh peistar

Tuesday, 21 June 2016

Bagikan :

Tweet

Dalam pembelian barang kita sangat membutuhkan yang namanya sebuah laporan, laporan ini bertujuan sebagai bukti telah melakukan transakasi pembelian barang. Pada kesempatan kali ini saya akan memberikan cara membuat program penjualan sederhana dengan menggunakan Bahasa Pemrograman Pascal. Untuk memulai cara pembuatannya saudara dapat mengikuti langkah – langkah dibawah ini dengan benar.

- Langkah Pertama : Copy dan Pastekan Code Program dibawah ini kedalam Notepad kemudaian simpan dengan Program_Penjualan.Pas.

Tampilan Program

Code Program :

USES CRT;

VAR KB, NB : ARRAY[1..10] OF STRING;

    HG, JML : ARRAY[1..10] OF LONGINT;

    ADL: CHAR;

    JD, X, BR : BYTE;

    TOTAL, DISC, PB : REAL;

BEGIN

     ADL:='Y';JD:=0;

     WHILE (ADL='Y') AND (JD<=10) DO

     BEGIN

          CLRSCR;

          GOTOXY(25,5);WRITE('ENTRY DATA PEMBELIAN');

          GOTOXY(25,6);WRITE('====================');

          JD:=JD+1;

          GOTOXY(25, 8);WRITE('KODE  BARANG :');READLN(KB[JD]);

          GOTOXY(25, 9);WRITE('NAMA  BARANG :');READLN(NB[JD]);

          GOTOXY(25,10);WRITE('HARGA BARANG :');READLN(HG[JD]);

          GOTOXY(25,11);WRITE('JUMLAH       :');READLN(JML[JD]);

          GOTOXY(25,12);WRITE('ADA DATA LAGI[Y/T] :');READLN(ADL);

     END;
CLRSCR;

GOTOXY(1,1);WRITE('LAPORAN PEMBELIAN BARANG');

GOTOXY(1,2);WRITE('TOKO PEISTAR KOMPUTER');

GOTOXY(1,3);WRITE('Jl. Jendral Sudirman No. 99 - Telpon (0760)');

GOTOXY(1,5);WRITE('--------------------------------------------------------------------------------------------- ');

GOTOXY(1,6);WRITE('| NO | KODE | NM BARANG | HARGA | JUMLAH |  TOTAL | DISC | PEMBAY |');

GOTOXY(1,7);WRITE('----------------------------------------------------------------------------------------------');

                                    {1234567890123456789012345678901234567890123456789012345678901234567890}

                                  

BR:=8;TOTAL:=0;

     FOR X:=1 TO JD DO

     BEGIN

          GOTOXY(1,BR);WRITE('| ', X);

          GOTOXY(6,BR);WRITE('|' , KB[X]);

          GOTOXY(13,BR);WRITE('|' , NB[X]);

          GOTOXY(27,BR);WRITE('|' , HG[X]);

          GOTOXY(35,BR);WRITE('| ', JML[X]);

          TOTAL:=HG[X]*JML[X];

          IF TOTAL>500000 THEN DISC:=0.2*TOTAL

          ELSE IF TOTAL>250000 THEN DISC:=0.15*TOTAL

          ELSE IF TOTAL>100000 THEN DISC:=0.1*TOTAL

          ELSE DISC:=0;

          PB:=TOTAL-DISC;

          GOTOXY(44,BR);WRITE('|', TOTAL:6:1);

          GOTOXY(53,BR);WRITE('|' , DISC:8:1);

          GOTOXY(64,BR);WRITE('|' , PB:9:1);

          GOTOXY(77,BR);WRITE('|');

          BR:=BR+1

     END;

 GOTOXY(1,BR);WRITE('-------------------------------------------------------------------------------------------');

READKEY;

END.

Keterangan : Jalankan program ini  kemudian akan tampil Form Pembelian Barang, silahkan saudara masukan data barang yang akan dibeli, apabila saudara membeli barang lebih dari satu ketikan Y untuk melanjutkan pembelian berikutnya, sedangkan apabila saudara hanya membeli barang satu atau mau mengakhiri dan menampilkan laporan silahkan ketikan T sehingga laporan pembelian barang akan tampil secara otomatis.

Demikian yang dapat saya sampaikan semoga bermanfaat untuk kita semua pada kesempatan berikutnya saya akan memberikan tutorial yang lebih menarik lagi tentunya, terimakasih banyak atas kunjungan saudara salam kompak selalu untuk kita semua. Wasallammmmm.....

Tag : Pemrograman Pascal