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:

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: