Nurul *pink*

Rabu, 18 Desember 2013

PROGRAM PASCAL

program pendaftaran_peserta_tour;
uses wincrt;
var no, tot_biaya,b_daftar,b_akomodasi,tanggal, bln, thn : longint;
nm, tempat : char;

begin

writeln('      Formulir Pendaftaran Peserta tour ');
writeln;
write('No                    : ');readln(no);
write('Nama                  : ');readln(nm);
write('Tempat, Tanggal Lahir : ');readln(tempat);

gotoxy(35,5);read(tanggal);
if tanggal > 30 then
begin
write('tanggal yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(38,5);read(bln);
if bln > 12 then
begin
write('bulan yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(41,5);read(thn);
if thn > 1996 then
begin
write('tahun yang anda masukkan salah!');
readkey; donewincrt;
end;

write('biaya pendaftaran             : Rp. ');readln(b_daftar);
write('biaya akomodasi               : Rp. ');readln(b_akomodasi);
writeln('====================================');
tot_biaya:=b_daftar + b_akomodasi;
write('Sisa Pembayaran       : Rp. ',tot_biaya);
end.

jika anda telah mengetikan program di atas pada TPW anda maka coba anda RUN dan lihat layout nya, inilah contoh layout pada program di atas yang saya jalankan pada komputer saya

Program tersebut memiliki ketentuan – ketentuan yaitu

1. tanggal akan mencakup 1 – 30 , namun jika anda salah dalam memasukan tanggal maka akan uncul layout seperti ini

.2.bulan akan mencakup 1 – 12 , namun jika anda salah dalam memasukan bulan maka akan uncul layout seperti ini

3.tahun memiliki ketentuan yaitu hanya akan dapat menerima inputan dari tahun kurang dari 1996 , namun jika anda salah dalam memasukan tahun maka akan uncul layout seperti ini

cukup sekian semoga bermanfa'at...trimakasih

Rabu, 11 Desember 2013

Manfaat Belajar Bahasa Pemograman Pascal

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.

Berikut ini akan diberikan gambaran mengapa harus 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.

Semoga Bermanfaat

Sabtu, 07 Desember 2013

Nama : Nurul Aprida Megantini Herisma
Kls : B

Program Penjualan barang pascal kelompok I

KATA PENGANTAR

Puji syukur alhamdulillah pemakalah panjatkan kepada Allah ilahi robbi, yang dengan takdirnya menciptakan jagat raya ini dengan segala bentuk isinya. Tak ada kata yang patut di lupakan kecuali hanya rasa syukur yang berbunyi ” Alhamdulillahirobbil’alamin”.
Shalawat serta salam juga tak lupa pemakalah haturkan kepada Baginda Khatimun Ambiya’, Nabi Muhammad SAW, yang dengan pancaran Nur (cahaya) ilmunya, Dunia terasa lebih hidup, lebih terang dari Nur apapun.

DAFTAR ISI
KATA PENGANTAR
DAFTAR ISI
BABI PENDAHULUAN
      A.    FLOW CHART
      B.     CODING PROGRAM
BAB II PEMBAHASAN
BAB III PENUTUP
      A.    KESIMPULAN
      B.     SARAN

BAB I
PEMBAHASAN
      A.    FLOW CHART
Rancangan pembuatan coding MENU DALAM PENJUALAN adalah sebagai berikut
·         Pertama pastinya menjalankan program MENU DALAM PENJUALAN
·         Tampil menu penjualan yang kita kehendaki misal ada 7 sub menu
·         Memilih salah satu menu yang kita kehendaki
          percabangan yang kita buat
·         Ketika terpilih salah satu sub menu akan ada sub menu ukuran
·         Ukuran menampilkan L/M/S
·         Di anjurkan untuk memilih salah satu sub menu L/M/S
·         Ketika memilih L akan ditampilkan Harga barang tersebut pada ukuran L
·         Ketika memilih M akan ditampilkan Harga barang tersebut pada ukuran M
·         Ketika memilih S akan ditampilkan Harga barang tersebut dalam ukuran S
·         Harga yang telah terpilih akan di kalikan ke banyak beli yang akan di tampilkan ke Harga pembelian
·         setelah itu akan ada imputan Bayar di kurangi Harga pembelian yang menampilkan kembalian.
·         Setelah proses diatas selesai akan tampil menanyakan transaksi lain [ y/t ] ketika memilih tombol ’ y ’ akan di tampilkan kembali program seperti awal dalam coding goto Balik (MENU DALAM PENJUALAN). Dan ketika memilih tombol ’ t ’ akan langsung keluar dari program.

      B.     CODING PROGRAM
program penjualan;
uses wincrt;
const Nmaks=100;
         type barang=record
          kode:string[10];
          nama:string[35];
          quantity:integer;
          harsat:integer;
          subtotal:integer;
     end;
procedure utama;
begin
          write('==============TOKO TIKTOK===========');
          writeln('===================================');
          writeln('===Jalan Raya Singaparna No. 123===');
end;
procedure member;
var
kd_member:string;
nm_member:string;
alamat:string;
no_hp:string;
begin
writeln('----------------------------DATA MEMBER--------------------------------');
writeln;
write('Kode member                      :'); readln(kd_member);
if kd_member = 'M1' then
   begin
   nm_member := 'Vania Larissa';
   alamat    := 'Pontianak';
   no_hp     := '08921234567';
   end;
if kd_member = 'M2' then
     begin
     nm_member := 'Megan Young';
     alamat    := 'Piliphines';
     no_hp     := '0876543123';
     end
     else
   begin
   nm_member := 'Tidak ditemukan';
   alamat     := '-';
   no_hp      := '-';
   end;
writeln('Nama Member    :', nm_member);
writeln('Alamat         :', Alamat);
writeln('No Hp          :', no_hp);
end;
procedure garis;
begin
write('===========================================================');
end;

procedure petugas;
var
kd_petugas:string;
nm_petugas:string;
no_hpp:string;
alamatp:string;
begin
writeln('----Petugas Kasir------------------------------');
writeln('Kode Petugas          : P1-P2');read(kd_petugas);
if kd_petugas = 'P1' then
   begin
   nm_petugas := 'Soleh';
   alamatp     := 'Jl. Wawan';
   no_hpp      := '08765454398';
   end;

   if kd_petugas = 'P2' then
   begin
   nm_petugas := 'Mahfud';
   alamatp     := 'Jl. Duren';
   no_hpp      := '087643212398';
   end;

writeln('Nama Petugas           :', nm_petugas);
writeln('Alamat                 :', alamatp);
writeln('No Hp                  :', no_hpp);
end;

    type nilai=array[1..Nmaks] of barang;
    var
   M:nilai;
  N:integer;
   i:integer;
   total,disc,bayar,hrg,kembali:real;
   y:string;
   lagi:char;
     begin
      clrscr;
     utama;
     petugas;
     garis;
     lagi := 'y';
     while lagi = 'y' do
     begin
     for i:=1 to Nmaks do
     begin
      M[i].kode:=' ';
      M[i].nama:=' ';
      M[i].quantity:=0;
      M[i].harsat:=0;
      M[i].subtotal:=0;
     end;

     write('Banyaknya Barang : '); readln(N);
     for i:=1 to N do
     begin
          writeln('Barang Ke-',i,' dari ',N);
          write('Kode Barang : '); readln(M[i].kode);
          if M[i].kode = 'B1' then
             begin
             M[i].nama := 'Pensil';
             M[i].harsat := 1200;
             end;
          if M[i].kode = 'B2' then
             begin
             M[i].nama := 'Penghapus';
             M[i].harsat := 2000;
             end;
          write('Nama Barang : ',M[i].nama);
          write('Quantity : '); readln(M[i].quantity);
          write('Harga Satuan : ',M[i].harsat);
          M[i].subtotal:=M[i].quantity*M[i].harsat;
          total:=total+M[i].subtotal;
          writeln('Subtotal : ',M[i].subtotal);
          writeln('Ada transaksi lagi ?'); readln(lagi);
      if lagi = 't' then
      end;
      end;
       clrscr;
      begin


     writeln('----------------------DATA PENJUALAN BARANG--------------------');
      writeln('===============================================================');
      writeln('No | Kode | Nama Barang | jumlah | Harga Satuan | Subtotal');
      writeln('===============================================================');
      for i:=1 to N do
      begin
      writeln(i,'    ',M[i].kode,'      ',M[i].nama,'        ',M[i].quantity,'         ',M[i].harsat,'        ',M[i].subtotal);
      end;
      writeln('========================================================================');
      writeln('Total Bayar : ',total:3:2);
      writeln('Discount Untuk member sebesar 20%');
      writeln('Ada Member? Jika ada masukan Kode'); readln(y);

      if y = 'ada' then
      begin
      member;
      disc:=total*0.2;
      hrg:=total-disc;
      end
      else
      disc:=total*0;
      hrg:=total-disc;
      writeln('Harga Total :' ,hrg:3:2);
      writeln('Bayar       : ');read(bayar);
      Kembali:= bayar-hrg;
      writeln('Kembali     : ',kembali:3:2);
      end;

end.

TAMPILAN DALAM PASCAL :

BAB II
PENUTUP
   Demikian makalah ini kami susun dengan sebaik-baiknya mohon maaf apabila ada kesalahan yang terjadi pada program dan makalah yang kami buat ini.
      A.    KESIMPULAN
Setelah dibuatnya program penjualan dengan menggunakan program Turbo Pascal dapat membantu proses transaksi pada sebuah toko dengan menggunakan prosedure dan if, karena lebih simpel dalam penggunannya. Ketika pembuatan program ini tidak sesulit pembuatan program yang lain.
      B.     SARAN
Kami terima jika ada kritik dan saran dari pembaca, karena semua program tidak luput dari sebuah kesalahan. Untuk menjadikan kami agar bisa membuat program yang lebih baik lagi.

PROGRAM DATA BARANG PASCAL KELOMPOK 2

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.

Simbol Flow chart dan fungsi Flow chart struktur IF

Simbol Flow chart dan fungsi Flow chart struktur IF

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

PROGRAM PEGAWAI KEL 3 PASCAL

Program Pegawai Memakai 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.

OUTPUTNYA:

DAN fLOWCHART NYA INI

CARA MEMBUAT TABLE DENGAN HTML :

Perintah Dasar Membuat Tabel di HTML :
<table border="1">
<tr>
    <th>Nama</th>
    <th>Tanggal Lahir</th>
</tr>
<tr>
    <td>Ahmad Ridwan</td>
    <td>21-03-2013</td>
</tr>
</table>
Apabila melihat contoh susunan tabel diatas, pengertian kode HTML nya adalah sebagai berikut :

<table> diakhiri dengan </table> : digunakan sebagai tanda awal tabel
<tr>..</tr> : digunakan sebagai tanda awal baris, tr kependekan dari table row
<th>..</th> : digunakan untuk membuat tampilan kolom header tabel, th kependekan dari table head
<td>..</td> : digunakan untuk menyusun kolom data, td kependekan dari table data
Setiap elemen dari kode HTML tersebut harus tersusun dan tertata dengan benar.
Perhatikan tanda slash / garis miring di setiap akhir elemen, itu merupakan kode penutup untuk kode pembuka di semua jenis kode HTML.

Atribut pendukung Table :

align : untuk mengatur posisi horizontal
valign : untuk mengatur posisi vertikal
width : untuk mengatur lebar
height : untuk mengatur tinggi
border : untuk mengatur tebal garis
border-color : untuk memberi tebal garis dengan warna
cellpadding : untuk mengatur jarak garis dengan objek didalamnya
cellspacing : untuk mengatur jarak tiap cell
bgcolor : untuk mengatur warna
background : untuk mengatur latar gambar
rowspan : jumlah baris yang memotong beberapa baris
colspan : jumlah kolom yang memotong beberapa kolom

Berikut ini adalah contoh dari tabel dengan beberapa kode warna dengan atribut :

table html with css
Susunan script kodenya :
<table width="510" border="1" cellspacing="0" cellpadding="3">
<tr>
<th width="58" rowspan="3" bgcolor="#00CCCC">Rowspan 3</th>
<th width="79" height="41" bgcolor="#00CCCC">Nama</th>
<th width="83" bgcolor="#33FF33">Alamat</th>
<th width="92" bgcolor="#FF9900">Telp.</th>
<th colspan="2" bgcolor="#FF9900">Colspan 2</th>
</tr>
<tr>
<td bgcolor="#66CCFF">ALI</td>
<td align="center" bgcolor="#99CC66">Jl. Ijo</td>
<td bgcolor="#9966FF">11211</td>
<td width="92" bgcolor="#9966FF"> </td>
<td width="92" bgcolor="#9966FF"> </td>
</tr>
<tr>
<td bgcolor="#FFFF00">UDIN</td>
<td align="center" bgcolor="#FFFF00">Jl. Rencong</td>
<td bgcolor="#FFFF00">23232</td>
<td bgcolor="#FFFF00"> </td>
<td bgcolor="#FFFF00"> </td>
</tr>
</table>

semoga bermanfaat

Selasa, 26 November 2013

"TUGAS STRUKTUR DATA"

pascal

Nama : Nurul Aprida Megantini Herisma
Kls :B

1. Struktur pertama dalam pascal adalah

a. Char;

b. String

c. End.

d. Writeln

e. Uses crt;

Jawaban : e

Alasan : Karena Uses crt merupakan pengenal untuk suatu sistem operasi yang digunakan

2. Untuk melihat hasil dari program yang dikerjakan tekan tombol

a. Crtl+f5

b. Ctrl+f9

c. Ctrl+f2

d. Ctrl+f12

e. Ctrl+f4

Jawaban : b

Alasan : karena Menu Run [Ctrl + F9] : Perintah yang digunakan untuk mengeksekusi program yang sudah dibuat.
sedangkan fungsi dari perintah ctrl+f2, digunakan untuk menghentikan pembetulan, ctrl+f4,digunakan untuk melakukan perhitungan atau mengubah nilai perubah.jadi jawabannya adalah b

3. Berapa kode yang digunakan untuk membuat tulisan berwarna “CYAN”

a. 4

b. 2

c. 128

d. 7

e. 3

Jawaban :e

Alasan : 3 kode yang digunakan untuk membuat tulisan berwarna "CYAN".

4. Perintah dasar sederhana dalam program pascal adalah

a. Readln

b. End

c. Write

d. Writeln

e. Uses crt;

Jawaban :c

Alasan : Dengan adanya sintak write di program, maka kita dapat melihat Layout program (hasil cetak program di layar).

5. Tipe data bahasa pascal untuk TRUE FALSE adalah

a. String

b. Char

c. Boolean

d. Byte

e. Real

Jawaban : c

Alasan :karena boolean, merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah).Sedangkan, Char merupakan tipe data menyimpan karakter . Real, merupakan tipe data yang hanya menampilkan berupa bilangan pecahan.Byte,untuk menampilakn angka dari 0-255.tipe string digunakan untuk semua huruf,spasi. Jadi jawabannya adalah boolean.

6. Siapakah penemu pascal

a. Greyson change

b. Prof. Niklaus Wirth

c. Kondrazuse

d. Prof. Niklaus Smirth

e. Dr. Hercules

Jawaban : b

Alasan : karena prof. Niklaus Wirth yang menemukan pascal.sedangkan,kondrazuse, seorang teknisi sipil dan perintis komputer. Greyson Change, adalah seorang penyanyi rock.

7. Struktur bahasa pemrograman pascala paling pertama adalah

a. Var;

b. Begin

c. End;

d. Uses crt;

e. Writeln;

Jawaban : d

Alasan : karena struktur pemrograman adalah uses crt; àvar àbeginàwritelnàend.

struktur dasar suatu program pascal adalah sebagai berikut :
program ... ; { Program heading }
uses ... ; { Uses clause }
label ... ; { Labels }
const ... ; { Constants }
type ... ; { Types }
var ... ; { Variables }
procedure ... ; { Procedures }
function ... ; { Functions }
begin
statement; { Statements }
...
end.

8. Tipe data pascal untuk karakter adalah

a. Char

b. Boolean

c. Integer

d. Real

e. Byte

Jawaban : a

Alasan :karena , Char merupakan tipe data menyimpan karakter.Sedangkan, boolean, merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah). Real, merupakan tipe data yang hanya menampilkan berupa bilangan pecahan(desimal).Byte,untuk menampilakn angka dari 0-255 merupakan tipe data yang hanya menampilkan berupa bilangan bulat dari 0-255.tipe string digunakan untuk semua huruf,spasi. Jadi jawabannya adalah char

