cara menghitung jumlah kumparan primer dan sekunder pada trafo

Aplikasi yang saya buat ini bertujuan untuk menghitung nilai kumparan primer(Np), kumparan sekunder (Ns) pada sebuah trafo. Untuk mencari nilai Np input yang diunakan adalah vp,vs, dan Ns, dengan rumus Np = (Ns*Vp)/Vs. Untuk mencari nilai Ns input yang digunakan adalah vp,vs, dan Np, dengan rumus yang digunakan Ns = (Np*Vs)/Vp

flowchart program ini

.

source code


program menghitung_lilitan_primer_sekunder_trafo; uses crt; var vs, vp, np, ns : real; pilihan1, pilihan2 : string; begin clrscr; write('masukkan nilai vs : '); readln(vs); write('masukkan nilai vp : '); readln(vp); write('apakah anda ingin menghitung lilitan primer ? (y atau t)'); readln(pilihan1); if (pilihan1 = 'y') then begin write('masukkan nilai ns : '); readln(ns); np := (vp/vs) * ns; writeln('nilai lilitan primer (np) : ', np:2:3); end else if (pilihan1 = 't') then begin write('apakah anda ingin menghitung lilitan sekunder ? (y atau t)'); readln(pilihan2); if (pilihan2 = 'y') then begin write('masukkan nilai np : '); readln(np); ns := (vs/vp) * np; writeln('nilai lilitan sekunder (ns) : ', ns:2:3); end else if (pilihan2 = 't') then begin writeln('tidak dapat meghitung lilitan'); end else begin writeln('salah input'); end; end else begin writeln('salah input'); end; readln; end.