Archive for 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. 

soal dan jawaban strukture data

1. Struktur pertama dalam pascal adalah.....
a. Char;
b. String
c. End.
d. Writel
e. Uses Crt;
Alasan : Di dalam program pascal diawali "Uses Crt;"  karena untuk mengenali sistem operasi yang digunakan

2.   Untuk melihat hasil dari program yang di kerjakan tekan tombol....
a. Ctrl+F5
b. Ctrl+F9
c. Ctrl+F2
d. Ctrl+F12
e. Ctrl+F4
Alasan : Untuk menjalankan listing kode pascal pada menu bar (Run > Pilih Run atau melalui  Keyword pada keyboard "Ctrl+F9")

3.     Berapa kode yang digunakan  untuk membuat tulisan berwarna “CYAN”....
a. 4
b. 2
c. 128
d. 7
e. 3
Alasan : Ada beberapa kode angka untuk merubah warna teks, salah satunya "3" untuk membuat teks berwarna CYAN.

4.   Perintah dasar sederhana dalam program pascal adalah.....
a. Readln
b. End
c. Write
d. Writeln
e. Uses crt;
Alasan : Perintah dasar pertama saat mempelajari bahasa pascal adalah "Write"

5.   Tipe data bahasa pascal untuk TRUE FALSE  adalah....
a. String
b. Char
c. Boolean
d. Byte
e. Real
Alasan : Ada beberapa jenis tipe data dalam pascal, salah satunya "Boolean" yaitu tipe data yang hanya mempunyai dua buah nilai (True atau False)

6.   Siapakah penemu program pascal....
a. Greyson Change
b. Prof. Niklaus Wirth
c. Kondrazuse
d. Prof. Niklaus Smirth
e. Dr.  Hercules
Alasan : Sejarah bahasa pemrograman pascal menyatakan bahwa penemu bahasa pascal yaitu "Prof. Niklaus Wirth"

7.   Struktur bahasa pemrograman pascal paling pertama adalah....
a. Var;
b. Begin
c. End;
d. Uses crt;
e. Writeln;
Alasan : Setiap program pascal diawali "Uses Crt;" untuk mengenali sistem operasi yang digunakan.

8.   Tipe data pascal untuk karakter adalah....
a. Char
b. Boolean
c. Integer
d. Real
e. Byte
Alasan : Ada beberapa tipe data dalam bahasa pascal, salah satunya "Char" yaitu tipe data untuk memasukan sebuah karakter

9.   Kapan terbentuknya pascal....
a. 1981
b. 1971
c. 1961
d. 1991
e. 1987
Alasan : Dalam pascal disebutkan bahwa bahasa pemrograman ini diciptakan pada tahun "1971"

10.   Apa kepanjangan dari USES....
a. Unit Secure
b. Unit Syntax
c. Unit System
d. Up Software
e. Unit Semiconductor
Alasan : USES adalah untuk pengenalan sistem operasi yang digunakkan dan merupakan kepanjangan dari "Unit System"

11. Berikut ini adalah penulisan identifier yang benar dalam pemrograman pascal adalah....
a. 9Program_Satu
b. Program_Satu
c. Program Satu
d. Begin
e. Array
Alasan : Dalam bahasa pascal penulisan identifier tidak boleh memakai spasi atau simbol lain atau angka didepan
.
12. Tipe bilangan bulat dalam bahasa pascal dikenal sebagai....
a. Byte
b. Integer
c. Char
d. String
e. Boolean
Alasan : Ada beberapa tipe data dalam bahasa pascal, salah satunya adalah untuk bilangan yang dipecah juga menjadi beberapa bagian sesuai range dan membaca bilangan bulat atau bukan, untuk bilangan bulat memakai tipe "Integer"

13. Istilah “perulangan” dalam pemrograman pascal dikenal dengan....
a. Repeating
b. Again
c. Function
d. Replay
e. Looping
Alasan : Bahasa pascal terdapat beberapa istilah, salah satunya "Looping" yaitu istilah yang digunakkan untuk perulangan