9. Kapan terbentuknya pascal

a. 1981

b. 1971

c. 1961

d. 1991

e. 1987

Jawaban : b

Alasan : Prof Niklaus Wirth memperkenalkan Kompiler bahasa Pascal yang pertama untuk Komputer CDC 600 (Control Data Corporation) yang dipublikasikan pada tahu 1971 dengan tujuan membantu mengajar program Komputer secara sistematis khususnya untuk memperkenalkan program terstruktur .

10. Apakah kepanjangan dari USES

a. Unit secure

b. Unit syntax

c. Unit system

d. Up software

e. Unit semiconductor

Jawaban : c

Alasan : Uses merupakan pengenal untuk suatu sistem operasi yang digunakan.

11. Berikut ini adalah penulisan identifier yang benar dalam pemrogramnan pascal adalah

a. 9program_satu

b. Program_satu

c. Program satu

d. Begin

e. Array

Jawaban : b

Alasan : Pada penulisan identifier harus diawali hurup, tidak boleh angka terlebihdahulu (angka diletakan di tengah atau akhir), atau pun menggunakan karakter selain underscore "_", juga tidak boleh ada spasi.

12. Tipe bilangan bulat dalam bahasa pascal dikenal dengan

a. Byte

b. Integer

c. Char

d. String

