Kamis, 28 Juni 2012

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.

 

        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/