PROGRAM FUNCTION SEDERHANA

Pada artikel kali ini saya akan mencoba menampilkan listing program function sederhana pada pascal untuk menghitung perbandingan transformasi antara tegangan primer dan sekunder pada trafo.

LISTING PROGRAM

program perhitungan;
uses crt;

function a (v1,v2 :integer) : integer;

begin
a := v1 /v2
end;
var
v1 , v2 : integer;

begin
clrscr;
write('nilai v1= '); readln(v1);
writeln;
write('nilai v2= '); readln(v2);
writeln;
write('perbandingan transformasi= ', a (v1,v2));
readln;
end.