Ilmu Sembilan-dua

Program Angsuran Biaya Menggunakan TPW 1.5

<div dir="ltr" style="text-align: left;" trbidi="on">
Assalamu'alaikum...<br />
Kali ini saya akan coba share Tugas mata kuliah struktur data yang di berikan oleh Dosen saya, yaitu tentang <b>Program Angsuran Biaya Menggunakan TPW 1.5.</b><br />
Langsung saja, anda bisa copy listing program dibawah untuk mencoba menjalankannya :<br />
<blockquote class="tr_bq">
<blockquote class="tr_bq">
<i>program angsuran_biaya_idham;</i></blockquote>
<blockquote class="tr_bq">
<i>uses wincrt;</i></blockquote>
<blockquote class="tr_bq">
<i>var no, tot, bayar, sisa,tanggal, bln, thn : longint;</i></blockquote>
<blockquote class="tr_bq">
<i>    nm, tempat, jur :  char;</i></blockquote>
<blockquote class="tr_bq">
<i><br /></i></blockquote>
<blockquote class="tr_bq">
<i>begin</i></blockquote>
<blockquote class="tr_bq">
<i>writeln('      FORMULIR ANGSURAN BIAYA');</i></blockquote>
<blockquote class="tr_bq">
<i>writeln;</i></blockquote>
<blockquote class="tr_bq">
<i>write('No                    : ');readln(no);</i></blockquote>
<blockquote class="tr_bq">
<i>write('Nama                  : ');readln(nm);</i></blockquote>
<blockquote class="tr_bq">
<i>write('Tempat, Tanggal Lahir : ');readln(tempat);</i></blockquote>
<blockquote class="tr_bq">
<i><br /></i></blockquote>
<blockquote class="tr_bq">
<i>gotoxy(35,5);read(tanggal);</i></blockquote>
<blockquote class="tr_bq">
<i>if tanggal > 30 then</i></blockquote>
<blockquote class="tr_bq">
<i>begin</i></blockquote>
<blockquote class="tr_bq">
<i>write('tanggal yang anda masukkan salah!');</i></blockquote>
<blockquote class="tr_bq">
<i>readkey; donewincrt;</i></blockquote>
<blockquote class="tr_bq">
<i>end;</i></blockquote>
<blockquote class="tr_bq">
<i><br /></i></blockquote>
<blockquote class="tr_bq">
<i>gotoxy(38,5);read(bln);</i></blockquote>
<blockquote class="tr_bq">
<i>if bln > 12 then</i></blockquote>
<blockquote class="tr_bq">
<i>begin</i></blockquote>
<blockquote class="tr_bq">
<i>write('bulan yang anda masukkan salah!');</i></blockquote>
<blockquote class="tr_bq">
<i>readkey; donewincrt;</i></blockquote>
<blockquote class="tr_bq">
<i>end;</i></blockquote>
<blockquote class="tr_bq">
<i><br /></i></blockquote>
<blockquote class="tr_bq">
<i>gotoxy(41,5);read(thn);</i></blockquote>
<blockquote class="tr_bq">
<i>if thn > 1996 then</i></blockquote>
<blockquote class="tr_bq">
<i>begin</i></blockquote>
<blockquote class="tr_bq">
<i>write('tahun yang anda masukkan salah!');</i></blockquote>
<blockquote class="tr_bq">
<i>readkey; donewincrt;</i></blockquote>
<blockquote class="tr_bq">
<i>end;</i></blockquote>
<blockquote class="tr_bq">
<i><br /></i></blockquote>
<blockquote class="tr_bq">
<i>write('Jurusan               : ');readln(jur);</i></blockquote>
<blockquote class="tr_bq">
<i>write('Total Biaya           : Rp.');readln(tot);</i></blockquote>
<blockquote class="tr_bq">
<i>write('Bayar                 : Rp.');readln(bayar);</i></blockquote>
<blockquote class="tr_bq">
<i>writeln('====================================');</i></blockquote>
<blockquote class="tr_bq">
<i>sisa:=tot-bayar;</i></blockquote>
<blockquote class="tr_bq">
<i>write('Sisa Pembayaran       : Rp.',sisa);</i></blockquote>
<blockquote class="tr_bq">
<i>end.</i></blockquote>
</blockquote>
Screenshoot Program :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDshBTHEJwNboeYybS8gPtsPiwo2yWenaxKuVZmdqnr48SSy2G_EEGHikSuvD08Hbuk3k-1eYHUkwxwUTbeDAHOVVJfDVMGd4H9aO8UDQYrg5pBJVmlCEhZi6E7V7lqdX8f-vonyoH1gA5/s1600/1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="252" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDshBTHEJwNboeYybS8gPtsPiwo2yWenaxKuVZmdqnr48SSy2G_EEGHikSuvD08Hbuk3k-1eYHUkwxwUTbeDAHOVVJfDVMGd4H9aO8UDQYrg5pBJVmlCEhZi6E7V7lqdX8f-vonyoH1gA5/s400/1.jpg" width="400" /></a></div>
<div style="text-align: center;">
 <i>gambar 1.1 program setelah dijalankan</i></div>
<div style="text-align: center;">
<i><br /></i></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1sh_cR0j015KBJpWiMroz_OxvQePYiyBvSrtj6EFDt-_5bHqsdnSCIbrPsQvXt39qDG14WsAU7eDqvMP2IgoP7NC7rfYeKnIItz58jcXG8szqfgz-xkBwfFOGkFTIPmNg0PGYe9zCYg0H/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="253" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1sh_cR0j015KBJpWiMroz_OxvQePYiyBvSrtj6EFDt-_5bHqsdnSCIbrPsQvXt39qDG14WsAU7eDqvMP2IgoP7NC7rfYeKnIItz58jcXG8szqfgz-xkBwfFOGkFTIPmNg0PGYe9zCYg0H/s400/2.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<i>gambar 1.2 apabila memasukan tahun lahir > 1996</i></div>
<div class="separator" style="clear: both; text-align: center;">
<i><b><br /></b></i></div>
<div class="separator" style="clear: both; text-align: left;">
<i><b>*Semoga Bermanfaat</b></i></div>
</div>

Program Angsuran Biaya Menggunakan TPW 1.5

Assalamu'alaikum... Kali ini saya akan coba share Tugas mata kuliah struktur data yang di berikan oleh Dosen saya, yaitu tentang Program Angsuran Biaya Menggunakan TPW 1.5. Langsung saja, anda bisa c…

Baca selengkapnya »

17 Dec 2013

Manfaat Belajar TPW / Turbo Pascal

