Program Perhitungan Mencari Nilai Resistor Baru dan Kapasitor Baru Menggunakan Function Pada 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, ret: real;

pilihan1: string;

function funct_rbaru(f_km, f_rlama: real): real;

var

   rbaru: real;

begin

   rbaru := f_km*f_rlama;

   funct_rbaru := rbaru;

end;

function funct_cbaru(f_km, f_kf, f_clama: real): real;

var

   cbaru: real;

begin

   cbaru := f_clama/(f_km*f_kf);

   funct_cbaru := cbaru;

end;

begin

clrscr;

writeln('masukkan pilihan :');

writeln('[1] menghitung resistor');

writeln('[2] menghitung kapasitor');

readln(pilihan1);

writeln;

if (pilihan1 = '1') 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);

   ret := funct_rbaru(km, rlama);

   write('hasil dari rbaru:',km,'x',rlama,'=',ret);

   readln;

end

else if (pilihan1 = '2') 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);

   ret := funct_cbaru(km, kf, clama);

   writeln;

   write('hasil dari Cbaru:',clama,'/',km,'x',kf,'=',ret);

   readln;

end

else

   begin

      writeln('salah input');

   end;

readln;

end.