Archive for Desember 2013
hidup adalah perjuangan

Membuat Program Angsuran Biaya Menggunakan TPW 1.5

Sintaks Program :

program biaya;
uses wincrt;
var
   tmpt, nama, jurusan :string;
   no, total,tgl,bulan,tahun, bayar, sisa : real;
begin
   writeln('Formulir Angsuran Biaya');
   write  ('No          : ');readln(no);
   write  ('Nama        : ');readln(nama);
   write  ('TTL         : ');
   gotoxy(15,4);readln(tmpt);
   gotoxy(24,4);write(',');
   gotoxy(25,4);readln(tgl);
   if tgl > 31 then
   donewincrt;
   gotoxy(27,4);write('-');
   gotoxy(28,4);readln(bulan);
   if bulan > 12 then
   donewincrt;
   gotoxy(30,4);write('-');
   gotoxy(31,4);readln(tahun);
   if tahun > 1996 then
   donewincrt;
   write  ('Jurusan     : ');readln(jurusan);
   total:=700000;
   writeln('Total Biaya : Rp.',total:0:2);
   write  ('Bayar       : Rp.');readln(bayar);
   sisa := total-bayar;
   write  ('Sisa BAyar  : Rp.',sisa:0:2);
end.

Gambar program setelah dijalankan :

image

DaftarKelompok :

Muslihudin

Ega Herdiana

Muhamad Ramdan

Ahmad Sabit

Helmi Fauzi

Irham Mediawan

Tendi Edrisa

Fathul Bari Abdul Aziz

MANFAAT MEMPELAJARI BAHASA PASCAL

image
Bahasa Pascal berorientasi data, programmer diberi kemampuan untuk mendefenisikan tipe data sendiri. Dengan kebebasan ini pengecekan tipe data dilakukan secara ketat, yang menjamin bahwa tipe data yang didefenisikan tidak membingungkan. Pascal ditujukan sebagai bahasa pembelajaran, dan telah diterima secara luas. Pascal menggunakan bahasa Inggris sebagai penulisan kodenya, sehingga penulisannya dan pengemb
Berikut ini akan diberikan gambaran mengapa mesti belajar bahasa pascal.
1. Kecepatan (speed)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)
2. Tipe data yang kuat
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.
3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.
4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.
5. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.
Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows ataup visual Delphi tidaklah sulit lagi. Orang bijak bilang ‘belajar dari dasar merupakan modal yang paling besar’. Untuk itulah Pascal hadir bagi kita.angannya mudah dipahami.

Membuat Tabel Sederhana Menggunakan HTML

Assalamu'alaikum.
agan-agan ane mau share sedikit tentang Cara membuat tabel sederhana menggunakan html. Tabel penting peranya dalam halaman web, selain untuk menampilkan text atau gambar dalam format lajur dan kolom. Kita juga bisa menggunakan tabel untuk membantu me-layout tampilan halaman.

gambar 1.0 Atribut Table tag

Didalam tag
ada beberapa tag lain yang perlu kita pahami, yaitu :

  1. Perintah Tag < tr> , artinya tag untuk menuliskan baris biasa di tabel. TR singkatan dari table row.
  2. Perintah Tag < td>, atinya tag untuk menuliskan kotak didalam baris, makanya tag < td>
    ada di dalam tag < tr>. TR singkatan dari table data.
  3. Perintah Tag < th>, artinya tag untuk menuliskan kotak biasa seperti < td>, namun untuk header tabel. TH singkatan dari table header.

Contoh, Coding  membuat tabel sederhana menggunakan html. Silahkan di copy untuk mencobanya.

< html>
< head>
< title> Membuat Tabel < /title>
< /head>
< body>
< table border="1">
< caption> Cyber STMIK < /caption>
< tr>
< td> INFO KAMPUS < /td>
< td> Music < /td>
< td> Berita Tasikmalaya < /td>
< /tr>
< tr>
< td> seputar IPTEK < /td>
< td> Lagu < /td>
< td> INFO JABAR < /td>
< /tr>
< tr>
< td> Dunia Olahraga < /td>
< td> Program JAVA < /td>
< td> Dunia Politik < /td>
< /tr> < tr>
< td> aneka hiburan < /td>
< td> Program WEB < /td>
< td> aneka info < /td>
< /tr> < /table>
< /body>
< /html>
"hilangkan spasinya agar coding diatas dapat dijalankan"
Screen shoot :

