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

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

Berdasarkan pembahasan sebelumnya yang mengenai Attenuasi total dalam neper pada suatu saluran transmisi maka untuk kali ini penulis akan mencoba menghitung attenuasi total dalam neper menggunakan program “Procedure” dalam bahasa pemrograman 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 (Ampere)

I masukan = arus yang masuk ke suatu saluran (Ampere)

1.Contoh diketahui nilai arus yang melewati ke beban (I beban) adalah 10 Ampere dan nilai arus yang masuk kesuatu saluran (I masukan) adalah 15 Ampere. Tentukan nilai attenuasi total dalam nepernya?

Jawab : N = - ln ( I beban / I masukan)

             N = - ln ( 10 Ampere / 15 Ampere)

             N = 0,405465108

Listing Programn Procedure-nya sebagai berikut:

Penjelasan program diatas adalah sebagai berikut:

uses crt;

procedure attenuasi;

var

a,b : integer;

x : real ;

Uses crt adalah subprogram utama. Pada bagian ini dideklarasikan judul Procedure dan variabel yang akan digunakan nantinya. Procedure inilah yang digunakan untuk memanggil data, contohnya procedure attenuasi. Selanjutnya memasukkan variabel a, b, dan x dengan tipe data integer.

begin

write(‘masukkan nilai I beban :’);readln(a);

write(‘masukkan nilai I masukan :’);readln(b);

x := - ln(a/b);

write(‘nilai attenuasi dalam neper adalah :’,x);

readln;

end;

begin

attenuasi;

end.

Begin digunakan untuk memulai program selanjutnya statement write(‘masukkan nilai I masukan :’);readln(b); dan statement write(‘masukkan nilai I masukan :’); digunakan untuk menulis masukkan nilai dari I beban dan I masukan. Setelah itu masukkan statement X:= - ln(a/b) yang di input melalui statement Write untuk mencetak hasil program tadi. Writeln yang berikutnya adalah untuk menulis hasil nilai attenuasi dalam neper yang dihitung berdasarkan rumus tersebut dan kemudian akan dicetak setelah di baca oleh statement readln. End digunakan untuk mengakhiri program

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

Referensi sumber:

http://iambigsmart.wordpress.com/

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

http://hannitacambridge.blogspot.com/