<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Sebelumnya, saya pernah posting <a href="http://ilmu-sembilandua.blogspot.com/2013/06/download-tpw-15-turbo-pascal-for-windows_16.html" target="_blank"><b>download TPW 1.5 (Turbo Pascal for Windows)</b></a>, sekarang, saya akan coba memaparkan <b>manfaat kita pelajar TPW / Turbo Pascal</b>. Pernahkah kalian belajar bahasa pemograman? Seperti Turbo Pascal,C++,Visual Basic,Java, dll? Diantara bahasa pemograman yang saya sebut tadi Turbo Pascal adalah bahasa pemograman paling populer yang ada saat ini.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-size: large;"><span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b>Sejarah singkat Turbo Pascal</b></span></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-size: large;"><span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b><br /></b></span></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Pascal adalah bahasa tingkat tinggi (high level language) yang orientasinya pada segala tujuan, dirancang oleh Profesor Niklaus Wirth dari Technical University of Zurich, Switzerland. Nama Pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematik dan filosofer terkenal abad 17 dari Perancis.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Profesor Niklaus Wirth memperkenalkan kompiler bahasa Pascal pertama kali untuk komputer CDC 6000 (Control Data Corporation) yang dipublikasikan pada tahun 1971 (ini sudah sangat tua kawan hehe) dengan tujuan membantu mengajar program komputer secara sistematis, khususnya untuk memperkenalkan pemrograman terstruktur.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Dalam waktu singkat, Pascal telah menjadi bahasa yang populer di kalangan pelajar universitas dan merupakan bahasa yang diajarkan di beberapa perguruan tinggi. Beberapa profesional komputer juga mulai beralih ke bahasa Pascal. Kenyataannya, Pascal merupakan bahasa yang paling cepat populer dibandingkan dengan bahasa-bahasa komputer tingkat tinggi yang lainnya.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-size: large;"><span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b>Manfaat belajar Turbo Pascal</b></span></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Tentu pada dewasa ini sudah banyak bahasa pemrograman seperti C++, Java, yang jauh lebih mudah dalam pembuatan aplikasi karena kemampuannya yang hebat yaitu Pemrograman Berorientasi Objek.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Yang menjadi masalah adalah kenapa hampir banyak sekolah yang memiliki pelajaran komputer mengajarkan bahasa pemrograman pascal? kenapa mereka tidak mengajarkan bahasa seperti C++, bukankah C++ itu merupakan bahasa pemrograman yang lebih keren? atau lebih cepat? atau lebih banyak digunakan pada masa kini?</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Jangankan itu, untuk mengikuti Olimpiade Sains Nasional pada bidang komputer dibutuhkan skill atau kemampuan untuk menguasai Pascal. Belum lagi masalah jaman, seperti kita ketahui kalau pascal merupakan bahasa pemrograman jadul yang popular pada jaman 1980-an, wah man.. kita sudah pada abad 21 man..</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Berikut adalah beberapa manfaat bahasa pemrograman pascal sehingga masih  tetap Axis hingga jaman sekarang</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b>1. Bahasa Pemrograman Pascal lebih mudah dibuat karna  mudah untuk dipahami</b></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Bahasa Pascal merupakan bahasa yang cukup mudah di pahami, karena menggunakan bahasa manusia (high Level Language) atau bahasa tingkat tinggi. Sehingga lebih mudah untuk dipelajari bagi orang-orang yang mau masuk ke dalam dunia pemrograman. Selain itu struktur yang ada pada pascal jauh lebih rapi dibandingkan bahasa pemrograman lainnya seperti C++ dan juga Java.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b>2. Melatih Logika (Bahasa Pascal mengajak kita untuk berpikir)</b></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Pada kecanggihan bahasa pemrograman sekarang. Bahwa kita dapat membuat sebuah program dengan mudah, saya ambil contoh simple untuk mengurutkan (sorting) bilangan, pada bahasa pemrograman C++ anda tinggal menggunakan fungsi sort(), sedangkan pada pascal ? anda harus menggunakan logika anda untuk mengurutkan bilangan tersebut.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b>3. Bahasa Pascal mempermudah para newbie (pemula) yang ingin memasuki dunia pemrograman</b></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Untuk para newbie atau pendatang baru yang ingin memasuki dunia pemrograman akan jauh lebih mudah apabila dia sudah menguasai bahasa pemrograman pascal kenapa? karena pascal menggunakan tipe data standar, yang juga digunakan pada bahasa pemrograman lainnya, selain itu bahasa pemrograman pascal juga memiliki fungsi perulangan dan percabangan yang mirip dengan bahasa pemrograman lainnya, jadi untuk bermigrasi bahasa pemrograman, dan jika anda sudah menguasai bahasa pascal sebelumnya, umumnya anda akan jauh lebih cepat dibandingkan orang yang belum menguasai bahasa pascal sebelumnya.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><br /></span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">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.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">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.</span></div>
<div style="text-align: justify; text-indent: 48px;">
<span style="font-family: Arial, Helvetica, sans-serif;"><span style="line-height: 19px;"><br /></span>
</span><span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b>Manfaat belajar Turbo Pascal dalam bentuk gambaran dari manfaat Turbo Pascal :</b></span><br style="font-family: Arial, Helvetica, sans-serif;" /><span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b><br /></b></span><br />
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;"><b>1. Kecepatan (speed)</b></span><span style="font-family: Arial, Helvetica, sans-serif;"><span style="line-height: 19px;"><b><br /></b></span>
<span style="line-height: 19px;">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)</span></span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><b style="line-height: 19px;"><br /></b>
<b style="line-height: 19px;">2. Tipe data yang kuat</b></span><br />
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">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.</span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><span style="line-height: 19px;"><b><br /></b></span>
<span style="line-height: 19px;"><b>3. Ukuran</b></span></span><br />
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">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.</span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><span style="line-height: 19px;"><b><br /></b></span>
<span style="line-height: 19px;"><b>4. Portabilitas</b></span></span><br />
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.</span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><span style="line-height: 19px;"><b><br /></b></span>
<span style="line-height: 19px;"><b>5. Produktivitas</b></span></span><br />
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">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.</span></div>
<blockquote class="tr_bq">
<span style="font-family: Arial, Helvetica, sans-serif; line-height: 19px;">Bagi yang mau belajar, silahkan download software TPW 1.5 <b><a href="http://adf.ly/aMBPj" target="_blank"><i>disini>>></i></a></b></span></blockquote>
</div>

Manfaat Belajar TPW / Turbo Pascal

Sebelumnya, saya pernah posting download TPW 1.5 (Turbo Pascal for Windows), sekarang, saya akan coba memaparkan manfaat kita pelajar TPW / Turbo Pascal. Pernahkah kalian belajar bahasa pemograman? S…

Baca selengkapnya »

16 Dec 2013

Tentang Still Life Photography