e. Boolean

Jawaban : b

Alasan : karena integer merupakan tipe data yang hanya menampilkan berupa bilangan bulat. Sedangkan byte, merupakan tipe data yang hanya menampilkan berupa bilangan bulat dari 0-255.char digunakan untuk tipe karakter(huruf), string untuk menampilkan huruf, spasi, booelan, merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah).

13. Istilah “perulangan” dalam pemrograman pascal dikenal sebagai

a. Repeating

b. Again

c. Function

d. Replay

e. Looping

jawaban : e

Alasan : Perintah looping digunakan untuk membuat program ketika dibutuhkan program yang diulang-ulang. looping pada pascal yaitu "for - do", "while - do", dan "repeat - until".

14. Perintah untuk menutup program pada Pascal adalah

a. END.

b. Program

c. Uses crt;

d. Finish

e. END;

Jawaban : a

Alasan : END. adalah bagian akhir struktur pemrograman pascal yang menandakan penutup program.

15. Menggambarkan program secara logika merupakan fungsi dari

a. flowchart

b. DxDiag

c. Begin

d. SI

e. Sistem Operasi

Jawaban :a

Alasan : Flowchart merupakan alur dari suatu program, atau gambaran program secara logika.

16. Deklarasi yang digunakan untuk mengidentifikasi data yang nilainya sudah ditentukan dan pasti, tidak dirubah dalam program disebut deklarasi

