PENGGUNAAN FUNCTION PADA BAHASA PEMPROGRAMAN PASCAL UNTUK MENGHITUNG ‘ATTENUASI TOTAL DALAM NEPER’

PENGGUNAAN FUNCTION PADA BAHASA PEMPROGRAMAN PASCAL UNTUK MENGHITUNG ‘ATTENUASI TOTAL DALAM NEPER’
 
Berdasarkan latar belakang judul diatas penulis akan mencoba menghitung attenuasi total dalam neper menggunakan program fungsi (function) PASCAL.

Penulis akan membuat suatu program sederhana untuk mencari nilai Attenuasi total dalam neper pada suatu saluran transmisi. Dengan menggunakan persamaan rumus :

N = - ln ( I beban / I masukan)

dimana:

N               = attenuasi total dalam neper

I beban      = arus yang melewati ke beban

I masukan  = arus yang masuk ke suatu saluran

Listing Programn Function-nya sebagai berikut:

Penjelasan program diatas adalah sebagai berikut:

Uses crt;

Function attenuasi total (a,b :integer):integer;

Begin

Output:-Ln(I beban/I masukan);

End;

Bagian diatas adalah subprogram utama. Pada bagian ini dideklarasikan judul Function dan variabel yang akan digunakan dalam rumus function. Judul function yang digunakan adalah “Attenuasi total” dan variabel “output” adalah rumus dari function itu sendiri.

Var

X:integer;

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. Dan variabel ini bertipe integer.

Begin

Clrscr;

Write(‘menghitung attenuasi total dalam neper=’);readln(X);

Writeln;

Bagian ini adalah penjelasan untuk bagian utama pada program function didalam pascal, Clrscr digunakan untuk membersihkan layar dalam pascal setelah program sebelumnya selesai dikerjakan. Kemudian perintah write digunakan untuk menulis perintah atau tulisan yang berada pada tanda petik. Writeln untuk menjalankan perintah/menampilkan perintah program. End untuk mengakhiri program.

Setelah membuat listing program didapat, lalu membuat Flow Chart-nya sebagai berikut:

Penjelasan flowchart:

Setelah memulai suatu program, lalu dengan membaca nilai arus beban dan arus masukan untuk mencari nilai Attenuasi total dalam neper pada suatu saluran transmisi, maka setelah itu akan menghasilkan variabel “output” yaitu rumus dari function itu sendiri. End untuk mengakhiri program.

Referensi sumber:

http://iambigsmart.wordpress.com/

http://ib02-telekomunikasi.blogspot.com/2012/06/normal-0-false-false-false-en-us-x-none.html