Menghitung Attenuasi total dalam Neper menggunakan program PASCAL

Nama   : Denny Setiawan

NPM   :10409894

Kelas   : 3IB02B ( TELEKOMUNIKASI)

Pada tulisan kali ini 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 yangmelewati ke beban

I masukan = arus yang masuk ke suatu saluran

Listing program :

uses crt;

var

Imasukan,Ib : real;

N : real ;

selesai : boolean;

begin

clrscr;

writeln(‘DENNY_SETIAWAN’);

writeln(‘TEKNIK ELEKTRO’) ;

writeln(‘KONSENTRASI TELEKOMUNIKASI’) ;

writeln(‘PROGRAM MENGHITUNG ATTENUASI TOTAL DALAM NEPER’);

writeln(”) ;

write(‘input nilai Imasukan : ‘);

readln(Imasukan);

write(‘input nilai Ib: ‘);

readln(Ib);

N:=(Imasukan/Ib);

write(‘Attenuasi total neper : ‘, N);

readln;

end.

Untuk mengingatkan nama link blog 

nama : Denny setiawan

kelas : 3ib02

npm : 10409894

http://ib02-telekomunikasi.blogspot.com/2012/05/v-behaviorurldefaultvmlo.html