Menghitung Frekuensi pada Osilator Colpitts & Clapp Menggunakan Free Pascal (Procedure)

#Penjelasan Program#

Program ini berfungsi untuk menghitung frekuensi pada osilator colpitts & clapp menggunakan procedure.

1. Pada saat program dibuka pengguna menginput nilai L (Induktor)

2. Kemudian program akan menampilkan menu yaitu :

    1. menghitung frekuensi osilator colpitts

    2. menghitung frekuensi osilator clapp

3. Jika pengguna memilih menu "1" maka pengguna akan diminta menginput nilai C1 & C2   (Kapasitor)kemudian program menampilkan output berupa nilai CT & Fr.

4. Jika pengguna memilih menu "2" maka pengguna akan diminta menginput nilai C3 (Kapasitor)kemudian program menampilkan output berupa nilai Fr2

#Flowchart#

#Source Code#

program menghitung_frekuensi_osilator; uses crt; var c1, c2, ct, l, c3, fr2, fr, phi, pilihan, ct_res, fr_res, fr2_res : real; procedure f_ct(f_c1, f_c2: real; var result: real); begin result := (f_c1 * f_c2) / (f_c1 + f_c2); end; procedure f_fr(f_ct, f_l: real; var result: real); begin result := 1 / ((2 * 3.14) * sqrt (f_l * f_ct)); end; procedure f_fr2(f_c3, f_l: real; var result: real); begin result := 1 / ((2 * 3.14) * sqrt(f_l * f_c3)); end; begin clrscr; writeln(' PROGRAM MENGHITUNG FREKUENSI OSILATOR '); writeln(' '); writeln(' '); write('masukkan nilai l : '); readln(l); writeln; writeln('--------------------------------------------------'); writeln('-----------------------MENU-----------------------'); writeln('[1] Menghitung frekuensi rangkaian osilator colpitts'); writeln('[2] Menghitung frekuensi rangkaian osilator clapp'); write('masukkan pilihan : '); readln(pilihan); writeln('--------------------------------------------------'); if (pilihan = 1) then begin write('masukkan nilai c1 : '); readln(c1); write('masukkan nilai c2 : '); readln(c2); f_ct(c1, c2, ct_res); f_fr(ct_res, l, fr_res); writeln('nilai ct = ', ct_res:2:3, ' F'); writeln('nilai fr = ', fr_res:2:3, ' Hz'); end else if (pilihan = 2) then begin write('masukkan nilai c3 : '); readln(c3); f_fr2(c3, l, fr2_res); writeln('nilai fr2 = ', fr2_res:2:3, ' Hz'); end else begin writeln('salah input'); end; readln; end.

#Display Program#