Rabu, 09 Mei 2012

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