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 :