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