<div dir="ltr" style="text-align: left;" trbidi="on">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwjcbS_tP66RXpKGkTiCw-UPIlQ3lR4vHJbX9lk3EBnDTNySsqyQDkPQ0u9uFGWGix2rggfzQd9i25Pix9ctw1O9Hhl-9qDDjgR46m80hx0-iD2N8_c-pg7IjAVfuep4ZqCAuN86MNefdY/s1600/images.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="200" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwjcbS_tP66RXpKGkTiCw-UPIlQ3lR4vHJbX9lk3EBnDTNySsqyQDkPQ0u9uFGWGix2rggfzQd9i25Pix9ctw1O9Hhl-9qDDjgR46m80hx0-iD2N8_c-pg7IjAVfuep4ZqCAuN86MNefdY/s200/images.jpg" width="200" /></a>Fotografi Still life tanpa kita sadari sering lihat dalam kehidupan sehari. Foto still lifebanyak ditemui di sekeliling kehidupan kita di majalah, Koran, kalender, brosur maupunbillboard di pinggir-pinggir jalan. Foto jenis ini sering menampilkan makanan, minuman ataupun benda mati lainya yang di komposisikan sedemikian rupa sehingga tampak menarik dipandang mata. Fotografi Still life identik dengan dunia komersial dan advertesing.<br />
<br />
<b><i><span style="font-size: large;">Definisi still life photography</span></i></b><br />
Kata still yang artinya diam atau mati, sedangkan life berarti hidup dalam konteks memberi ”kehidupan” pada benda tersebut. Still life photography dapat diartikan memotret benda mati tampak lebih hidup dan berbicara. Foto still life bukan hanya memindahkan objek kedalam sebuah foto, tetapi lebih dapat mengandung arti dengan pencapaian hasil foto yang lebih artistik dan bermakna.<br />
<br />
Fotografi Still life dalam konteks fungsional berupa pemotretan benda untuk tujuan pembuatan katalog, brosur, company profile, flyer dan iklan. Dalam hal ini, still life berfungsi sebagai iklan atau komunikasi visual dalam konteks komersial. Semua foto yang dibuat harus komunikatif; seberapa bagus desain barangnya, bagaimana fungsi barangnya dan diperuntukkan untuk kalangan siapa barang yang ada dalam foto tersebut.<br />
<br />
Fotografi Still life dalam konteks ekspresif, foto still life dibuat sesuai selera, konsep dan emosi fotografer yang membuat foto still life tersebut. Seorang fotografer dapat mengekspresikan diri ke dalam fotonya.<br />
<br />
3 unsur Dalam foto still life<br />
1.       Pencahayaan<br />
2.       Komposisi<br />
3.       Properti<br />
<br />
3 unsur ini dalam foto still life saling berkaiatan karena dapat memberikan kesan dan pesan yang mengidupkan sebuah karya foto still life. Penerapan teknik pencahayan dan komposisi yang menarik menambah nilai aristik dalam foto still life. Properti yang digunakan bertujuan menghidupkan point-of-interests.<br />
<br />
Dalam fotografi still life Konsep atau rancang bangun atau story board sangat penting. Dalam still life, kita berhadapan dengan benda mati dan bagai mana mem-visualisasikan benda mati tersebut agar tampak lebih hidup. Dengan konsep kita merancang pemotretan dengan mempertimbangkan 3 unsur; pencahayaan, komposisi dan properti agar dapat menuangkan semua rasa yang kita presentasikan kepada benda. Konsep dalam foto bertujuan untuk memberikan sebuah "pesan" yang fotografer ciptakan kepada benda mati ini. Konsep mengandung unsur pesan yang akan kita sampaikan kepada audiens (yang melihat atau mengapresiasi foto still life tersebut). Dan dalam menyampaikan pesan tersebut, kita harus bisa menyamakan persepsi, atau rasa pembaca dengan persepsi kita. Hal ini dinamakan apresiasi dalam komunikasi visual yang berbentuk sebuah foto.<br />
<br />
Sebuah kondisi dimana foto still life yang berhasil dengan memanfaatkan benda atau suasana. Dalam pemanfaatan benda, kepekaan fotografer dituntut untuk mengenali benda dari segi pencahayaan dan lain sebagainya. Namun dalam memanfaatkan suasana, fotografer harus bisa mengenali suasana seperti apa yang bisa dimanfaatkan untuk bisa mewakili ekspresi atau perasaan yang ingin kita tuangkan dalam foto tersebut.<br />
<br />
Kesimpulannya<br />
1. still-life : benda-benda mati, berarti objeknya benda mati<br />
2. foto still-life : foto benda-benda mati<br />
3. still-life yang bagus : dapat memunculkan karakter bendanya<br />
4. karakter diperlukan untuk memunculkan "kesan" hidup<br />
5. untuk memunculkan "kesan" tersebut diperlukan kreativitas<br />
6. agar jadi kreatif, latihan dan latihan, diskusi/bertanya, baca-baca<br />
<br />
Tips untuk membuat foto still life adalah :<br />
 1. Kuasai teknik pencahayaan.<br />
 2. Kuasai teori komposisi fotografis.<br />
 3. Kenali karakter objek dan properti pendukung. Jangan sampai semua objek tumpang tindih dalam satu frame. Seringkali, simple is beautiful.<br />
<br />
<blockquote class="tr_bq">
<b><i>Sumber : Fotografer.net</i></b></blockquote>
</div>

Tentang Still Life Photography

Fotografi Still life tanpa kita sadari sering lihat dalam kehidupan sehari. Foto still lifebanyak ditemui di sekeliling kehidupan kita di majalah, Koran, kalender, brosur maupunbillboard di pinggir-p…

Baca selengkapnya »

03 Dec 2013

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

