Menghitung Frekuensi Multivibrator dan Frekuensi Vibrator (Pascal Procedure)

Aplikasi yang saya buat ini bertujuan untuk menghitung frekuensi multivibrator dan frekuensi vibrator.input pada program ini yaitu nilai RA,RB,C,F,L dan M.Input akan diolah dengan procedure.output akan ditampilkan dilayar.

Cara kerjanya dapat dilihat pada flowchat berikut:

Dari flowchat tersebut, lalu dikembangkan dalam koding pada pascal, seperti berikut ini:

program menghitung_frekuensi_vibrator_multivibrator;

uses crt;

program menghitung_frekuensi_vibrator_multivibrator;

uses crt;

procedure f_multi(f_ra, f_rb, f_c: real; var result: real);

begin

  result := 1.44 / (f_ra+((2*f_rb)*f_c));

end;

procedure f_vibrator(f_fxl, f_m: real; var result: real);

begin

   result := sqrt(f_fxl)/f_m;

end;

var

   f, ra, rb, c, v, fxl, m, pil, res: real;

begin

clrscr;

writeln('PROGRAM MENGHITUNG FREKUENSI VIBRATOR & MULTIVIBRATOR');

writeln;

writeln('1. menghitung frekuensi vibrator');

writeln('2. menghitung frekuensi multivibrator');

write('masukan pilihan : ');

readln(pil);

writeln;

if (pil = 2) then

begin

   write('Ra = ');

   readln(ra);

   write('Rb = ');

   readln(rb);

   write('C = ');

   readln(c);

   f_multi(ra, rb, c, res);

   writeln('Frekuensi multivibrator = ', res:2:2, ' hertz');

end

else if (pil = 1) then

begin

   write('Fxl = ');

   readln(fxl);

   write('M = ');

   readln(m);;

   f_vibrator(fxl, m, res);

   writeln('Frekuensi vibrator = ', res:2:2, ' hertz');

end

else

begin

   writeln('pilihan tidak ada');

end;

readln;

end.

Setelah di-compile, lalu dibuat file.exe-nya, dan akan tampil seperti berikut: