Program Generator DC Penguat Terpisah dan Motor DC Shunt

LISTING PROGRAM:

Program Generator DC Penguat Terpisah dan Motor DC Shunt

procedure f_n(f_pin, f_pout: real; var result: real);

begin

result := ('Eg=Ia.Ra+Vt');

end;

procedure f_pin(f_pout, f_prugi: real; var result: real);

begin

result := (‘Vt=Ia.Ra+em);

end;

var

pil, pout, pin, n, prugi, rf_n, rf_pin: real;

begin

clrscr;

writeln(' program generator DC penguat terpisah dan motor DC shunt

 ');

writeln;

writeln('1. menghitung Daya input generator DC penguat terpisah ');

writeln('2. menghitung Daya input motor DC shunt');

write('masukan pilihan : ');

 readln(pil);

 

if (pil = 1) then

begin

write('Pin (daya input) = ');

readln(pin);

write('Pout (daya output) = ');

readln(pout);

f_n(pin, pout, rf_n);

writeln;

writeln('Daya input Eg = ', rf_n:2:2, ' volt);

end

else if (pil = 2) then

begin

write('Pinput Eg (daya input Eg) = ');

readln(pinput Eg);

write('Pinput Vt(daya input vt) = ');

readln(pinput Vt);

f_pin(pout, prugi, rf_pin);

writeln;

writeln('Pin (Daya input Vt) = ', rf_pin:2:2, ' watt');

end

else

begin

writeln('salah input');

end;

readln;

end.

FLOWCHART:

Penjelasan:

Pada penjelasan program kali ini saya akan menjelaskan tentang cara kerja/menjalankan program.pertama masukan inputan Eg dengan rumus ‘Eg=Ia.Ra+Vt".dan apabila ya maka di lanjutkan dengan proses perhitungan dan penampilan keluaran input Eg.dan apabila tidak maka dilanjutkan ke rumus inputan yang kedua Vt dengan rumus ‘Vt=Ia.Ra+em’.jika tidak maka dilanjutkan  ke proses END.apabila ya maka dilanjutkan ke Proses perhitungan dan penampilan keluaran input Vt dan di akhiri dengan END