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 pengembangan.
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.
Tidak ada komentar:
Posting Komentar