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

pilihan1: string;

procedure funct_rbaru(f_km, f_rlama: real; var result: real);

var

   rbaru: real;

begin

   rbaru := f_km*f_rlama;

   result := rbaru;

end;

procedure funct_cbaru(f_km, f_kf, f_clama: real; var result: real);

var

   cbaru: real;

begin

   cbaru := f_clama/(f_km*f_kf);

   result := cbaru;

end;

begin

clrscr;

writeln('masukkan pilihan :');

writeln('[1] menghitung resistor baru');

writeln('[2] menghitung kapasitor baru');

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);

   funct_rbaru(km, rlama, fr_baru);

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

   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);

   funct_cbaru(km, kf, clama, fr_baru);

   writeln;

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

   readln;

end

else

   begin

      writeln('salah input');

   end;

readln;

end.

Setelah di-compile, lalu dibuat file .exe-nya, dan akan tampil aplikasi seperti berikut :