14. Perintah untuk menutup program pada Pascal adalah...
a. END.
b. Program
c. Uses crt;
d. Finish
e. END;
Alasan : Setiap listing pascal harus memakai perintah untuk mengakhiri program, dan perintahnya yaitu "END."

15. Menggambarkan program secara logika merupakan fungsi dari...
a. Flowchart
b. DxDiag
c. Begin
d. SI
e. Sistem Operasi
Alasan : Gambar program secara logika yang berupa simbol dan mempunyai arti dan alur yang benar disebut "Flowchart"
 
16. Deklarasi yang digunakan untuk mengidentifikasikan data yang nilainya sudah ditentukan dan pasti, tidak  dapat  dirubah dalam program disebut deklarasi....
a. Deklarasi label
b. Deklarasi Konstanta
c. Deklarasi tipe
d. Deklarasi Variabel
e. Deklarasi Prosedur
Alasan : Pendeklarasian yang sudah
 di tentukan nilainya langsung di listing kodenya dan tidak dapat dirubah merupakan "Deklarasi Konstanta"

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal, kecuali....
a. Deklarasi perubah
b. Deklarasi proses
c. Deklarasi konstanta
d. Deklarasi tipe
e. Deklarasi prosedur
Alasan : Ada beberapa deklarasi dalam bahasa pascal, yang tidak termasuk adalah "Deklarasi Proses"

18. Bilangan  yang  mengandung pecahan, palingsedikit  harus ada satu digit  sebelum dan sesudah titik  desimal termasuk dalam tipe data...
a. Real
b. Boolean
c. Integer
d. Longint
e. Byte
Alasan : Ada beberapa tipe data dalam bahasa pascal, salah satunya adalah untuk bilangan yang dipecah juga menjadi beberapa bagian sesuai range dan membaca bilangan bulat atau bukan, untuk bilangan desimal memakai tipe "Real"

19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah....
a. Writeln
b. Readln
c. Begin
d. Write
e. Clrscr
Alasan : Untuk membersihkan layar pada saat program berjalan dalam bahasa pascal haruslah mendeklarasikan sebuah perintah yaitu "Clrscr"

20. Bentuk dari suatu  statement IF  berada  di dalam lingkungan statemen IF  yang  lainya, disebut IF dalam  kondisi....
a. IF bersarang
b. IF bercabang
c. IF tunggal
d. IF-THEN
e. IF do while-until
Alasan : Ada logika bersyarat dalam bahasa pascal yang disebut IF, dan bila ada IF di lingkungan IF maka disebut "IF bersarang"
 
21. Tipe data terstruktur yang  terdiri  dari  sejumlah komponen  komponen yang mempunyai tipe sama, disebut tipe data...
a. Array
b. Byte
c. Longint
d. Integer
e. Boolean
Alasan : Tipe data yang terdiri dari komponen-komponen yang mempunyai tipe yang sama disebut "Array"

22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut...
a. Writeln
b. Write
c. Readln
d. Read
e. Begin
Alasan : Dalam bahasa pascal untuk mencetak dilayar monitor tanpa pindah baris menggunakan perintah "Write"

23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah bariskebawah, disebut...
a. Writeln  
b. Write
c. Readln
d. Read
e. Begin
Alasan : Dalam bahasa pascal untuk mencetak dilayar monitor dengan pindah ke baris selanjutnya menggunakan perintah "Writeln"

24.  Suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses,disebut....
a. Variabel
b. Tipe Data
c. Prosedur
d. Deklarasi
e. Array
Alasan : Identifier dalam bahasa pascal yang dapat diubah nilainya disebut "Variabel"
 
25.  Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram ( program bagian ), disebut...
a. Variabel
b. Tipe Data
c. Prosedur
d. Deklarasi
e. Array
Alasan : "Prosedur" adalah subprogram dari sebuah prgoram pascal yang bisa dideklarasikan di program pascal.

@ahmadsabit