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.

Penjelasan  :                                                                                                                                                     Pada Program pascal ini saya akan membuat listing program frekuensi rotor pada waktu diam,pada frekuensi rotor ini saya memakai dua pilihan jadi mempunyai dua frekuensi yaitu frekuensi 1 dan frekuensi 2 ,sehingga bisa memilih salah satu frekuensi untuk membuat  outputnya.Apabila sudah terpilih salah satu. Program akan lanjut atau mencetak nilai.