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. Coding 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.
Layout 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.
