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

menghitung torsi pada motor

Listing program

program fungsi1;

uses crt;

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

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

begin

torsi :=f*d;

end;

var

x,y:integer

begin

clrscr;

writeln(‘program menghitung torsi motor’);

writeln;

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

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

writeln;

writeln(‘torsi motor  adalah= ‘,frekuensi (x,y));

readln;

end.

Penjelasan   

                                                                                                                                                                                                                                                                                                    Pada Program pascal ini saya akan membuat listing program fmenghitung torsi pada motor ini saya memakai dua pilihan jadi mempunyai dua torsi motor yaitu torsi motor 1 dan torsi motor 2 ,sehingga bisa memilih salah satu torsi motor untuk membuat  outputnya.Apabila sudah terpilih salah satu. Program akan lanjut atau mencetak nilai.