Mahenisme

#Intro

Pada kesempatan kali ini saya membuat program menggunakan pascal yang menggunakan perintah function & menu. Aplikasi ini bertujuan untuk menghitung nilai frekuensi pada osilator colpitts & clapp. Semoga program yang saya buat ini dapat membantu teman-teman untuk belajar pascal.

#Flowchart

#SourceCode

program menghitung_frekuensi_osilator; uses crt; function f_ct(f_c1, f_c2: real): real; var result: real; begin result := (f_c1 * f_c2) / (f_c1 + f_c2); f_ct := result; end; function f_fr(f_ct, f_phi, f_l: real): real; var result: real; begin result := 1 / ((2 * f_phi) * sqrt (f_l * f_ct)); f_fr := result; end; function f_fr2(f_c3, f_phi, f_l :real): real; var result: real; begin result := 1 / ((2 * f_phi) * sqrt(f_l * f_c3)); f_fr2 := result; end; var c1, c2, ct, l, c3, fr2, fr, phi, pilihan : real; 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); ct := f_ct(c1, c2); fr := f_fr(c1, c2, l); writeln('nilai ct = ', ct:2:3, ' F'); writeln('nilai fr = ', fr:2:3, ' Hz'); end else if (pilihan = 2) then begin write('masukkan nilai c3 : '); readln(c3); fr2 := f_fr2(c3, l, pilihan); writeln('nilai fr2 = ', fr2:2:3, ' Hz'); end else begin writeln('salah input'); end; readln; end.


#OutputProgram