RANGKAIAN ELEKTRONIKA KOMUNIKASI DITALA SERI (PROSEDUR PASCAL)

Bismillah...
Aplikasi yang saya buat kali ini yaitu masih dengan pascal dengan perhitungan rangkaian elektronika komunikasi yang ditala seri, disini saya membuat aplikasi yang mana aplikasi tersebut hanya tinggal memasukkan nilai L, nilai C dan r saja, dimana L adalah Induktansi dalam rangkaian, C adalah kapasitansi dalam rangkaian dan r adalah hambatan dalam rangkaian. Nah disini ada 2 pilihan untuk perhitungan, yang Pilihan 1 untuk menghitung nilai Frekuensi resonansi dan Pilihan 2 yaitu untuk menghitung nilai Faktor Kualitas, dan masing2 input tersebut akan diolah sebagai procedure, yang nantinya akan menghasilkan 2 Procedure output yaitu Fr = Frekuensi resonansi dan Qs = Faktor Kualitas, yang dua-duanya tertala Seri.

dibawah ini merupakan bentuk flowchart-nya :

Listing Programnya :

program Menghitung_Rangkaian_Elektronika_Komunikasi_Ditala_Seri;
uses crt;

var
Qs, L, Fr, C, r, r_Qs,r_Fr, ret: real;
pilihan1: string;

procedure funct_Fr(f_L, f_C: real; var result: real);
var
   Fr : real;
begin
   Fr := (1) / ((sqrt (f_C * f_L)) * 6.28) ;

   result := Fr;
end;

procedure funct_Qs(f_L, f_C, f_r: real; var result: real);
var
   Qs : real;
begin
   Qs := (1 / f_r) * (sqrt ( f_L / f_C));

   result := Qs;
end;

begin
clrscr;
writeln(' PROGRAM RANGKAIAN ELEKTRONIKA KOMUNIKASI DITALA SERI ');
writeln(' ');
writeln(' ');
writeln('masukkan pilihan :');
writeln('[1] Menghitung nilai Frekuensi Resonansi Fr');
writeln('[2] Menghitung nilai Faktor Kualitas Qs');
readln(pilihan1);
writeln;

if (pilihan1 = '1') then
begin
   writeln('masukan nilai induktansi dan Kapasitansi');
   writeln('Program ini untuk perhitungan mengenai Frekuensi Resonansi Pada Rangkaian Elektronika Komunikasi Ditala Seri');
   writeln;
   write('masukan nilai induktansi:');readln(L);
   write('masukan nilai Kapasitansi:');readln(C);
   funct_Fr(L, C, Fr);
   write('hasil dari Fr:''=',Fr);
   readln;
end
else if (pilihan1 = '2') then
begin
   writeln('masukan nilai Hambatan dalam, Induktansi, dan Kapasitansi');
   writeln('Program ini untuk Perhitungan Mengenai Faktor Qualitas Pada Rangkaian Elektronika Komunikasi Ditala Seri');
   writeln;
   writeln('masukan nilai Hambatan Dalam :');readln(r);
   writeln('masukan nilai Induktansi :');readln(L);
   writeln('masukan nilai Kapasitansi :');readln(C);
   funct_Qs(r, C, L, Qs);
   writeln;
   write('hasil dari Qs:''=',Qs);
   readln;
end
else
   begin
      writeln('salah input');
   end;

readln;

end.


Dan ini Contoh Program antarmuka yg sudah jadi :