BAB I
PENDAHULUAN
a.
Latarbelakang
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
padaawalnyaadalahkompiler Blue Label Pascal yang
dibuatuntuksistemoperasikomputermikroberbasiskaset, NasSys, milikNascomtahun
1981 olehAnders Hejlsberg.Kompilertersebutditulisulanguntuk CP/M dandinamaiCompas Pascal,
dankemudiandinamai Turbo Pascal untuksistemoperasi MS-DOS dan CP/M. Versi Turbo
Pascal untukkomputer Apple Macintosh sebenarnyapernahditembangkantahun 1986,
namunpengembangannyadihentikansekitartahun 1992. Versi-versilainpernahtersedia
pula untukmesin-mesin CP/M seperti DEC Rainbow dalambeberapapenembangan.
b. Rumusan masalah
Berdasarkanlatarbelakang yang telahdipaparkan di atas,
makapenulistelahmenentukanbeberaparumusanmasalahdalampembuatan program data
barang.
yaitu:
1.
Gambaranumum program;
2.
Flow Chart program;
3.
Koding program;
4.
Lay out program.
c.
Tujuan
Sejalandenganrumusanmasalah di
atas, makalahinidisusundengantujuanuntukmengetahuidanmendeskripsikan:
1.
Strukturpemrogramandananalisamasalah;
2. Implementasisebuah
program.
BAB II
PEMBAHASAN
a.
Gambaranumum program
Program data
baranginidibuatuntukmemudahkandalampekerjaankhusunyadibidangpenjualan,
dimanaseorang user denganmudahmengetahui data barang yang ada di toko/grosir.
Program inidibuatdenganmenggunakanbahasapemrograman Pascal
danditulisdenganaplikasi Turbo Pascal For Window dengan lay out program yang
sederhanasehingga user dapatdenganmudahmengoperasikannya.
b.
Flow chart program
Diagram alur (flowchart)
merupakan gambar atau bagan yang memperlihatkan urutan danhubungan antar
proses beserta instruksinya. Bagan ini dinyatakan dengan simbol. Dengandemikian
setiap simbol menggambarkan proses tertentu sedangkan hubungan antarproses digambarkan
dengan garis penghubung. Simbol-simbol diagram alur.
c.
Koding program
c.1.
Pengkodeandenganstrukturpemilihan (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.
Pengkodeandenganstruktur 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
baranginidibuatuntukmemudahkandalampekerjaandimanaseorang user
denganmudahmengetahui data barang yang ada di toko/grosir.Program
inidibuatdenganmenggunakanbahasapemrograman Pascal.Diagram alur (flowchart) merupakan gambar
atau bagan yang memperlihatkan urutan danhubungan antar proses beserta
instruksinya.Koding program adalahperintah program
denganstrukturpemrogramanbahasa Pascal danLay out program
adalahhasilakhirdaripemrograman yang akandiimplementasikan.
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.