Disusun Oleh : Kelompok 2
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 makalah ini.
Tidak ada komentar:
Posting Komentar