a. Deklarasi label

b. Deklarasi Konstanta

c. Deklarasi tipe

d. Deklarasi Variabel

e. Deklarasi Prosedur

Jawaban :b

Alasan : Pada deklarasi konstanta, dalam program, seorang programmer dapat mengidentifikasikan data yang nilainya sudah ditentukan dan pasti dan tidak dapat dirubah.

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal kecuali

a. Deklarasi perubah

b. Deklarasi proses

c. Deklarasi konstanta

d. Deklarasi tipe

e. Deklarasi prosedure

Jawab : b

Alasan : karena didalam turbo pascal hanya terdapat 6 deklarasi,diantaranya adalah deklarasi cont konstanta, deklarasi variabel prosedur, deklarasi type, deklarasi label,deklarasi fungsi.sedangkan deklarasi proses tidak termasuk didalamnya. Jadi jawabannya adalah deklarasi proses.

18. Bilangan yang mengandung pecahan, paling sedikit harus ada satu digit sebelum dan sesudah titik desimal termasuk dalam tipe data

a. Real

b. Boolean

c. Integer

d. Longint

e. Byte

jawaban : a

Alasan : karena tipe bilangan real, merupakan tipe data yang hanya menampilkan berupa bilangan pecahan. Sedangkan, boolean merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah). Tipe Bilangan integer, merupakan tipe data yang hanya menampilkan berupa bilangan bulat. Tipe Bilangan byte merupakan tipe data yang hanya menampilkan berupa bilangan bulat dari 0-255.

