PROGRAM PASCAL PROCEDURE MENHITUNG FREKUENSI ROTOR DAN KECEPETAN SLIP ROTOR

listing program 

uses crt;

procedure f_f(f_slip, f_frekuensi: real; var result: real);

begin

result := (f_slip/f_frekuensi);

end;

procedure f_s(f_ns, f_nr: real; var result: real);

begin

result := ((f_ns –f_nr) / f_ns) *100

end

var

pil, ns, slip, frekuensi, nr, rf_f, rf_s: real;

begin

clrscr;

writeln(' program menghitung frekuensi rotor dan kecepatan slip rotor ');

writeln;

writeln('1. menghitung frekuensi rotor');

writeln('2. menghitung kecepatan rotor');

write('masukan pilihan : ');

 readln(pil);

  

if (pil = 1) then

begin

write('slip = ');

readln(slip);

write('frekuensi = ');

readln(frekuensi);

f_f(slip, frekuensi, rf_f);

writeln;

writeln('frekuensi = ', rf_f:2:2, ' hz');

end

else if (pil = 2) then

begin

write('ns (masukan nilai kec stator) = ');

readln(ns);

write('nr (masukan nilai kec rotor) = ');

readln(nr);

f_s(ns, nr, rf_s);

writeln;

writeln('s (nilai slip) = ', rf_s:2:2, ' %');

end

else

begin

writeln('salah input');

end;

readln;

end.

 OUTPUT PROGRAM

1.output jika salah memilih masukan pilihan

2.output jika memilih masukan pilihan 1

3.output jika memilih masukan pilihan 2

      Pada program pascal ini menggunakan procedure untuk menghitung frekuensi rotor dan menghitung slip rotor , 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 pada pilihan 1 yaitu menghitung nilai frekuensi rotor dan akan tercetak hasil nya dan jika tidak(T) akan ke proses pilihan 2 yaitu menghitung nilai slip rotor lalu akan tercetak hasilnya dan berakhir