Program Pascal Function Menghitung Arus Primer
dan Sekunder pada Tranformator
program menghitung_arus_primer_sekunder;
uses crt;
function f_ip(f_vp, f_vs, ff_is: real): real;
begin
f_ip := (ff_is*f_vs) / f_vp;
end;
function f_is(f_vp, f_vs, ff_ip: real): real;
begin
f_is := (ff_ip*f_vp) / f_vs;
end;
var
vp, vs, ip, is, pil: real;
begin
clrscr;
writeln('program menghitung arus primer dan sekunder tranformator ');
writeln;
write('Vp (tegangan primer) = ');
readln(vp);
write('Vs (tegangan sekunder) = ');
readln(vs);
writeln;
writeln('1. menghitung arus primer');
writeln('2. menghitung arus sekunder');
write('masukkan pilihan : ');
readln(pil);
writeln;
if (pil = 1) then
begin
write('Is (arus sekunder) = ');
readln(is);
ip := f_ip(vp, vs, is);
writeln('Ip (arus primer) = ', ip:2:2, ' ampere');
end
else if (pil = 2) then
begin
write('Ip (arus primer) = ');
readln(ip);
is := f_is(vp, vs, ip);
writeln('Is (arus sekunder) = ', is:2:2, ' ampere');
end
else
begin
writeln('salah input');
end;
readln;
end.
Output Program
Flowchart
0 komentar:
Posting Komentar