menghitung arus primer dan sekunder pada trafo (procedure)

     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 p, terdapat dua function yaitu (np),(ns) yang menghasilkan output masing-masing. Output akan ditampilkan dilayar.

      1.FLOWCHART

     






  2.LISTING PROGRAM

PROGRAM trafo;
USES CRT;

VAR
Vp,Ip,Is,Vs,Primer_res,Sekunder_res:real;
pilihan:STRING;

PROCEDURE Primer(Vs,Is,Vp:real; VAR RESULT:real);
BEGIN
RESULT:=(Vs*Is/Vp);
end;

PROCEDURE Sekunder(Vp,Ip,Vs:real; VAR RESULT:real);
BEGIN
RESULT:=(Vp*Ip/Vs);
END;



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_res: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_res:6:2);
READLN;
END;
END.



     3.TAMPILAN ANTAR MUKA PROGRAM :