Menghitung Frekuensi Multivibrator dan Frekuensi Vibrator (Function)

Pada kali ini, saya akan memposting suatu aplikasi sederhana pascal, dimana aplikasi tersebut dapat digunakan untuk mencari besar nilai frekuensi multivibrator dan frekuensi vibrator. Sama seperti postingan sebelumnya, tapi kali ini akan menggunakan perintah function.

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;

function f_multi(f_ra, f_rb, f_c: real): real;

begin

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

end;

function f_vibrator(f_fxl, f_m: real): real;

begin

   f_vibrator := sqrt(f_fxl)/f_m;

end;

var

   f, ra, rb, c, v, fxl, m, pil: 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 := f_multi(ra, rb, c);

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

end

else if (pil = 1) then

begin

   write('Fxl = ');

   readln(fxl);

   write('M = ');

   readln(m);;

   v := f_vibrator(fxl, m);

   writeln('Frekuensi vibrator = ', v: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: