Program Menghitung Frekuensi Rotor & Stator Pada Motor Induksi

Run program, lalu kan tampil meny untuk memilih pilihan menghitung frekuensi rotor dan menghitung frekuensi stator, pilih salah satu menu dengan memasukkan angka 1 atau 2 lalu enter, Jika memilih 1 makan akan menghitung frekuensi rotor, masukkan slip dan frekuensi stator maka akan keluar output dari nilai frekuensi rotor. untuk menghitung frekuensi stator makaprogram mesti di run ulang lalu  pilih 2 makan akan menghitung frekuensi stator, lalu masukkan nilai slip dan frekuensi rotor, enter, lalu akan keluar nilai dari frekuensi stator itu.

program menghitung_frekuensi_rotor_stator_motor_induksi; uses crt; function f_fr(ff_fs, f_s: real): real; begin f_fr := f_s*ff_fs; end; function f_fs(ff_fr, f_s: real): real; begin f_fs := ff_fr/f_s; end; var pil, fs, fr, s: real; begin clrscr; writeln('PROGRAM MENGHITUNG FREKUENSI ROTOR & STATOR MOTOR INDUKSI'); writeln; writeln('1. menghitung frekuensi rotor'); writeln('2. menghitung frekuensi stator'); write('masukan pilihan : '); readln(pil); if (pil = 2) then begin write('Fr (frekuensi rotor) = '); readln(fr); write('S (slip) = '); readln(s); fs := f_fs(fr, s); writeln('Fs (frekuensi stator) = ', fs:2:2, ' Hz'); end else if (pil = 1) then begin write('Fs (frekuensi stator) = '); readln(fs); write('S (slip) = '); readln(s); fr := f_fr(fs, s); writeln('Fr (frekuensi rotor) = ', fr:2:2, ' Hz'); end else begin writeln('salah input'); end; readln; end.