Menghitung daya mekanik dan generator DC shunt

LISTING PROGRAM

Program

Menghitung_daya_mekanik_dan_generator_DC_shunt;

Uses crt;

Procedure  f_Pm(f_P2,f_1,f_s: real;var result:real);

Begin

Result:= f_P2*(f_1-f_s);

End;

Procedure f_Eg(f_Ia,f_Ra,f_Vt: real;var result:real);

Begin

Result:=f_Ia*f_Ra+f_Vt;

End

Var

Pil,P2,1,s,Eg,Ia,Ra,Vt,rf_Pm,rf_Eg:real;

Begin

Clrscr;

Writeln(‘program menghitung daya mekanik dan generator DC shunt’);

Writeln;

Writeln(‘1.menghitung daya mekanik’);

Writeln(‘2.menghitung generator DC shunt’);

Write(‘masukan pilihan:’);

Readln(pil);

If(pil=1)then

Begin

Wrtite(‘P2(daya masuk rotor)=’);

Readln(P2);

Write(‘1(ketentuan dari rumus)=’);

Readln(1);

Write(‘s(slip rotor)=’);

f_Pm(P2,1,s,rf_Pm);

writeln;

writeln(‘Pm(daya mekanik)=’,rf_Pm:2:2,’watt’);

end

else if(pil=2)then

begin

write(‘Ia(arus jangkar)=’);

readln(Ia);

write(‘Ra(hambatan jangkar)=’);

readln(Ra);

write(‘Vt(tegangan total)=’);

readln(Vt);

f_Eg(Ia,Ra,rf_Eg);

writeln;

writeln(‘Eg(generator DC shunt)=’,rf_Eg:2:2,’volt’);

end

else

begin

writeln(‘salah input’);

end;

readln;

end.

Flowchart

Penjelasan :

            Pada program pascal ini menggunakan procedure untuk menghitung daya mekanik dan generator DC shunt , dengan menggunakan dua pilihan menu.pada flowchart diatas pertama memulai lalu proses pada pilihan 1,pilihan 2 , dan berakhir.jika pada pilhan pertama ya(Y)maka akan diproses rumus oada pilihan 1 yaitu menghitung daya mekanik dan akan tercetak hasil nya dan jika tidak(T) akan ke proses pilihan 2 yaitu menghitung generator DC shunt lalu akan tercetak hasilnya dan berakhir.