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

NAMA : DENNY SETIAWAN

KELAS: 3IB02-B(TELEKOMUNIKASI)

NPM: 10409894

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

Dengan masalah yang sama penulis kembali 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.

Listing Programn Function-nya sebagai berikut:

 

        Penjelasan program diatas adalah sebagai berikut:

Uses crt;

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

Begin

Output:-Ln(Ibeban/Imasukan);

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 kita dapat membuat Flow Chart-nya sebagai berikut:

untuk mengingatkan nama link blog penulis:
http://ib02-telekomunikasi.blogspot.com/2012/06/normal-0-false-false-false-en-us-x-none.html

untuk mengingatkan nama link studentsite penulis:
http://studentsite.gunadarma.ac.id/home/index.php?stateid=tugas

Referensi sumber:

http://iambigsmart.wordpress.com/