Menghitung Arus Pada Trafo Menggunakan Pascal

Kali ini, saya telah membuat program dengan menggunakan function pada pascal. Program menghitung arus sekunder dan arus primer pada trafo, jika diketahui tegangan sumber, tegangan keluaran, dan arus yang bekerja. 

Source Code

PROGRAM trafo;

USES CRT;

FUNCTION Primer(Vs,Is,Vp:real):real;

BEGIN

Primer:=(Vs*Is/Vp);

end;

FUNCTION Sekunder(Vp,Ip,Vs:real):real;

BEGIN

Sekunder:=(Vp*Ip/Vs);

END;

VAR

Vp,Ip,Is,Vs:real;

pilihan:STRING;

BEGIN

CLRSCR; 

WRITELN('A. Arus Sekunder Pada Trafo');

WRITELN('B. Arus Primer Pada Trafo');

WRITELN;

WRITE('A/B? ');READLN(pilihan);

WRITELN;

IF pilihan='a' THEN

BEGIN

CLRSCR;

writeln('Menghitung Jumlah Arus Sekunder Pada Trafo');

writeln;

write('Masukkan Nilai Vp  : ');readln (Vp);

write('Masukkan Nilai Ip  : ');readln (Ip);

write('Masukkan Nilai Vs  : ');readln (Vs);

write('Arus Sekunder Trafo: ',Sekunder(Vp,Ip,Vs):6:2);

READLN;

end;

if pilihan='b' then

BEGIN

clrscr;

writeln('Menghitung Jumlah Arus Primer Pada Trafo');

writeln;

write('Masukkan Nilai Vs     : ');readln (Vs);

write('Masukkan Nilai Is     : ');readln (Is);

write('Masukkan Nilai Vp     : ');readln (Vp);

write('Arus Primer Pada Trafo: ',Primer(Vs,Is,Vp):6:2);

READLN;

END;

END.

Output Program

menghitung jumlah lilitan primer dan sekunder pada trafo

     Aplikasi yang saya buat ini bertujuan untuk menghitung nilai lilitan primer pada trafo (np),dan nilai lilitan sekunder arus(ns) pada suatu trafo . Terdapat 2 menu pilihan yaitu nilai nilai lilitan primer(np) dan lilitan sekunder (ns). input pada nilai ini berupa nilai tegangan primer (vp) dan tegangan sekunder (vs). Input akan diolah dengan function, terdapat dua function yaitu (np),(ns) yang menghasilkan output masing-masing. Output akan ditampilkan dilayar.

      1.FLOWCHART

                      

       2.LISTING PROGRAM
program menghitung_lilitan_primer_sekunder_trafo; uses crt; function f_np(f_vp, f_vs, f_ns: real): real; begin f_np := (f_vp/f_vs) * f_ns; end; function f_ns(f_vp, f_vs, f_np: real): real; begin f_ns := (f_vs/f_vp) * f_np; end; var vs, vp, np, ns, pil : real; begin clrscr; writeln('PROGRAM MENGHITUNG LILITAN PRIMER & SEKUNDER TRAFO'); writeln; write('masukkan nilai vs : '); readln(vs); write('masukkan nilai vp : '); readln(vp); writeln('1. menghitung lilitan primer'); writeln('2. menghitung lilitan sekunder'); write('masukan pilihan : '); readln(pil); if (pil = 1) then begin write('masukkan nilai ns : '); readln(ns); np := f_np(vp, vs, ns); writeln('nilai lilitan primer (np) : ', np:2:2); end else if (pil = 2) then begin write('masukkan nilai np : '); readln(np); ns := f_ns(vp, vs, np); writeln('nilai lilitan sekunder (ns) : ', ns:2:2); end else begin writeln('salah input'); end; readln; end.



     3.TAMPILAN ANTAR MUKA PROGRAM :