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;

MENGHITUNG FREKUENSI ROTOR PADA WAKTU DIAM

LISTING PROGRAM

program fungsi1;

uses crt;

function frekuensi 1 (s,f:integer):integer ;

function frekuensi 2 (s,f:integer):integer;

begin

frekuensi :=s*f;

end;

var

x,y:integer

begin

clrscr;

writeln(‘program menghitung frekuensi rotor pada waktu diam’);

writeln;

write(‘masukan slip= ‘);readln(x);

write(masukan frekuensi= ‘);readln(y);

writeln;

writeln(‘frekuensi rotor pada waktu diam  adalah= ‘,frekuensi (x,y));

readln;

end.