Timer IC 555

Uses Crt;

Var

 R1, R2, C : Integer;

TPulse    : Real;

no           : integer;
Pada bagian ini mengidentifikasi variabel bernilai integer dan real.

Begin

ClrScr;

Write('Masukan Nilai Resistor1 : ');

ReadLn(R1);

Write('Masukan Nilai Resistor2 : ');

ReadLn(R2);

Write('Masukan Nilai Capacitor : ');

ReadLn(R2);

Writeln;
bagian ini adalah input nilai R1, R2 dan C.

case no of

  1: write('Timer 555 monostable');

  2: write('Timer 555 astable');

ini adalah bagian pilihan yang mau di hitung.

if (no='1') then

TPulse := 1.1*R1*C;

WriteLn('TimePulse = ', TPulse:5:2);
bagian ini adalah kondisi jika memilih 1.

else

if (no='2') then

Freq := 1.44/R1+(2*R2)*C

Writeln('Frequency = ', Freq:5:2);
untuk bagian ini adalah kondisi jika memilih 2.

End;

Readln;

End.

bagian untuk mengakhiri program.