Membuat Program Perhitungan Nilai Frekuensi Resonansi dan Faktor Qualitas Rangkaian Ditala Seri Pada Elektronika Komunikasi

Bismillah....
Membuat Program Perhitungan Nilai Frekuensi Resonansi dan Faktor Qualitas Rangkaian Ditala Seri Pada Elektronika Komunikasi, nah sesuai dengan judul nya yaitu untuk menghitung nilai fr dan Qs pada frekuensi resonansi, di program ini ada 3 input yang harus ada untuk menghitung nilai Fr dan Qs, nah yang pertama untuk Fr itu dibutuhkan hanya nilai induktor atau (L) dan Capasitor (C), hanya tinggal masukkan itu saja dan hasil output akan keluar dari program. nah yang kedua untuk menghitung nilai Qs atau faktor kualitas rangkaian ditala seri pada elektronika komunikasi dibutuhkan masih sama yang tadi yaitu L dan C lalu ditambah inputan Hambatan dalam dari rangkaiannya. dan outputan akan keluar dari program.

ini bentuk flowchartprogramnya..

dan ini list programnya :

Program Menghitung_Rangkaian_Eelektronika_komunikasi_ditala_seri;

uses crt;

var

Qs,L,C,r,D,E,F,Fr,H,G:Real;

pilihan1, pilihan2: string;

begin

clrscr;

write('apakah anda ingin menghitung nilai Fr ? (y atau t)');

readln(pilihan1);

if (pilihan1 = 'y') then

begin

   writeln('input nilai C dan L');

   writeln('di program untuk mencari nilai Frekuensi Resonansi atau Fr');

   writeln;

   write('Input nilai L:');readln(L);

   write('Input Nilai C:');readln(C);

   D:=L*C;

   F:=(6.28*(sqrt(D)));

   Fr:=1/(F);

   write('hasil dari Frekuensi Resonansi:''=',Fr);

   readln;

end

else if (pilihan1 = 't') then

begin

   write('apakah anda ingin menghitung nilai Qs ? (y atau t)');

   readln(pilihan2);

   if (pilihan2 = 'y') then

   begin

      writeln('masukan nilai Induktansi(L), Capasitansi(C) dan Hambatan dalam(r)');

      writeln('Untuk mencari nilai Qs');

      writeln;

      writeln('input nilai L:');readln(L);

      writeln('input nilai C:');readln(C);

      writeln('input nilai r:');readln(r);

      E:=L/C;

      G:=sqrt(E);

      H:=1/r;

      Qs:=(H)*(G);

      writeln;

      write('hasil dari Qs:''=',Qs);

      readln;

   end

   else if (pilihan2 = 't') then

   begin

      writeln('tidak dapat mengitung Fr dan Qs ?');

   end

   else

   begin

      writeln('salah input');

   end;

end

else

   writeln('salah input');

end.

readln;

end.