Popular Post

Posted by : sigit xp Kamis, 30 Mei 2013


 Masih dengan topik yang sama, yaitu mesin pencuci piring, saya akan mencoba membuat sebuah  program dari flowchart mesin tersebut. Dengan  menggunakan Turbo Pascal  menggunakan Function pada listing program ini.

   Listing programnya adalah sebagai berikut:


Penjelasan programnya adalah sebagai berikut:



Bagian ini merupakan subprogram utama. Pada bagian ini dideklarasikan judul function dan variabel yang akan digunakan dalam rumus function. Judul function yang digunakan adalah “Counter” dan variabel yang digunakan dalam rumus function-nya adalah “X”.  variabel X menndakan perhitungan pada mesin pencuci piring otomatis  dimana ada penambahan satu (1) setaip kali pencucian dilakukan sampai batas yang telah di tentukan.





Bagian ini merupakan pendeklarasian variabel pada program utama. Nilai dari variabel ini akan dimasukkan ke dalam rumus function yang telah dibuat sebelumnya pada subprogram utama.
Sehingga perhitungan pada rumus function akan dijalankan sesuai dengan pembatasan kerja pada mesin cuci piring otomatis dan alat akan berhenti beroprasi jika telah melewati batas pencucian yang telah ditentukan.






Bagian ini merupakan program utama. Perintah CLRSCR sangat jarang digunakan pada satu program dalam satu file.karena perintah ini biasa dipakai pada program yang membutuhkan beberapa output , cara kerjanya dengan cara membersihkan tampilan setelah output pertama selesai dibuat, sehingga output berikutnya dapat dibuat. Begitu seterusnya sampai batas yang telah di berikan pada mesin tersebut. Sedangkan perintah WRITELN digunakan untuk mencetak karakter yang sedang dihitung yaitu proses pencucian piring .serta READLN digunakan untuk menulis jumlah pencucian piring yang akan di cuci pada mesin tersebut.

Secara sederhana, program di atas dapat dituliskan dalam bentuk flowchart sebagai berikut:









Leave a Reply

Subscribe to Posts | Subscribe to Comments

- Copyright © xeroct xentral - Date A Live - Powered by Blogger - Designed by Johanes Djogan -