Program Menghitung Tegangan dan Arus pada Generator Kompon Pendek

Aplikasi yang saya buat ini bertujuan untuk menghitung nilai arus di cabang paralel (Ifp), arus jangkar (Ia), dan tegangan di cabang paralel (Vfp) pada Generator Kompon Pendek. Cara kerja program ini adalah dengan mengolah input nilai Vfp dan Rfp dengan rumus Ifp = Vfp/Rfp untuk mendapatkan hasil Ifp. Untuk Ia input nilai Ifs dengan rumus Ia = Ifs - Ifp. Lalu untuk mendapatkan output yaitu nilai Vfp masukan input Ra dan Eg dengan rumus Vfp = Eg - Ia*Ra.

FLOW CHART :

SOURCE CODE :

program menghitung_generator_kompon_pendek; uses crt; var vfp, ia, eg, ra, ifs, ifp, rfp, rfs: real; pilihan1, pilihan2: string; begin clrscr; writeln(' PROGRAM MENGHITUNG GENERATOR KOMPON PENDEK '); writeln; write('apakah nilai ifp diketahui ? (y/t) '); readln(pilihan1); if (pilihan1 = 'y') then begin write('masukkan nilai ifp : '); readln(ifp); writeln('ifp = ',ifp:2:3, ' ampere'); end else if (pilihan1 = 't') then begin write('masukkan nilai vfp : '); readln(vfp); write('masukkan nilai rfp : '); readln(rfp); ifp := vfp/rfp; writeln('ifp = ', ifp:2:3, ' ampere'); end else begin writeln('salah input'); end; write('masukkan nilai ifs : '); readln(ifs); ia := ifs + ifp; writeln('nilai ia = ', ia:2:3); write('apakah anda ingin lanjutkan menghitung vfp ? (y/t)'); readln(pilihan2); if (pilihan2 = 'y') then begin write('masukkan nilai ra : '); readln(ra); write('masukkan nilai eg : '); readln(eg); vfp := eg - (ia*ra); writeln('nilai vfp = ', vfp:2:3, ' volt'); end else if (pilihan2 = 't') then begin writeln('selesai'); end else begin writeln('salah input'); end; readln; end.