hidup adalah perjuangan

A Comparison of the Information Technology Knowledge of United States and German Auditors

A Comparison of the Information Technology Knowledge of United States and German Auditors
A Comparison of the Information Technology Knowledge of United States and German Auditors 
Marilyn Greenstein-Prosch. Arizona State University. Marilyn.Prosch@asu.edu Thomas E. McKee. Medical University of South Carolina. temckee@musc.edu Reiner Quick, Darmstadt University of Technology. quick@bwl.tu-darmstadt.de Abstract. The International Federation of Accountants has stated that competence in information technology is imperative for the professional accountant due to its pervasive use in the business world. Auditors would normally be expected to have higher knowledge than the average accountant since they must audit the work of many different clients with diverse information systems. We surveyed 2,500 United States and German auditing professionals to determine their self-reported knowledge levels (IT self-efficacy) of 36 information technologies, some of which include various emerging technologies. Responses totaled 587 for a 23.5% overall response rate. A factor analysis of the 36 individual technologies revealed five underlying general constructs. Response statistics indicated both countries lacked significant knowledge for three of these five constructs. Scores were then culturally standardized to appropriately compare United States and German responses. German auditors had significantly higher knowledge for the construct of networking and data transfer. U.S. auditors had significantly higher knowledge for three constructs: ecommerce technologies, general office automation, and audit automation technologies. No differences were found for the construct of accounting firm office automation technologies. This study provides a foundation and methodology by which future researchers can measure whether, as an “emerging technology” matures, greater convergence will occur over time across cultures in factor analysis, as in the case of the more mature construct, general office automations.

1. INTRODUCTION The International Federation of Accountants Education Committee has stated, “Information technology [IT] is pervasive in business, requiring the professional accountant to be competent in this technology” (IFAC 2006b, p. 5). Further, technology will continue to have a “dramatic impact on virtually every phase of the audit process” Bierstaker, et al (2001). Chang and Hwang (2003) comment on whether professional accountants are properly trained in IT, “given the dynamic nature of IT and its widespread adoption in business organizations, many in the accounting profession have voiced concerns over whether college education and professional training effectively and efficiently prepare accountants to meet these challenges.” The accounting profession performs many roles where IT is used. Certainly in light of large scale business failures such as Enron, MCI-WorldCom, Parmalat, Comroad, etc., one of the most critical roles is auditing. Janvrin, et al. (2008) examine the use of audit IT and the perceived importance of IT use. IT knowledge requirements for independent auditors are higher than for the average accountant since they typically serve a wide variety of clients with diverse information systems. The International Education Standard 8 (IFAC, 2006a) states that the knowledge content within the education and development program for audit professionals should include IT. The knowledge content of the IT subject area should include the following: • IT systems for financial accounting and reporting, including relevant current issues and developments, and • Frameworks for evaluating controls and assessing risks in accounting and reporting systems as appropriate for the audit of historical financial information. Lymer and Debreceny (2003) discuss issues that have developed as auditors have moved towards trying to provide assurance on corporate reporting via the Internet. They find gaps between technology utilization and professional responses, leading to the conclusion that, “…the actual pronouncements made thus far by the various bodies around the world fall considerably short as a response to the challenges that arise from current and future Internet reporting technologies.” This suggests that the international audit profession is having a problem adjusting to the rapidly changing technology landscape. “From computer-generated audit programs to audit software capable of testing the entire population of the client’s data, technology is essential for accountants to understand the client’s business processes and contend with the paperless audit environment” (Bierstaker, et al, 2001). The profession can benefit by identifying key technologies and conducting selfassessment to learn how knowledgeable its members are about these technologies. Toward that end, we identify 36 key technologies and survey the self-perceived IT knowledge level (IT self-efficacy) of U.S. and German auditors.

Related Norwegian Prior Study McKee (2000) conducted an information technology knowledge survey of the Norwegian practicing auditing profession during late 1998 and early 1999. The survey encompassed 25 information technologies. Major findings from this survey were:
• A large number of professionals indicated either no knowledge or relatively low levels of knowledge for the 25 information technologies surveyed.
• Female respondents rated their individual and overall knowledge lower than male respondents.
• 71% of the respondents believed they had received less than adequate coverage of information technologies in their college or university careers.
• 17.3% of the respondents self-rated their overall knowledge of information technology as either low or very low.
• “Big 5” audit firm respondents self-rated their overall knowledge of information technology higher than did other respondents [statistically significant at .05 level] in 20 of the 25 technologies surveyed.

Research Limitations
 All survey research has a number of limitations which may affect the usefulness and validity of the results. Some were acknowledged previously while others are discussed below. A general limitation of this type of research is that since the questionnaire asked the respondents to rank their own knowledge there is no way to determine if their rankings are an accurate depiction of actual knowledge. Kennedy and Peecher (1997) find that auditors are overconfident in their technical knowledge when performing self-assessments. Their study examined their self-perceived vs. actual knowledge of GAAP and GAAS, so their results may not be generalizable to the IT domain. However, if auditors are similarly overconfident in their assessment of their IT knowledge, then the need for increased professional development in this area is even greater. Another limitation, as previously acknowledged, is that many of the technologies overlap conceptually. We were not able to find a technology taxonomy which would enable us to select conceptually distinct information technologies with which audit practitioners would be readily familiar. We attempted to overcome this limitation by conducting factor analysis and systematically identifying constructs and by examining aggregated items by construct. Some IT knowledge may be more related to efficiency issues rather than effectiveness. Accordingly, lack of knowledge in some IT areas may not be as significant in terms of society relying on auditor work. One further limitation is that the 36 information technologies examined in this research were subjectively selected by the researchers from English literature. Equally significant technologies may not have been identified or selected. Additional technologies were not sought from the German literature.

CONCLUSIONS
 As widely acknowledged in the literature, appropriate knowledge of information technology is critical for the auditing profession. This research measured IT knowledge for U.S. and German audit professionals via national surveys in each country. A principal finding is that a statistically significantly different knowledge level (IT self-efficacy) is found between the two countries for four of the five constructs identified in the factor analysis using both the raw data and culturally adjusted data: e-commerce technologies, networking and data transfer, general office automation, and audit automation. This raises the question of whether this difference was created by the educational system, firm training, or continuing professional education. Another important finding was that more than 25% of the auditing profession in both countries self-rated their IT knowledge as “Less Than Adequate.” This does not sound like the surveyed professionals believe they are meeting the “advanced level” of IT knowledge suggested by IFAC, and this suggests that the auditing professions in both countries need to address this issue if the profession is to appropriately meet the needs of society. Calibrating self-assessments of IT knowledge is important, and measuring auditors’ knowledge levels of relevant IT knowledge is critical to the audit profession. Continuous improvement is unlikely if auditors are overconfident about their IT skill levels. Further, absent feedback about their true ‘IT” skill levels, auditors will be unlikely to question, and certainly not improve their knowledge (Arkes et al. 1987). Further, the resources used to enhance auditors’ IT skills “needs to be considered an ‘investment’ rather than a ‘cost’” (Nance and Straub, 1996).

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.