Sabtu, 07 Desember 2013


Makalah Program Data Pegawai Menggunakan TPW (Tugas Struktur Data Kelompok 3)
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 Pegawai Memakai If

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

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7PKs4OXgrhlg97ksvu2r9ux5mOrCf1WpMm5Ibg1dQzz2OsEUDC6GcSOu3yxZpMxizRV_0v4JGNgyCneifv44YLC18avomjg-AUw0js86WQJ8dTP97jj6ujKWasHmm_7C2tZVHwPIRKFXR/s640/1414929_656300611067439_424540871_n.jpg


Flowchart Memakai Procedure
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9WHj2pcxMAVh2K1rcfiRFXLLgebE5SBKBivQdHSwf3uUcrCl1cPx4a0IDEInVCSzGDRZE3q1lsiBGmS5hmTovAP6TVbNiN4cazOruTuGaiYPoDV2KHkEkAizBuofdfnc8kc_h99-Cuwgc/s640/1464859_656300571067443_1648620336_n.jpg



Screen Program
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimQIpkRlwZ_03qjNRZY5jdD4TMoSAdBFYhj9PYGHViJptiMC6lMuwBJjAIV0dUpOu90K4_1Cv9cCxbcXMQvJ1oNXpbuG8sxSFQYGrtTc0Xk4MK-mqJFjHVEsa7lzuB5bOOmND71JNOEn-h/s640/3.jpg

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPT2RzYsXhU3v158HukwnpcFRRFGNGnTtjk82Mx8-24fTE2OAkPDBV8FgwefyKSfzvb5vO2ccKB-iq5Q-NT2_iseGSSSTjOKoKfh-34BeeQV0EINYQUtOLxHI8JJqQcu3ns038wCnVuUkq/s640/2.jpg

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdKOJJNcNDLHvbCevytwZd52oQZH_t11MMI1xUtu4jsxZBkXySPcwn3IkXnGpkmRTuoMIY_juMKuONTqrkOUqXDkmZhRrm13bnfm2FJVhfMKEs19wFqmP9bUWkdu8OIEHZAjyx3w4_IMFa/s640/1.jpg


Makalah Program Data Barang Menggunakan TPW (Tugas Struktur 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.



https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguQwLnMGTj5syLvAvbialX_jkToPu2kFcqiMxOv1k3o-CcDLIrepQq17W3MyypUaWjOmHAI-qJU0fZFIWjXMW3bMuxMj3LNyygl0GrigmdqxKEj-1zCLPjPCRJz65yJ0-PxoHG3E3nKdSW/s1600/Untitled.jpg

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
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwTKviT9-_0Q9U0dwUfCy5J07uV-iIxdMErUcj3iLU_euvtrmaWv5M_mUcU7qSusJDQjlcdhzTlKCU3egncvs0UzsduEDBiOCxAa7NgVJh_A0rA5Pq__QAf8_NMOWMy7hmJ1j1yA1jFz91/s1600/Untitled.jpg

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)

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

BAB I PENDAHULUAN
      FLOW CHART
      CODING PROGRAM

BAB II PEMBAHASAN

BAB III PENUTUP
      KESIMPULAN
       SARAN


BAB II
PEMBAHASAN
  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.

  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 :
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDuNyYuAtlD9XClaggvB2lCpiBplk4wGROzBusx7k60y7oh9E9z57vmXs5-ETwHcKW3jsQU9pwha2zEH5J2rLGSiSYgtLo9aGLIv0WpRPzp__KgthWGjDoYlX_gD0HmxbEByIjZJ6jqgS4/s1600/kel1.png

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIbPMmfcQXt_BoFFSPYAS8mzODtkc3jJJsDYFbUsLb15uKYnixyVjTo76ibCsUpTULFKE-tA7Lttw-Tyrid-jFdekRCztxvECHY9fJu9WIedQ0NKVZvzSG7GzLpZ1dOa5sSUn799c_b8Ml/s1600/kel12.png


BAB III
PENUTUP
   Demikian makalah ini kami susun dengan sebaik-baiknya mohon maaf apabila ada kesalahan yang terjadi pada program dan makalah yang kami buat ini.
    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.
    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.


Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)