<div dir="ltr" style="text-align: left;" trbidi="on">
<div align="center" class="MsoNormalCxSpFirst" style="text-align: center;">
<span style="font-family: "Times New Roman","serif"; font-size: 18.0pt;">Program
PegawaiMemakai Procedure<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Program DataPegawai;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Uses Wincrt;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Var<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nama :array[1..100]of string;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">kerja:array [1..100]of char;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nip, gol, jam, Gapok, Insentif, Gaber
:array[1..100]of longint;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">a,n,gaji:longint;   
<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">ulang,kembali:char;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">proceduregaris;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('================================================================================');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">procedurenamapegawai;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";"> If (nip[n]) =
1 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nama[n] := 'YosepDwiAnjani';<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('Nama       
: ', (nama[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else if (nip[n]) = 2 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nama[n] := 'RisalAgustian';<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('Nama       
: ', (nama[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else if (nip[n]) = 3 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nama[n] := 'IdhamHanif N';<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('Nama       
: ', (nama[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">write('Nama       
: ');readln(nama[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">proceduregolongan;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">  If (gol[n])
= 1 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gapok[n]:= 1000000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else if (gol[n]) = 2 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gapok[n]:=1500000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else if (gol[n]) = 3 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gapok[n]:=2000000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">     Else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gapok[n]:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('golongan yang andamasukantidakada');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">readkey;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">donewincrt;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">procedurelembur;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">ifupcase(kerja[n]) ='Y' then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">if (jam[n]) >20 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Insentif[n]:=(jam[n])*20000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">if (jam[n])>=10 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">insentif[n] :=(jam[n])*10000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Insentif[n]:=(jam[n])*5000;     <o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('Insentif   
: Rp. ',(insentif[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gaber[n]:=Gapok[n]+Insentif[n] ;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gaber[n]:=Gapok[n];<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">jam[n]:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">insentif[n]:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">procedurelaporan;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">clrscr;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('Laporan Data PegawaidanGajiPegawai ');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">garis;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('|   
|     |                |   |         
|          |         |           | ');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('| No | NIP |  NamaPegawai 
|Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('|   
|     |                |   |         
|          |         |           | ');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">garis;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">for a:=1 to n do<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(1,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(3,a+7);write(a);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(6,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(8,a+7);write(nip[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(12,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(13,a+7);write(nama[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(29,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(31,a+7);write(gol[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(33,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(34,a+7);write(gapok[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(44,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(45,a+7);write(jam[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(55,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(56,a+7);write(insentif[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(65,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(68,a+7);write(gaber[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(77,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gaji:=gaji+(gaber[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln (' Total GajiPegawai Yang Harus Di
bayaradalahRp. ',gaji);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">readln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">procedureutama;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">n:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">repeat<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">n:=n+1;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Clrscr;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(28,2);Writeln('SelamatDatang');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(20,3);Writeln('Entri Data PegawaiKelompok
3');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">garis;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Write('NIP : ');Readln(nip[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">namapegawai;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Write('Golongan 
(1,2,3): ');Readln(gol[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">golongan;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('GajiPokok 
: Rp. ', Gapok[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">write('Ada KerjaTambahan  y/t? 
');readln(kerja[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">lembur;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('GajiBersih : Rp. ', (Gaber[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">write('Tambah data Pegawai (y/t): ');readln(ulang);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">untilupcase(Ulang) <> 'Y';<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">kembali:='Y' 
;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">whileupcase(kembali) = 'Y' do<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gaji:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">utama;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">laporan;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">write('inginulangiAplikasi(y/t) ?
');readln(kembali);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">ifupcase(kembali)='T' then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">donewincrt;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end.<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div align="center" class="MsoNormalCxSpMiddle" style="text-align: center;">
<span style="font-family: "Times New Roman","serif"; font-size: 18.0pt;">Program
PegawaiMemakaiIf<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Program DataPegawai;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Uses Wincrt;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Var<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nama :array[1..100]of string;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">kerja:array [1..100]of char;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nip, gol, jam, Gapok, Insentif, Gaber
:array[1..100]of longint;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">a,n,gaji:longint;   
<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">ulang,kembali:char;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">proceduregaris;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('================================================================================');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">kembali:='Y' 
;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">whileupcase(kembali) = 'Y' do<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gaji:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">n:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">repeat<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">n:=n+1;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Clrscr;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(28,2);Writeln('SelamatDatang');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(20,3);Writeln('Entri Data PegawaiKelompok
3');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">garis;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Write('NIP : ');Readln(nip[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">           If
(nip[n]) = 1 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nama[n] := 'YosepDwiAnjani';<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('Nama       
: ', (nama[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else if (nip[n]) = 2 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nama[n] := 'RisalAgustian';<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('Nama       
: ', (nama[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else if (nip[n]) = 3 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">nama[n] := 'IdhamHanif N';<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('Nama       
: ', (nama[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">write('Nama       
: ');readln(nama[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Write('Golongan 
(1,2,3): ');Readln(gol[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">       If
(gol[n]) = 1 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gapok[n]:= 1000000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else if (gol[n]) = 2 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gapok[n]:=1500000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else if (gol[n]) = 3 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gapok[n]:=2000000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">     Else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gapok[n]:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('golongan yang andamasukanTidakada');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">readkey;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">donewincrt;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('GajiPokok 
: Rp. ', Gapok[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">write('Ada KerjaTambahan  y/t? 
');readln(kerja[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">ifupcase(kerja[n]) ='Y' then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">if (jam[n]) >20 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Insentif[n]:=(jam[n])*20000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">if (jam[n]) >=10 then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">insentif[n] :=(jam[n])*10000<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Insentif[n]:=(jam[n])*5000;     <o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('Insentif   
: Rp. ',(insentif[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Gaber[n]:=Gapok[n]+Insentif[n] ;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">else<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gaber[n]:=Gapok[n];<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">jam[n]:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">insentif[n]:=0;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">Writeln('GajiBersih : Rp. ', (Gaber[n]));<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">write('Tambah data Pegawai (y/t): ');readln(ulang);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">untilupcase(Ulang) <> 'Y';<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">clrscr;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('Laporan Data PegawaidanGajiPegawai ');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">garis;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('|   
|     |                |   |         
|          |         |           | ');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('| No | NIP |  NamaPegawai 
|Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln('|   
|     |                |   |         
|          |         |           | ');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">garis;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">for a:=1 to n do<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">begin<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(1,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(3,a+7);write(a);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(6,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(8,a+7);write(nip[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(12,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(13,a+7);write(nama[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(29,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(31,a+7);write(gol[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(33,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(34,a+7);write(gapok[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(44,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(45,a+7);write(jam[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(55,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(56,a+7);write(insentif[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(65,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(68,a+7);write(gaber[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gotoxy(77,a+7);write('|');<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">gaji:=gaji+(gaber[a]);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">writeln (' Total GajiPegawai Yang Harus Di
bayaradalahRp. ',gaji);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">readln;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<br /></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">write('inginulangiAplikasi(y/t) ?
');readln(kembali);<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">ifupcase(kembali)='T' then<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">donewincrt;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end;<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif";">end.<o:p></o:p></span></div>
<span style="font-family: "Times New Roman","serif"; font-size: 11.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin;"><br clear="all" style="mso-special-character: line-break; page-break-before: always;" />
</span>

<br />
<div class="MsoNormal">
<br /></div>
<div align="center" class="MsoNormal" style="text-align: center;">
<b><span style="font-family: "Times New Roman","serif"; font-size: 18.0pt; line-height: 115%;">Flowchart
Memakai If<o:p></o:p></span></b></div>
<div class="MsoNormal">
<span style="font-family: "Times New Roman","serif"; mso-no-proof: yes;"></span><span style="font-family: "Times New Roman","serif";"><o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6TDt2R3rr3ijfeCv3C-1znjS0rrOP025hGBnBAMEJGqgm6zMfANsYj9O0lnywf2JTsYIZwDi-Whhfol_24nSIoO0XgPcOpljyzUuzbTpBjp8gb3M6gfgeZex2Fsp9PNUk-Ak5nz0mPGDA/s1600/1414929_656300611067439_424540871_n.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6TDt2R3rr3ijfeCv3C-1znjS0rrOP025hGBnBAMEJGqgm6zMfANsYj9O0lnywf2JTsYIZwDi-Whhfol_24nSIoO0XgPcOpljyzUuzbTpBjp8gb3M6gfgeZex2Fsp9PNUk-Ak5nz0mPGDA/s640/1414929_656300611067439_424540871_n.jpg" width="466" /></a></div>
<br />
<div align="center" class="MsoNormal" style="text-align: center;">
<b><span style="font-family: "Times New Roman","serif"; font-size: 18.0pt; line-height: 115%;"><br /></span></b></div>
<div align="center" class="MsoNormal" style="text-align: center;">
<b><span style="font-family: "Times New Roman","serif"; font-size: 18.0pt; line-height: 115%;">Flowchart
Memakai Procedure<a href="http://www.blogger.com/blogger.g?blogID=7789085440413981083" name="_GoBack"></a><o:p></o:p></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2e02RBNLqNgovGaq0W8Yy6BG_Jk8IrBJY_c1AgXv_56f0Hd3UN0TN_FoiViczR2qAfBody7s3C5BC4uToQwHxxrZ11f1ikyiU8aHzbz1TeMRcpiuYkKrZoatJ8IclQFBfIH7q1D_ik4OC/s1600/1464859_656300571067443_1648620336_n.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2e02RBNLqNgovGaq0W8Yy6BG_Jk8IrBJY_c1AgXv_56f0Hd3UN0TN_FoiViczR2qAfBody7s3C5BC4uToQwHxxrZ11f1ikyiU8aHzbz1TeMRcpiuYkKrZoatJ8IclQFBfIH7q1D_ik4OC/s640/1464859_656300571067443_1648620336_n.jpg" width="473" /></a></div>
<div align="center" class="MsoNormalCxSpMiddle" style="text-align: center;">
<br /></div>
<br />
<div class="MsoNormal">
<br /></div>
<div align="center" class="MsoNormal" style="text-align: center;">
<b><span lang="IN" style="font-family: "Times New Roman","serif"; font-size: 16.0pt; line-height: 115%; mso-ansi-language: IN;">Screen Program<o:p></o:p></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwV_KMLBpHIlu-cF_CCXXZPi5VEc4uejZsSB338Nx6V0BA62fKsSdSNx23QodGSCBwVoasF3fE0HYRsO0_Ll0F9-jpLfk9fR9oYGh_5rO_9v-rS86__iqYBEW2Be7NeRe33k67SHgaXQSX/s1600/3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="406" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwV_KMLBpHIlu-cF_CCXXZPi5VEc4uejZsSB338Nx6V0BA62fKsSdSNx23QodGSCBwVoasF3fE0HYRsO0_Ll0F9-jpLfk9fR9oYGh_5rO_9v-rS86__iqYBEW2Be7NeRe33k67SHgaXQSX/s640/3.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNsR-zd6trQaZBT3iOT4OBlyTbKdjLVUo5Mtj_MBIEnjb-bpEv8e3rhXy8ypMK_9A7D1yCz7VcB7j-XQRybu5IZ-DdXBV5mMoHCtyfXFi6Wu_YdkRJiy2gNcXO3B9fj3kKRLz5yQ3E3uqR/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="407" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNsR-zd6trQaZBT3iOT4OBlyTbKdjLVUo5Mtj_MBIEnjb-bpEv8e3rhXy8ypMK_9A7D1yCz7VcB7j-XQRybu5IZ-DdXBV5mMoHCtyfXFi6Wu_YdkRJiy2gNcXO3B9fj3kKRLz5yQ3E3uqR/s640/2.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgu3mQ_8vCZMp3BL7IH-Tu7OlJuy805mXZV6L6BeRQanQlRP6eydrKbDBnr3xD1s22aJQPxDwSuzRekBb8sRPNSDQgPt1uzNlLlOgh9G34WJHzTCY7l5LiEVEnjxpM6jBIbExZql_tRG6J5/s1600/1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="406" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgu3mQ_8vCZMp3BL7IH-Tu7OlJuy805mXZV6L6BeRQanQlRP6eydrKbDBnr3xD1s22aJQPxDwSuzRekBb8sRPNSDQgPt1uzNlLlOgh9G34WJHzTCY7l5LiEVEnjxpM6jBIbExZql_tRG6J5/s640/1.jpg" width="640" /></a></div>
<div align="center" class="MsoNormal" style="text-align: center;">
<b><span lang="IN" style="font-family: "Times New Roman","serif"; font-size: 16.0pt; line-height: 115%; mso-ansi-language: IN;"><br /></span></b></div>
<br />
<div class="MsoNormalCxSpMiddle">
<span style="font-family: "Times New Roman","serif"; mso-no-proof: yes;"></span><span lang="IN" style="font-family: "Times New Roman","serif"; mso-ansi-language: IN;"><o:p></o:p></span></div>
</div>

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,g…

Baca selengkapnya »

03 Dec 2013

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

<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="MsoTitle" style="line-height: 150%;">
<span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%;">BAB I<o:p></o:p></span></div>
<h1 style="line-height: 150%;">
<span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%;">PENDAHULUAN<o:p></o:p></span></h1>
<div class="MsoNormal" style="line-height: 150%;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in; text-align: justify;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">a.         Latar belakang<o:p></o:p></span></b></div>
<div style="line-height: 150%; margin-bottom: .0001pt; margin: 0in; mso-add-space: auto; text-align: justify;">
<span lang="IN" style="font-family: Arial, sans-serif; font-size: 11pt; line-height: 150%;">            </span><b><span lang="IN" style="font-family: Arial, sans-serif;">Turbo Pascal</span></b><span lang="IN" style="font-family: Arial, sans-serif;"> adalah sebuah
sistem pengembangan perangkat lunak yang terdiri atas <a href="http://id.wikipedia.org/wiki/Kompiler" title="Kompiler"><span style="color: black;">kompiler</span></a> dan lingkungan pengembangan
terintegrasi (dalam bahasa inggris: <i>Integrated Development Environment - IDE</i>)
atas bahasa pemrograman <a href="http://id.wikipedia.org/wiki/Pascal_%28bahasa_pemrograman%29" title="Pascal (bahasa pemrograman)"><span style="color: black;">pascal</span></a>
untuk sistem operasi <a href="http://id.wikipedia.org/w/index.php?title=CP/M&action=edit&redlink=1" title="CP/M (halaman belum tersedia)"><span style="color: black;">CP/M</span></a>,
<a href="http://id.wikipedia.org/w/index.php?title=CP/M-86&action=edit&redlink=1" title="CP/M-86 (halaman belum tersedia)"><span style="color: black;">CP/M-86</span></a>,
dan <a href="http://id.wikipedia.org/wiki/MS-DOS" title="MS-DOS"><span style="color: black;">MS-DOS</span></a>, yang dikembangkan oleh Borland pada masa
kepemimpinan Philippe Kahn. Nama <b>Borland Pascal</b> 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 <b>Turbo Pascal</b>. Nama Borland Pascal juga
digunakan sebagai dialek spesifik Pascal buatan Borland.</span><span lang="IN" style="font-family: Arial, sans-serif;"> </span><span lang="IN" style="font-family: Arial, sans-serif;">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.<o:p></o:p></span></div>
<div class="MsoNormalCxSpFirst" style="line-height: 150%; text-align: justify; text-indent: .5in;">
<span lang="EN-GB" style="font-family: Arial, sans-serif;">Turbo Pascal pada awalnya adalah kompiler Blue Label Pascal yang
dibuat untuk sistem operasi komputer mikro berbasis kaset, NasSys, milik Nascom
tahun 1981 oleh <a href="http://id.wikipedia.org/w/index.php?title=Anders_Hejlsberg&action=edit&redlink=1" title="Anders Hejlsberg (halaman belum tersedia)"><span style="color: black;">Anders
Hejlsberg</span></a>. 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.<o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle" style="line-height: 150%; text-align: justify; text-indent: .5in;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">b.         </span></b><b><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN;">Rumusan </span></b><b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">m</span></b><b><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN;">asalah<o:p></o:p></span></b></div>
<div class="MsoNormalCxSpMiddle" style="line-height: 150%; text-align: justify; text-indent: .5in;">
<span lang="EN-GB" style="background: white; font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%;">Berdasarkan latar belakang
yang telah dipaparkan di atas, maka penulis telah menentukan beberapa rumusan masalah
dalam pembuatan program data barang.<o:p></o:p></span></div>
<div class="MsoNormalCxSpLast" style="line-height: 150%; text-align: justify;">
<span lang="EN-GB" style="background: white; font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%;"> yaitu:<o:p></o:p></span></div>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0in; margin-left: .75in; margin-right: 0in; margin-top: 0in; mso-add-space: auto; mso-list: l0 level1 lfo1; mso-outline-level: 4; tab-stops: list .75in; text-align: justify; text-indent: -.25in;">
<span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: Arial;">1.<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">    </span></span><span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: "Times New Roman";">Gambaran umum program;<o:p></o:p></span></div>
<div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0in; margin-left: .75in; margin-right: 0in; margin-top: 0in; mso-add-space: auto; mso-list: l0 level1 lfo1; mso-outline-level: 4; tab-stops: list .75in; text-align: justify; text-indent: -.25in;">
<span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: Arial;">2.<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">    </span></span><span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: "Times New Roman";">Flow Chart program;<o:p></o:p></span></div>
<div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0in; margin-left: .75in; margin-right: 0in; margin-top: 0in; mso-add-space: auto; mso-list: l0 level1 lfo1; mso-outline-level: 4; tab-stops: list .75in; text-align: justify; text-indent: -.25in;">
<span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: Arial;">3.<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">    </span></span><span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: "Times New Roman";">Koding program;<o:p></o:p></span></div>
<div class="MsoListParagraphCxSpLast" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0in; margin-left: .75in; margin-right: 0in; margin-top: 0in; mso-add-space: auto; mso-list: l0 level1 lfo1; mso-outline-level: 4; tab-stops: list .75in; text-align: justify; text-indent: -.25in;">
<span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: Arial;">4.<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">    </span></span><span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: "Times New Roman";">Lay out program.<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: 24.0pt; text-align: justify;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">c.         Tujuan</span></b><b><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN;"><o:p></o:p></span></b></div>
<div class="MsoNormalCxSpLast" style="line-height: 150%; tab-stops: 24.0pt; text-align: justify;">
<b><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN;">            </span></b><span lang="EN-GB" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%;">Sejalan dengan rumusan
masalah di atas, makalah ini disusun dengan tujuan untuk mengetahui dan
mendeskripsikan:</span><b><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN;"><o:p></o:p></span></b></div>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0in; margin-left: 56.7pt; margin-right: 0in; margin-top: 0in; mso-add-space: auto; mso-list: l1 level1 lfo4; mso-outline-level: 4; text-align: justify; text-indent: -21.25pt;">
<span style="font-family: "Verdana","sans-serif"; mso-bidi-font-family: Verdana; mso-bidi-font-weight: bold; mso-fareast-font-family: Verdana;">1.<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">    
</span></span><span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: "Times New Roman";">Struktur
pemrograman dan analisa masalah;<o:p></o:p></span></div>
<div class="MsoListParagraphCxSpLast" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0in; margin-left: 56.7pt; margin-right: 0in; margin-top: 0in; mso-add-space: auto; mso-list: l1 level1 lfo4; mso-outline-level: 4; text-align: justify; text-indent: -21.25pt;">
<span style="font-family: "Verdana","sans-serif"; mso-bidi-font-family: Verdana; mso-bidi-font-weight: bold; mso-fareast-font-family: Verdana;">2.<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">    
</span></span><span style="font-family: "Arial","sans-serif"; mso-bidi-font-weight: bold; mso-fareast-font-family: "Times New Roman";">Implementasi
sebuah program. <o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in; text-align: justify;">
<br /></div>
<div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">BAB II<o:p></o:p></span></b></div>
<h1 style="line-height: 150%;">
<span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%;">PEMBAHASAN<o:p></o:p></span></h1>
<div class="MsoNormal" style="line-height: 150%;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: .75in; mso-list: l3 level1 lfo3; tab-stops: .5in list .75in left 4.25in; text-indent: -.75in;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-font-family: Arial;">a.<span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;">           
</span></span></b><b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">Gambaran umum
program</span></b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">                                            <o:p></o:p></span></div>
<div class="MsoNormalCxSpMiddle" style="line-height: 150%; tab-stops: .5in; text-align: justify;">
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN;">            </span><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">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.  <o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: .75in; mso-list: l2 level1 lfo2; tab-stops: .5in list .75in; text-indent: -.75in;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-font-family: Arial;">b.<span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;">           
</span></span></b><b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">Flow chart
program<o:p></o:p></span></b></div>
<div class="MsoNormal" style="line-height: 150%; mso-layout-grid-align: none; text-align: justify; text-autospace: none;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">            </span></b><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN; mso-fareast-language: IN;">Diagram alur <i>(flowchart) </i>merupakan
gambar atau bagan yang memperlihatkan urutan dan</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-language: IN;"> </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN; mso-fareast-language: IN;">hubungan antar proses beserta
instruksinya. Bagan ini dinyatakan dengan simbol. Dengan</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-language: IN;"> </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN; mso-fareast-language: IN;">demikian setiap simbol
menggambarkan proses tertentu sedangkan hubungan antar</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-language: IN;"> </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN; mso-fareast-language: IN;">proses digambarkan dengan garis
penghubung. Simbol-simbol diagram alur.</span><b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;"><o:p></o:p></span></b></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in; text-align: justify; text-justify: kashida; text-kashida: 0%;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;"><br /></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgEz4GVJVnuE4EV8Y5zoY-_F909F4isqW2BYsKZq4qovBk2vP2GShaBkarGJsAviXFvwLi2fB03JpMa32309USGUsgB9QxiC3fjMTWh_4UK7Su8u3TEW-mbQEwMncawoFHRG7tnt_F44NF_/s1600/Untitled.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="498" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgEz4GVJVnuE4EV8Y5zoY-_F909F4isqW2BYsKZq4qovBk2vP2GShaBkarGJsAviXFvwLi2fB03JpMa32309USGUsgB9QxiC3fjMTWh_4UK7Su8u3TEW-mbQEwMncawoFHRG7tnt_F44NF_/s640/Untitled.jpg" width="640" /></a></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in; text-align: justify; text-justify: kashida; text-kashida: 0%;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in; text-align: justify; text-justify: kashida; text-kashida: 0%;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in 145.6pt center 237.45pt left 269.2pt;">
<span style="height: 79px; margin-left: 189px; margin-top: 22px; mso-ignore: vglayout; position: absolute; width: 34px; z-index: 251653632;"><br /></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: .75in; mso-list: l2 level1 lfo2; tab-stops: .5in list .75in; text-indent: -.75in;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-font-family: Arial;">c.<span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;">           
</span></span></b><b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">Koding program<o:p></o:p></span></b></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">c.1.      Pengkodean dengan struktur pemilihan (IF)<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">PROGRAM DATA_BARANG;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">USES WINCRT;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">VAR<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">ULANG                    : CHAR;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">KDBR,PILIH               : STRING;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">KET1                     : LONGINT;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">ULANG := 'Y';<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WHILE ULANG = 'Y' DO<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">CLRSCR;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('                                           PROGRAM DATA BARANG');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('                           TOKO BERKAH MAKMUR GROSIR DAN
ECERAN'); <o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('ALAMAT : JL. KHZ.
MUSTHAFA NO. 22 SUKAHIDENG-SUKARAPIH-TASIKMALAYA 43364');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('=======================================================================');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('Struktur IF                                                                                                    Kelompok
2 © 2013');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('=======================================================================');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('KODE JENIS
BARANG');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('---------------------------------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('*  B11 [SEMBAKO] - B12 [MAKANAN] - B13
[MINUMAN]  *');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN('---------------------------------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITE('PILIH JENIS DATA
BARANG : ');READLN(PILIH);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">IF PILIH = 'B11' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">CLRSCR;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('KATEGORI SEMBAKO');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('DAFTAR KODE BARANG : ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">    
WRITELN('------------------------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('BR-001 [SABUN MANDI] BR-002
[SABUN CUCI  ]');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('BR-003 [TERIGU     ] BR-004 [MINYA GORENG]');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">    
WRITELN('------------------------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITE('KODE BARANG    : ');READLN(KDBR);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-001' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : SABUN MANDI');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=2500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 1');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 10 BTG');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-002' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : SABUN CUCI');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=3500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 1');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 5 BKS');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-003' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : TERIGU');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=2300;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 2');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 10 KG');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-004' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : SABUN CUCI');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=3500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 2');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 5');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">IF PILIH = 'B12' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">CLRSCR;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('KATEGORI MAKANAN');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('DAFTAR KODE BARANG : ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('--------------------------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('BR-005 [WAFER NISSIN] BR-006
[KACANG GARUDA]');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('BR-007 [SARI ROTI   ] BR-008 [KHONG GUAN   ]');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">    
WRITELN('--------------------------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITE('KODE BARANG    : ');READLN(KDBR);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-005' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : WAFER NISSIN');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=12500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 3');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 5 KLG');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-006' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : KACANG GARUDA');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=1500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 3');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 10 PAK');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-007' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : SARI ROTI');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=2500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 3');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 20 BKS');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-008' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : KHONG GUAN');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=25000;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 2');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 5 KLG');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">IF PILIH = 'B13' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">CLRSCR;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('KATEGORI MINUMAN');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('DAFTAR KODE BARANG : ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">    
WRITELN('----------------------------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('BR-009 [COCA-COLA   ] BR-010 [TEH PUCUK       ]');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN('BR-011 [POCARI SWEAT] BR-012
[LARUTAN PENYEGAR]');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">    
WRITELN('----------------------------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     WRITE('KODE BARANG    : ');READLN(KDBR);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-009' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : COCA-COLA');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=12500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 4');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 7 BTL');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-010' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : TEH PUCUK');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=1500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 4');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 5 BTL');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-011' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : POCARI SWEAT');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=2500;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 4');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 8 BTL');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     IF KDBR = 'BR-012' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('NAMA BARANG    : LARUTAN PENYEGAR');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        KET1 :=25000;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('lOKASI         : RAK 4');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">        WRITELN('STOK           : 5 KLG');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">     END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITELN;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">WRITE('APAKAH AKAN MENGULANG
PENCARIAN DATA Y/T ? ');READLN(ULANG);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">IF ULANG = 'T' THEN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">DONEWINCRT;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">END;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-bidi-font-weight: bold;">END.<o:p></o:p></span></div>
<div style="line-height: 150%; margin-bottom: .0001pt; margin: 0in; mso-add-space: auto; text-align: justify;">
<br /></div>
<div style="line-height: 150%; margin-bottom: .0001pt; margin: 0in; mso-add-space: auto; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">c.2.      Pengkodean dengan struktur parameter (Procedure)<o:p></o:p></span></div>
<div style="line-height: 150%; margin-bottom: .0001pt; margin: 0in; mso-add-space: auto; text-align: justify;">
<br /></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">PROGRAM
DATA_BARANG;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">USES
WINCRT;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">VAR<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">ULANG                    : CHAR;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">PILIH                    : STRING;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">PROCEDURE
MULAI;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('KODE
JENIS BARANG');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('---------------------------------------------------');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('*  B11 [SEMBAKO] - B12 [MAKANAN] - B13
[MINUMAN]  *');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('---------------------------------------------------');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITE('PILIH
JENIS DATA BARANG : ');READLN(PILIH);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">PROCEDURE
SEMBAKO;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">VAR<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">KDBR
: STRING;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">KET1
: LONGINT;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     CLRSCR;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('KATEGORI SEMBAKO');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('DAFTAR KODE BARANG : ');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">    
WRITELN('------------------------------------------');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('BR-001 [SABUN MANDI] BR-002
[SABUN CUCI  ]');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('BR-003 [TERIGU     ] BR-004 [MINYA GORENG]');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">    
WRITELN('------------------------------------------');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITE('KODE BARANG    : ');READLN(KDBR);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">          IF KDBR = 'BR-001' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : SABUN MANDI');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=2500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 1');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 10 BTG');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-002' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : SABUN CUCI');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=3500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 1');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 5 BKS');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-003' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : TERIGU');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=2300;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 2');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 10 KG');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-004' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : SABUN CUCI');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=3500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 2');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 5');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">PROCEDURE
MAKANAN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">VAR<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">KDBR
: STRING;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">KET1
: LONGINT;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     CLRSCR;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('KATEGORI MAKANAN');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('DAFTAR KODE BARANG : ');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">    
WRITELN('--------------------------------------------');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('BR-005 [WAFER NISSIN] BR-006
[KACANG GARUDA]');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('BR-007 [SARI ROTI   ] BR-008 [KHONG GUAN   ]');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">    
WRITELN('--------------------------------------------');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITE('KODE BARANG    : ');READLN(KDBR);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-005' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : WAFER NISSIN');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=12500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 3');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 5 KLG');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-006' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : KACANG GARUDA');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=1500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 3');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 10 PAK');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-007' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : SARI ROTI');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=2500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 3');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 20 BKS');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-008' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : KHONG GUAN');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=25000;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 2');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 5 KLG');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">PROCEDURE
MINUMAN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">VAR<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">KDBR
: STRING;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">KET1
: LONGINT;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     CLRSCR;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('KATEGORI MINUMAN');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">    
WRITELN('DAFTAR KODE BARANG : ');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">    
WRITELN('----------------------------------------------');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('BR-009 [COCA-COLA   ] BR-010 [TEH PUCUK       ]');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('BR-011 [POCARI SWEAT] BR-012
[LARUTAN PENYEGAR]');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN('----------------------------------------------');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     WRITE('KODE BARANG    : ');READLN(KDBR);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">          IF KDBR = 'BR-009' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : COCA-COLA');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=12500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 4');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 7 BTL');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-010' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : TEH PUCUK');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=1500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 4');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 5 BTL');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-011' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : POCARI SWEAT');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=2500;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 4');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 8 BTL');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     IF KDBR = 'BR-012' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('NAMA BARANG    : LARUTAN PENYEGAR');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        KET1 :=25000;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('HARGA          : ',KET1);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('lOKASI         : RAK 4');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">        WRITELN('STOK           : 5 KLG');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">     END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">ULANG
:= 'Y';<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WHILE
ULANG = 'Y' DO<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">CLRSCR;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('                         PROGRAM DATA BARANG');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('                  TOKO BERKAH MAKMUR GROSIR DAN
ECERAN'); <o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('ALAMAT
: JL. KHZ. MUSTHAFA NO. 22 SUKAHIDENG-SUKARAPIH-TASIKMALAYA 43364');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('=======================================================================');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('Struktur
Procedure                                   
                                                  Kelompok 2 © 2013');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN('=======================================================================');<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">MULAI;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">IF
