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 :