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 :

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s