Procedure menghitung SWR

SWR = [1 + Rc] / [1 - Rc]

Dimana:

• RC = | [ZL - Zo] / [ZL + Zo] |
• ZL = impedansi input antenna (beban)
• Zo = impedansi saluran transmisi (coax, feeder, dll)
• Bila ZL atau Zo merupakan bilangan imajiner atau khayal, maka ZL atau Zo ini merupakan magnitudo dari bilangan tersebut.

dalam program procedure pascal ini nilay ZL=50 dan ZO=100

listing program:

uses crt;

function besar (zo,zl : integer) : integer;

begin

besar:=zo ;

besar := zl;

end;

var

zo,zl: integer;

begin

clrscr;

write( ‘nilai zo  = ‘); readln(zo);

writeln;

write (‘nilai zl = ‘); readln(zl);

writeln;

write(‘vswr =’, zo/zl);

readln;

end.

 

output program

Menghitung Nilai VSWR

Program Pascal Menggunakan Function

Listing Program

uses crt;

function besar (zo,zl : integer) : integer;

begin

besar:=zo ;

besar := zl;

end;

var

zo,zl: integer;

begin

clrscr;

write( ‘nilai zo  = ‘); readln(zo);

writeln;

write (‘nilai zl = ‘); readln(zl);

writeln;

write(‘vswr =’, zo/zl);

readln;

end.

DESKRIPSI PROGRAM :

Dalam program kali ini penulis membuat program sederhana dengan menggunakan bahasa pemograman PASCAL. Program yang dibuat kali ini menggunakan perintah function. Dalam program ini menjelaskan tentang program sederhana menghitung nilai VSWR (Voltage Standing Wave Ratio). Rumus untuk menghitung VSWR itu sendiri ialah :

dimana zo>zl

Pada program menghitung VSWR kali ini dicontohkan nilai zo= 40 dan zl = 20

Program pada pascal :

dan output programnya ialah :