Program Rangkaian Colpitts dan Clapp Menggunakan Pascal

Pada kesempatan kali ini saya akan menjelaskan  tentang program rangkaian Osilator Colpitts dan Clapp yang telah saya buat. Aplikasi ini bertujuan untuk menghitung nilai Frekuensi pada Osilator Colpitts dan Clapp. Cara kerja program ini adalah dengan mengolah nilai input dari L (induktansi), C1 (kapasitor 1), C2 (kapasitor 2) menjadi sebuah nilai output Fr (Frekuensi) pada osilator colpitts. Sementara pada osilator clapp, program mengolah nilai input dari L (induktansi) dan nilai C3 (kapasitor 3) menjadi sebuah nilai output Fr (Frekuensi).

#FLOW CHART

#SOURCE CODE

program rangkaian_osilator_colpitts_dan_clapp ; uses crt; var C1, C2, CT, L, Fr, C3 : real; pilihan, pilihan2 : string; const phi = 3.14; begin clrscr; writeln(' PROGRAM RANGKAIAN OSILATOR COLPITTS DAN CLAPP '); writeln(' '); writeln(' '); write('masukkan nilai L : '); readln(L); write('apakah anda ingin menghitung frekuensi osilator colpitts ? (y atau t)'); readln(pilihan); if (pilihan = 'y') then begin write('masukkan nilai C1 : '); readln(C1); write('masukkan nilai C2 : '); readln(C2); CT := (C1 * C2) / (C1 + C2); Fr := 1 / ((2 * phi) * sqrt (L * CT)); writeln('nilai CT = ', CT:2:3, ' F'); writeln('nilai Fr = ', Fr:2:3, ' Hz'); end else if (pilihan = 't') then begin write('apakah anda ingin menghitung frekuensi osilator clapp ? (y atau t)'); readln(pilihan2); if (pilihan2 = 'y') then begin write('masukkan nilai C3 : '); readln(C3); Fr := 1 / ((2 * phi) * sqrt(L * C3)); writeln('nilai Fr = ', Fr:2:3, ' Hz'); end else if (pilihan2 = 't') then begin writeln('tidak dapat menghitung'); end else begin writeln('salah input'); end; end else begin writeln('salah input'); end; readln; end. 

#PROGRAM