Program menghitung_ekivalen_Generator_dc_Penguatan_seri; uses crt;
procedure f_If(f_Vf, f_Rf: real; var result: real); begin result := (f_Vf/f_Rf) ; end;
procedure f_If(f_Ia, f_I1: real; var result: real); begin result := (f_Ia-f_I1) ; end;
var pil, pIf, pVf, pRf, pIa, pI1, rf_If: real; begin clrscr writeln(' program menghitung ekivalen generator dc penguat terpisah dan seri '); writeln; writeln('1. menghitung penguatan terpisah'); writeln('2. menghitung penguatan seri'); write(' Anda ingin memilih pilihan no berapa?: '); readln(pil);
if (pil = 1)then begin write(' Vf (tegangan f) = '); readln(Vf); write(' Rf (Hambatan f) = '); readln(Rf);
f_If(Vf, Rf, rf_If); writeln; writeln('penguat terpisah = ', rf_If:2:2, ' V'); end
else if (pil = 2)then begin write('Ia (Arus a) = '); readln(Ia); write(I1 (Arus 1) = '); readln(I1);
f_If(Ia, I1, rf_If); writeln; writeln('penguat seri = ', rf_If:2:2, ' V'); end
else begin writeln('salah input'); end; readln; end.
Flowchat
