Program mencari Resistor baru dan Kapasitor baru dalam perancangan cascade dengan rangkaian orde1 dengan mengunakan turbo pascal

Aplikasi yang saya buat ini bertujuan untuk menghitung nilai resistor baru dan kapasitor baru pada perancangan cascade pada orde 1. Terdapat 2 pilihan untuk menghitung resistor baru dan menghitung kapasitor baru. Cara kerja program ini adalah dengan mengolah input nilai resistor lama (Rlama) dan nilai pengskalaan amplitudo (Km) sedangkan untuk mencari nilai kapasitor baru dengan mengolah input nilai kapasitor lama,nilai pengskalaan amplitudo (Km),nilai pengskalaan frekuensi(Kf). Output yang dihasilkan sesuai dengan pilihan perhitungan.
Program yang saya gunakan adalah turbo pascal.

FLOWCHART :

Source Code :

program mencari_Rbaru_dan_Cbaru_pada_perancangan_cascade_dengan_rangkaian_orde1;

uses crt;

var

Km,Rlama,Rbaru,Cbaru,Kf,Clama:Real;

pilihan1, pilihan2: string;

begin

clrscr;

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

readln(pilihan1);

if (pilihan1 = 'y') then

begin

   writeln('masukan nilai pengskalaan amplitudo dan nilai resistor lama');

   writeln('di program untuk mencari nilai resistor baru ini');

   writeln;

   write('masukan nilai pengskalaan amplitudo:');readln(Km);

   write('masukan nilai resistor lama:');readln(Rlama);

   Rbaru:=Km*Rlama;

   write('hasil dari Rbaru:',Km,'x',Rlama,'=',Rbaru);

   readln;

end

else if (pilihan1 = 't') then

begin

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

   readln(pilihan2);

   if (pilihan2 = 'y') then

   begin

      writeln('masukan nilai pengskalaan amplitudo,pengskalaan frekuensi,kapasitor lama');

      writeln('di program untuk mencari nilai kapasitor baru ini');

      writeln;

      writeln('masukan nilai pengskalaan amplitudo:');readln(Km);

      writeln('masukan nilai pengskalaan frekuensi:');readln(Kf);

      writeln('masukan nilai kapasitor lama:');readln(Clama);

      Cbaru:=Clama/(Km*Kf);

      writeln;

      write('hasil dari Cbaru:',Clama,'/',Km,'x',Kf,'=',Cbaru);

      readln;

   end

   else if (pilihan2 = 't') then

   begin

      writeln('tidak dapat mengitung resistor baru dan kapasitor baru');

   end

   else

   begin

      writeln('salah input');

   end;

end

else

   writeln('salah input');

end.

readln;

end.