gambar 1.1 tampilan jika dilihat di browser


Semoga Bermanfaat.

Makalah Program Data Pegawai Menggunakan TPW [Tugas Struktur Data Kelompok 3]

Membuat Program Data Pegawai Procedure  dan IF

Program PegawaiMemakai Procedure

Program DataPegawai;

Uses Wincrt;

Var

nama :array[1..100]of string;

kerja:array [1..100]of char;

nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;

a,n,gaji:longint;   

ulang,kembali:char;

proceduregaris;

begin

writeln('================================================================================');

end;

procedurenamapegawai;

begin

If (nip[n]) = 1 then

begin

nama[n] := 'YosepDwiAnjani';

Writeln('Nama        : ', (nama[n]));

end

else if (nip[n]) = 2 then

begin

nama[n] := 'RisalAgustian';

Writeln('Nama        : ', (nama[n]));

end

else if (nip[n]) = 3 then

begin

nama[n] := 'IdhamHanif N';

Writeln('Nama        : ', (nama[n]));

end

else

begin

write('Nama        : ');readln(nama[n]);

end;

end;

proceduregolongan;

begin

  If (gol[n]) = 1 then

Gapok[n]:= 1000000

else if (gol[n]) = 2 then

Gapok[n]:=1500000

else if (gol[n]) = 3 then

Gapok[n]:=2000000

     Else

begin

Gapok[n]:=0;

writeln('golongan yang andamasukantidakada');

readkey;

donewincrt;

end;

end;

procedurelembur;

begin

ifupcase(kerja[n]) ='Y' then

begin

Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);

if (jam[n]) >20 then

Insentif[n]:=(jam[n])*20000

else

if (jam[n])>=10 then

insentif[n] :=(jam[n])*10000

else

Insentif[n]:=(jam[n])*5000;    

Writeln('Insentif    : Rp. ',(insentif[n]));

Gaber[n]:=Gapok[n]+Insentif[n] ;

end

else

begin

gaber[n]:=Gapok[n];

jam[n]:=0;

insentif[n]:=0;

end;

end;

procedurelaporan;

begin

clrscr;

writeln('Laporan Data PegawaidanGajiPegawai ');

garis;

writeln('|    |     |                |   |          |          |         |           | ');

writeln('| No | NIP |  NamaPegawai  |Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');

writeln('|    |     |                |   |          |          |         |           | ');

garis;

writeln;

for a:=1 to n do

begin

gotoxy(1,a+7);write('|');

gotoxy(3,a+7);write(a);

gotoxy(6,a+7);write('|');

gotoxy(8,a+7);write(nip[a]);

gotoxy(12,a+7);write('|');

gotoxy(13,a+7);write(nama[a]);

gotoxy(29,a+7);write('|');

gotoxy(31,a+7);write(gol[a]);

gotoxy(33,a+7);write('|');

gotoxy(34,a+7);write(gapok[a]);

gotoxy(44,a+7);write('|');

gotoxy(45,a+7);write(jam[a]);

gotoxy(55,a+7);write('|');

gotoxy(56,a+7);write(insentif[a]);

gotoxy(65,a+7);write('|');

gotoxy(68,a+7);write(gaber[a]);

gotoxy(77,a+7);write('|');

gaji:=gaji+(gaber[a]);

end;

writeln;

writeln;

writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);

readln;

end;

procedureutama;

begin

n:=0;

repeat

n:=n+1;

Clrscr;

gotoxy(28,2);Writeln('SelamatDatang');

gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');

garis;

Writeln;

Write('NIP : ');Readln(nip[n]);

namapegawai;

Write('Golongan  (1,2,3): ');Readln(gol[n]);

golongan;

writeln('GajiPokok  : Rp. ', Gapok[n]);

write('Ada KerjaTambahan  y/t?  ');readln(kerja[n]);

lembur;

Writeln('GajiBersih : Rp. ', (Gaber[n]));

write('Tambah data Pegawai (y/t): ');readln(ulang);

untilupcase(Ulang) <> 'Y';

end;

begin

kembali:='Y'  ;