PILIH ='B11' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">SEMBAKO<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">IF
PILIH ='B12' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">MAKANAN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">IF
PILIH ='B13' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">BEGIN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">MINUMAN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITELN;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">WRITE('APAKAH
AKAN MENGULANG PENCARIAN DATA Y/T ? ');READLN(ULANG);<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">IF
ULANG = 'T' THEN<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">DONEWINCRT;<o:p></o:p></span></div>
<div style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END;<o:p></o:p></span></div>
<div style="line-height: 150%; margin-bottom: .0001pt; margin: 0in; mso-add-space: auto; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%; mso-ansi-language: EN-US;">END.<o:p></o:p></span></div>
<div style="line-height: 150%; margin-bottom: .0001pt; margin: 0in; mso-add-space: auto; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: .75in; mso-list: l2 level1 lfo2; tab-stops: .5in list .75in; text-indent: -.75in;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-font-family: Arial;">d.<span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;">           
</span></span></b><b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">Lay out program</span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijYoMQ3ctA0aFU1hoaB2N3h4atGOgpjlJk2BvHl2l3iLEB1JVh-NjaCK0UtQzAjDs1YxRKBgvxhiBT_5S0Y4DNvC_C6TUb42jxWlOtgkUK2wJelxvxjFSNRs_ikzEGdRPFpl5MyjCCYrFS/s1600/Untitled.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijYoMQ3ctA0aFU1hoaB2N3h4atGOgpjlJk2BvHl2l3iLEB1JVh-NjaCK0UtQzAjDs1YxRKBgvxhiBT_5S0Y4DNvC_C6TUb42jxWlOtgkUK2wJelxvxjFSNRs_ikzEGdRPFpl5MyjCCYrFS/s400/Untitled.jpg" width="392" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: .75in; mso-list: l2 level1 lfo2; tab-stops: .5in list .75in; text-indent: -.75in;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;"><br /></span></b></div>
<div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">BAB III<o:p></o:p></span></b></div>
<h1 style="line-height: 150%;">
<span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%;">PENUTUP<o:p></o:p></span></h1>
<div class="MsoNormal" style="line-height: 150%;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in; text-align: justify;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">a.         Kesimpulan<o:p></o:p></span></b></div>
<div class="MsoNormalCxSpMiddle" style="line-height: 150%; tab-stops: .5in; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">            </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN;">            </span><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">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. </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN; mso-fareast-language: IN;">Diagram alur <i>(flowchart) </i>merupakan
gambar atau bagan yang memperlihatkan urutan dan</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-language: IN;"> </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: IN; mso-fareast-language: IN;">hubungan antar proses beserta
instruksinya.</span><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US; mso-fareast-language: IN;"> Koding
program adalah perintah program dengan struktur pemrograman bahasa Pascal dan
Lay out program adalah hasil akhir dari pemrograman yang akan
diimplementasikan.</span><b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;"><o:p></o:p></span></b></div>
<div class="MsoNormal" style="line-height: 150%;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; tab-stops: .5in; text-align: justify;">
<b><span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">b.         Saran<o:p></o:p></span></b></div>
<br />
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 11.0pt; line-height: 150%; mso-ansi-language: EN-US;">            </span><span lang="IN" style="font-family: "Arial","sans-serif"; mso-ansi-language: IN;">            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. <o:p></o:p></span></div>
</div>

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 bahas…

Baca selengkapnya »

03 Dec 2013