19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah

a. Writeln

b. Readln

c. Begin

d. Write

e. Clrscr

Jawab : e

Alasan : Prosedur clrscr digunakan untuk membersihkan layar pada saat Program dijalankan (halaman baru). Perintah clrscr ditulis “clrscr;”.

20. Bentuk dari suatu statement IF berada didalam lingkungan statement IF yang lainnya, disebut IF dalam kondisi

a. IF bersarang

b. IF bercabang

c. IF tunggal

d. IF-THEN

e. IF do while-until

Jawab : a

Alasan : IF bersarang merupakan bentuk dari suatu statemen IF yang Berada didalam statemen IF yang lainya

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

Jawaban : a

Alasan : Array merupakan typedata terstruktur yang mempunyai type Data, variable, dan Ukuran yang Sama

22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

jawaban : b

Alasan : karena write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama. Sedangkan, Writeln digunakan untuk menampilkan tampilan perbaris, akan ganti baris untuk tampilan berikutnya. Read tidak membaca end of line marker. Readln juga digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris,

23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah baris kebawah, disebut

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

jawaban : a

Alasan : : writeln akan menampilkan atau cetak dilayar monitor lalu Pindah baris kebawah. Contoh : writeln(‘HELLO WORLD’);

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

jawaban :a

Alasan : variabel nilainya tidak tentap atau nilainya dibubuhkan Sendiri atau nilainya hasil dari suatu proses.

25. Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram (bagian program), disebut

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

jawaban : c

Alasan : Prosedur merupakan program terpisah dalam blok sendiri yaitu sebagai subprogram dimana nantinya bias di panggil di program utama. Prosedur ini memudahkan untuk pengembangan program supaya lebih cepat.