whileupcase(kembali) = 'Y' do

begin

gaji:=0;

utama;

laporan;

write('inginulangiAplikasi(y/t) ? ');readln(kembali);

ifupcase(kembali)='T' then

donewincrt;

end;

end.

Program PegawaiMemakaiIf

Program DataPegawai;

Uses Wincrt;

Var

nama :array[1..100]of string;

kerja:array [1..100]of char;

nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;

a,n,gaji:longint;   

ulang,kembali:char;

proceduregaris;

begin

writeln('================================================================================');

end;

begin

kembali:='Y'  ;

whileupcase(kembali) = 'Y' do

begin

gaji:=0;

n:=0;

repeat

n:=n+1;

Clrscr;

gotoxy(28,2);Writeln('SelamatDatang');

gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');

garis;

Writeln;

Write('NIP : ');Readln(nip[n]);

           If (nip[n]) = 1 then

begin

nama[n] := 'YosepDwiAnjani';

Writeln('Nama        : ', (nama[n]));

end

else if (nip[n]) = 2 then

begin

nama[n] := 'RisalAgustian';

Writeln('Nama        : ', (nama[n]));

end

else if (nip[n]) = 3 then

begin

nama[n] := 'IdhamHanif N';

Writeln('Nama        : ', (nama[n]));

end

else

begin

write('Nama        : ');readln(nama[n]);

end;

Write('Golongan  (1,2,3): ');Readln(gol[n]);

       If (gol[n]) = 1 then

Gapok[n]:= 1000000

else if (gol[n]) = 2 then

Gapok[n]:=1500000

else if (gol[n]) = 3 then

Gapok[n]:=2000000

     Else

begin

Gapok[n]:=0;

writeln('golongan yang andamasukanTidakada');

readkey;

donewincrt;

end;

writeln('GajiPokok  : Rp. ', Gapok[n]);

write('Ada KerjaTambahan  y/t?  ');readln(kerja[n]);

ifupcase(kerja[n]) ='Y' then

begin

Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);

if (jam[n]) >20 then

Insentif[n]:=(jam[n])*20000

else

if (jam[n]) >=10 then

insentif[n] :=(jam[n])*10000

else

Insentif[n]:=(jam[n])*5000;    

Writeln('Insentif    : Rp. ',(insentif[n]));

Gaber[n]:=Gapok[n]+Insentif[n] ;

end

else

begin

gaber[n]:=Gapok[n];

jam[n]:=0;

insentif[n]:=0;

end;

Writeln('GajiBersih : Rp. ', (Gaber[n]));

write('Tambah data Pegawai (y/t): ');readln(ulang);

untilupcase(Ulang) <> 'Y';

clrscr;

writeln('Laporan Data PegawaidanGajiPegawai ');

garis;

writeln('|    |     |                |   |          |          |         |           | ');

writeln('| No | NIP |  NamaPegawai  |Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');

writeln('|    |     |                |   |          |          |         |           | ');

garis;

writeln;

for a:=1 to n do

begin

gotoxy(1,a+7);write('|');

gotoxy(3,a+7);write(a);

gotoxy(6,a+7);write('|');

gotoxy(8,a+7);write(nip[a]);

gotoxy(12,a+7);write('|');

gotoxy(13,a+7);write(nama[a]);

gotoxy(29,a+7);write('|');

gotoxy(31,a+7);write(gol[a]);

gotoxy(33,a+7);write('|');

gotoxy(34,a+7);write(gapok[a]);

gotoxy(44,a+7);write('|');

gotoxy(45,a+7);write(jam[a]);

gotoxy(55,a+7);write('|');

gotoxy(56,a+7);write(insentif[a]);

gotoxy(65,a+7);write('|');

gotoxy(68,a+7);write(gaber[a]);

gotoxy(77,a+7);write('|');

gaji:=gaji+(gaber[a]);

end;

writeln;

writeln;

writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);

readln;

write('inginulangiAplikasi(y/t) ? ');readln(kembali);

ifupcase(kembali)='T' then

donewincrt;

end;

end.

Flowchart Memakai If


Flowchart Memakai Procedure

Screen Program

Makalah Program Data Barang Menggunakan TPW [Tugas Struktur Kelompok 2]

Membuat Program Data Barang 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. 

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.