hidup adalah perjuangan

Makalah Program Penjualan Menggunakan TPW [Tugas Struktur Data Kelompok 1

Membuat Program Penjualan Procedure  dan IF

 

BAB I

PENDAHULUAN

a.         Latar belakang

Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland. Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.

Turbo Pascal pada awalnya adalah kompiler Blue Label Pascal yang dibuat untuk sistem operasi komputer mikro berbasis kaset, NasSys, milik Nascom tahun 1981 oleh Anders Hejlsberg. Kompiler tersebut ditulis ulang untuk CP/M dan dinamai Compas Pascal, dan kemudian dinamai Turbo Pascal untuk sistem operasi MS-DOS dan CP/M. Versi Turbo Pascal untuk komputer Apple Macintosh sebenarnya pernah ditembangkan tahun 1986, namun pengembangannya dihentikan sekitar tahun 1992. Versi-versi lain pernah tersedia pula untuk mesin-mesin CP/M seperti DEC Rainbow dalam beberapa penembangan.

b.         Rumusan masalah

Berdasarkan latar belakang yang telah dipaparkan di atas, maka penulis telah menentukan beberapa rumusan masalah dalam pembuatan program data barang.

yaitu:

1. Gambaran umum program;

2. Flow Chart program;

3. Koding program;

4. Lay out program.

c.         Tujuan

Sejalan dengan rumusan masalah di atas, makalah ini disusun dengan tujuan untuk mengetahui dan mendeskripsikan:

1. Struktur pemrograman dan analisa masalah;

2. Implementasi sebuah program.

BAB II

PEMBAHASAN

a. Gambaran umum program

Program data barang ini dibuat untuk memudahkan dalam pekerjaan khusunya dibidang penjualan, dimana seorang user dengan mudah mengetahui data barang yang ada di toko/grosir. Program ini dibuat dengan menggunakan bahasa pemrograman Pascal dan ditulis dengan aplikasi Turbo Pascal For Window dengan lay out program yang sederhana sehingga user dapat dengan mudah mengoperasikannya. 

b. Flow chart program

Diagram alur (flowchart) merupakan gambar atau bagan yang memperlihatkan urutan dan hubungan antar proses beserta instruksinya. Bagan ini dinyatakan dengan simbol. Dengan demikian setiap simbol menggambarkan proses tertentu sedangkan hubungan antar proses digambarkan dengan garis penghubung. Simbol-simbol diagram alur.


c. Koding program

c.1.      Pengkodean dengan struktur pemilihan (IF)

PROGRAM DATA_BARANG;

USES WINCRT;

VAR

ULANG                    : CHAR;

KDBR,PILIH               : STRING;

KET1                     : LONGINT;

BEGIN

ULANG := 'Y';

WHILE ULANG = 'Y' DO

BEGIN

CLRSCR;

WRITELN('                                           PROGRAM DATA BARANG');

WRITELN('                           TOKO BERKAH MAKMUR GROSIR DAN ECERAN');

WRITELN('ALAMAT : JL. KHZ. MUSTHAFA NO. 22 SUKAHIDENG-SUKARAPIH-TASIKMALAYA 43364');

WRITELN('=======================================================================');

WRITELN('Struktur IF                                                                                                    Kelompok 2 © 2013');

WRITELN('=======================================================================');

WRITELN;

WRITELN('KODE JENIS BARANG');

WRITELN('---------------------------------------------------');

WRITELN('*  B11 [SEMBAKO] - B12 [MAKANAN] - B13 [MINUMAN]  *');

WRITELN('---------------------------------------------------');

WRITELN;

WRITE('PILIH JENIS DATA BARANG : ');READLN(PILIH);

IF PILIH = 'B11' THEN

BEGIN

CLRSCR;

     WRITELN('KATEGORI SEMBAKO');

     WRITELN;

     WRITELN('DAFTAR KODE BARANG : ');

     WRITELN('------------------------------------------');

     WRITELN('BR-001 [SABUN MANDI] BR-002 [SABUN CUCI  ]');

     WRITELN('BR-003 [TERIGU     ] BR-004 [MINYA GORENG]');

     WRITELN('------------------------------------------');

     WRITELN;

     WRITE('KODE BARANG    : ');READLN(KDBR);

     IF KDBR = 'BR-001' THEN

     BEGIN

        WRITELN('NAMA BARANG    : SABUN MANDI');

        KET1 :=2500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 1');

        WRITELN('STOK           : 10 BTG');

     END;

     IF KDBR = 'BR-002' THEN

     BEGIN

        WRITELN('NAMA BARANG    : SABUN CUCI');

        KET1 :=3500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 1');

        WRITELN('STOK           : 5 BKS');

     END;

     IF KDBR = 'BR-003' THEN

     BEGIN

        WRITELN('NAMA BARANG    : TERIGU');

        KET1 :=2300;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 2');

        WRITELN('STOK           : 10 KG');

     END;

     IF KDBR = 'BR-004' THEN

     BEGIN

        WRITELN('NAMA BARANG    : SABUN CUCI');

        KET1 :=3500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 2');

        WRITELN('STOK           : 5');

     END;

END;

IF PILIH = 'B12' THEN

BEGIN

CLRSCR;

     WRITELN('KATEGORI MAKANAN');

     WRITELN;

     WRITELN('DAFTAR KODE BARANG : ');

     WRITELN('--------------------------------------------');

     WRITELN('BR-005 [WAFER NISSIN] BR-006 [KACANG GARUDA]');

     WRITELN('BR-007 [SARI ROTI   ] BR-008 [KHONG GUAN   ]');

     WRITELN('--------------------------------------------');

     WRITELN;

     WRITE('KODE BARANG    : ');READLN(KDBR);

     IF KDBR = 'BR-005' THEN

     BEGIN

        WRITELN('NAMA BARANG    : WAFER NISSIN');

        KET1 :=12500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 3');

        WRITELN('STOK           : 5 KLG');

     END;

     IF KDBR = 'BR-006' THEN

     BEGIN

        WRITELN('NAMA BARANG    : KACANG GARUDA');

        KET1 :=1500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 3');

        WRITELN('STOK           : 10 PAK');

     END;

     IF KDBR = 'BR-007' THEN

     BEGIN

        WRITELN('NAMA BARANG    : SARI ROTI');

        KET1 :=2500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 3');

        WRITELN('STOK           : 20 BKS');

     END;

     IF KDBR = 'BR-008' THEN

     BEGIN

        WRITELN('NAMA BARANG    : KHONG GUAN');

        KET1 :=25000;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 2');

        WRITELN('STOK           : 5 KLG');

     END;

END;

IF PILIH = 'B13' THEN

BEGIN

CLRSCR;

     WRITELN('KATEGORI MINUMAN');

     WRITELN;

     WRITELN('DAFTAR KODE BARANG : ');

     WRITELN('----------------------------------------------');

     WRITELN('BR-009 [COCA-COLA   ] BR-010 [TEH PUCUK       ]');

     WRITELN('BR-011 [POCARI SWEAT] BR-012 [LARUTAN PENYEGAR]');

     WRITELN('----------------------------------------------');

     WRITELN;

     WRITE('KODE BARANG    : ');READLN(KDBR);

     IF KDBR = 'BR-009' THEN

     BEGIN

        WRITELN('NAMA BARANG    : COCA-COLA');

        KET1 :=12500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 4');

        WRITELN('STOK           : 7 BTL');

     END;

     IF KDBR = 'BR-010' THEN

     BEGIN

        WRITELN('NAMA BARANG    : TEH PUCUK');

        KET1 :=1500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 4');

        WRITELN('STOK           : 5 BTL');

     END;

     IF KDBR = 'BR-011' THEN

     BEGIN

        WRITELN('NAMA BARANG    : POCARI SWEAT');

        KET1 :=2500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 4');

        WRITELN('STOK           : 8 BTL');

     END;

     IF KDBR = 'BR-012' THEN

     BEGIN

        WRITELN('NAMA BARANG    : LARUTAN PENYEGAR');

        KET1 :=25000;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 4');

        WRITELN('STOK           : 5 KLG');

     END;

END;

WRITELN;

WRITE('APAKAH AKAN MENGULANG PENCARIAN DATA Y/T ? ');READLN(ULANG);

IF ULANG = 'T' THEN

DONEWINCRT;

END;

END.

c.2.      Pengkodean dengan struktur parameter (Procedure)

PROGRAM DATA_BARANG;

USES WINCRT;

VAR

ULANG                    : CHAR;

PILIH                    : STRING;

PROCEDURE MULAI;

BEGIN

WRITELN('KODE JENIS BARANG');

WRITELN('---------------------------------------------------');

WRITELN('*  B11 [SEMBAKO] - B12 [MAKANAN] - B13 [MINUMAN]  *');

WRITELN('---------------------------------------------------');

WRITELN;

WRITE('PILIH JENIS DATA BARANG : ');READLN(PILIH);

END;

PROCEDURE SEMBAKO;

VAR

KDBR : STRING;

KET1 : LONGINT;

BEGIN

     CLRSCR;

     WRITELN('KATEGORI SEMBAKO');

     WRITELN;

     WRITELN('DAFTAR KODE BARANG : ');

     WRITELN('------------------------------------------');

     WRITELN('BR-001 [SABUN MANDI] BR-002 [SABUN CUCI  ]');

     WRITELN('BR-003 [TERIGU     ] BR-004 [MINYA GORENG]');

     WRITELN('------------------------------------------');

     WRITELN;

     WRITE('KODE BARANG    : ');READLN(KDBR);

          IF KDBR = 'BR-001' THEN

     BEGIN

        WRITELN('NAMA BARANG    : SABUN MANDI');

        KET1 :=2500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 1');

        WRITELN('STOK           : 10 BTG');

     END;

     IF KDBR = 'BR-002' THEN

     BEGIN

        WRITELN('NAMA BARANG    : SABUN CUCI');

        KET1 :=3500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 1');

        WRITELN('STOK           : 5 BKS');

     END;

     IF KDBR = 'BR-003' THEN

     BEGIN

        WRITELN('NAMA BARANG    : TERIGU');

        KET1 :=2300;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 2');

        WRITELN('STOK           : 10 KG');

     END;

     IF KDBR = 'BR-004' THEN

     BEGIN

        WRITELN('NAMA BARANG    : SABUN CUCI');

        KET1 :=3500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 2');

        WRITELN('STOK           : 5');

     END;

END;

PROCEDURE MAKANAN;

VAR

KDBR : STRING;

KET1 : LONGINT;

BEGIN

     CLRSCR;

     WRITELN('KATEGORI MAKANAN');

     WRITELN;

     WRITELN('DAFTAR KODE BARANG : ');

     WRITELN('--------------------------------------------');

     WRITELN('BR-005 [WAFER NISSIN] BR-006 [KACANG GARUDA]');

     WRITELN('BR-007 [SARI ROTI   ] BR-008 [KHONG GUAN   ]');

     WRITELN('--------------------------------------------');

     WRITELN;

     WRITE('KODE BARANG    : ');READLN(KDBR);

     IF KDBR = 'BR-005' THEN

     BEGIN

        WRITELN('NAMA BARANG    : WAFER NISSIN');

        KET1 :=12500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 3');

        WRITELN('STOK           : 5 KLG');

     END;

     IF KDBR = 'BR-006' THEN

     BEGIN

        WRITELN('NAMA BARANG    : KACANG GARUDA');

        KET1 :=1500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 3');

        WRITELN('STOK           : 10 PAK');

     END;

     IF KDBR = 'BR-007' THEN

     BEGIN

        WRITELN('NAMA BARANG    : SARI ROTI');

        KET1 :=2500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 3');

        WRITELN('STOK           : 20 BKS');

     END;

     IF KDBR = 'BR-008' THEN

     BEGIN

        WRITELN('NAMA BARANG    : KHONG GUAN');

        KET1 :=25000;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 2');

        WRITELN('STOK           : 5 KLG');

     END;

END;

PROCEDURE MINUMAN;

VAR

KDBR : STRING;

KET1 : LONGINT;

BEGIN

     CLRSCR;

     WRITELN('KATEGORI MINUMAN');

     WRITELN;

     WRITELN('DAFTAR KODE BARANG : ');

     WRITELN('----------------------------------------------');

     WRITELN('BR-009 [COCA-COLA   ] BR-010 [TEH PUCUK       ]');

     WRITELN('BR-011 [POCARI SWEAT] BR-012 [LARUTAN PENYEGAR]');

     WRITELN('----------------------------------------------');

     WRITELN;

     WRITE('KODE BARANG    : ');READLN(KDBR);

          IF KDBR = 'BR-009' THEN

     BEGIN

        WRITELN('NAMA BARANG    : COCA-COLA');

        KET1 :=12500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 4');

        WRITELN('STOK           : 7 BTL');

     END;

     IF KDBR = 'BR-010' THEN

     BEGIN

        WRITELN('NAMA BARANG    : TEH PUCUK');

        KET1 :=1500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 4');

        WRITELN('STOK           : 5 BTL');

     END;

     IF KDBR = 'BR-011' THEN

     BEGIN

        WRITELN('NAMA BARANG    : POCARI SWEAT');

        KET1 :=2500;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 4');

        WRITELN('STOK           : 8 BTL');

     END;

     IF KDBR = 'BR-012' THEN

     BEGIN

        WRITELN('NAMA BARANG    : LARUTAN PENYEGAR');

        KET1 :=25000;

        WRITELN('HARGA          : ',KET1);

        WRITELN('lOKASI         : RAK 4');

        WRITELN('STOK           : 5 KLG');

     END;

END;

BEGIN

ULANG := 'Y';

WHILE ULANG = 'Y' DO

BEGIN

CLRSCR;

WRITELN('                         PROGRAM DATA BARANG');

WRITELN('                  TOKO BERKAH MAKMUR GROSIR DAN ECERAN');

WRITELN('ALAMAT : JL. KHZ. MUSTHAFA NO. 22 SUKAHIDENG-SUKARAPIH-TASIKMALAYA 43364');

WRITELN('=======================================================================');

WRITELN('Struktur Procedure                                                                                      Kelompok 2 © 2013');

WRITELN('=======================================================================');

WRITELN;

MULAI;

IF PILIH ='B11' THEN

BEGIN

SEMBAKO

END;

IF PILIH ='B12' THEN

BEGIN

MAKANAN

END;

IF PILIH ='B13' THEN

BEGIN

MINUMAN

END;

WRITELN;

WRITE('APAKAH AKAN MENGULANG PENCARIAN DATA Y/T ? ');READLN(ULANG);

IF ULANG = 'T' THEN

DONEWINCRT;

END;

END.

d. Lay out program


BAB III

PENUTUP

a.         Kesimpulan

Program data barang ini dibuat untuk memudahkan dalam pekerjaan dimana seorang user dengan mudah mengetahui data barang yang ada di toko/grosir. Program ini dibuat dengan menggunakan bahasa pemrograman Pascal. Diagram alur (flowchart) merupakan gambar atau bagan yang memperlihatkan urutan dan hubungan antar proses beserta instruksinya. Koding program adalah perintah program dengan struktur pemrograman bahasa Pascal dan Lay out program adalah hasil akhir dari pemrograman yang akan diimplementasikan.

b.         Saran

            sesuai dengan pepatah “tiada gading yang tak retak” dengan demikian penulis menyadari sepenuhnya bahwa makalah ini masih sangat jauh dari kesempurnaan, hal ini dikarenakan keterbatasan wawasan maupun sumber-sumber data yang dimiliki penulis, dengan demikian kritik dan saran dari berbagai pihak sangat dinanti guna penyempurnaan malah ini. 

0 Response to "Makalah Program Penjualan Menggunakan TPW [Tugas Struktur Data Kelompok 1"

Posting Komentar