Posting saya kali ini ingin menjelaskan penggunaan procedure pada program pascal untuk menghitung nilai Vce pada transistor. Pada postingan sebelumnya saya membahas tentang penggunaan function pada pascal.Function (Fungsi) secara garis besar sama dengan procedure yang membedakannya adalah nama fungsi harus dideklarasikan dengan type datanya. Fungsi adalah suatu bagian program yang mengerjakan satu tugas dan hasilnya biasanya hanya satu. Fungsi juga menerima parameter-paramter seperti procedure yaitu Parameter Nilai dan Parameter Variabel. Selain itu fungsi juga diperbolehkan memiliki deklarasi lokal. Procedure selalu diawali dengan dengan kata procedure untuk mendeklarasikannyaProcedure tidak mengembalikan nilai ke program utama, sedangkan fungsi akan mengembalikan nilai ke program utama, itu sebabnya fungsi harus ada tipe datanya (integer, char atau string). Procedure outputnya diletakkan di dalam procedure, kalau fungsi outputnya di letakkan di program utama. Prosedur di panggil diprogram utama dengan menuliskan nama procedure tersebut di program utama.

Berikut contoh penggunaan procedure pada pascal untuk menghitung nilai Vce pada transistor :

procedure

Berikut outputnya setelah running :

hasil procedure

Berikut dilampirkan juga flowchart untuk memahami program lebih lanjut :

new flowchart softskill

Tidak ada perubahan pada flowchart program diatas dengan sebelumnya, karena function dan procedure pada dasarnya hampir mirip. Yang membedakan hanyalah pada penulisan program  procedure selalu diawali dengan dengan kata procedure untuk mendeklarasikannya, sehingga saat ingin membaca program yang dituliskan tersebut diakhir program end tidak diberi tanda titik (.) namun titik koma(;) dan dilanjutkan dengan

begin

transistor;

end.

jadi maksud dari kutipan listing diatas, nama label procedure yang telah ditulis di penulisan program di awal di panggil kembali untuk menampilkan isi program yang telah ditulis.

Sumber :

http://sangwidy.wordpress.com/web-design/oop-1/sub-routinction-function-voidfunction/procedure-dan-fungsi-pada-pascal/ diakses tanggal 30 Juni 2013 , 16:15

http://belajar-program.ueuo.com/?p=166 diakses tanggal 30 juni 2013 , 16:17