mencari kecepatan motor sinkron dan slip motor

LISTING PROGRAM

Program menu_pilihan;

Uses crt;

Var

Pil:integer;

Jawab:char;

Label

P1,p2,p3,p4;

Procedure Kns;

Var

Nama:string[]

F,Pole:real;

Nama : string [];

Begin

Writeln (‘program menghitung  kecepatan motor sinkron’) ;

Writeln (’----------------------------------------------‘);

Writeln ;

Write (’masukkan frekuensi nya (hz) =’); readln (f);

Write (’masukkan jumlah kutub nya = ‘;readln (pole);

Writeln ;

Writeln(‘kecepatan motor sinkron nya (rpm) =’,120*f/pole);

End;

Procedure slip;

Var

 Nr,Ns:real;

begin

writeln(‘program menghitung slip’);

writeln (‘----------------------------------‘);

writeln ;

writeln (‘masukkan kecepatan stator=’); readln(Ns);

writeln(‘masukan nilai kecepatan rotor=’);readln(Nr);

writeln;

writeln(‘nilai slip adalah (%)=’, ((Ns-Nr)/Ns)*100);

end;

begin

clrscr

p1:

writeln(‘MENU PILIHAN’);

writeln;

writeln(‘1. Menghitung kecepatan putar motor sinkron’);

writeln(’2. Menghitung slip motor’);

writeln(‘3. KELUAR’);

write(‘masukan pilihan anda [1/2/3]: ‘ ); readln(pil);

If(pil=1) then

Begin

Clrscr;

P2:

Kns;

Write(‘lanjut ? [Y/N]:’); readln (jawab);

If (jawab=’Y’) or (jawab=’y’) then

Begin

Goto p2;

End

Else

Begin

Goto p1;

End;

Else if (pil=2) then

Begin

Clrscr;

p3:

slip;

write(‘lanjut ? [Y/N] : ‘); readln(jawab);

if (jawab=’Y’) or (jawab=’y’) then

begin

goto p3;

end

else

begin

goto p1;

end;

end

else

begin

exit;

readln;

end.

FLOWCHART