Program Pascal Procedure Perhitungan IC 555

Program Pascal Procedure Perhitungan IC 555

program Perhitungan_IC_555;

uses crt;

procedure f_TP(f_R1, f_C: real; var result: real);

begin

result := 1.1 * f_R1 * f_C;

end;

procedure f_FR(f_R1, f_R2, f_C: real; var result: real);

begin

result := 1.44 / f_R1 + (2 * f_R2) * f_C;

end;

var

pil, f_R1, f_R2, f_C, rf_TP, rf_FR: real;

begin

clrscr;

writeln('==========================Program Perhitungan IC 555=========================== ');

writeln;

writeln('1. menghitung Timer 555 monostable (Time Pulse) ');

writeln('2. menghitung timer 555 astable (Frequensi) ');

write('masukan pilihan : ');

 readln(pil);

if (pil = 1) then

begin

write('R1 (Resistor1) = ');

readln(f_R1);

write('C (Capasitor) = ');

readln(f_C);

f_TP(f_R1, f_C, rf_TP);

writeln;

writeln('Time Pulse = ', rf_TP:2:2, ' s');

end

else if (pil = 2) then

begin

write('R1 (Resistor1) = ');

readln(f_R1);

write('R2 (Resistor2) = ');

readln(f_R2);

write('C (Capasitor) = ');

readln(f_C);

f_FR(f_R1, f_R2, f_C, rf_FR);

writeln;

writeln(' (Frequensi) = ', rf_FR:2:2, ' Hz');

end

else

begin

writeln('salah input');

end;

readln;

end.

Flowchart