Operational Amplifier Circuits

118

OPERATIONAL

AMPLIFIER

CIRCUITS:

ANALYSIS

AND

DESIGN

UNTIL upcase(Ans)

= 'N';

END;

PROCEDURE CalcR;

BEGIN

REPEAT

write

('Enter

selected capacitance value

(microfarad):

');

readln

(C);

R

:= 1000 / (2 * pi *

Frequency

* C);

writeln

('Required

resistance

is ',

R:8:4,'

kohm');

writeln

('Try

another capacitance value

(Y/N)?');

readln

(Ans);

UNTIL upcase(Ans)

= 'N';

END;

BEGIN {Main Program}

ClrScr;

REPEAT

write

('Enter

required frequency

(Hz):

');

readln

(Frequency);

writeln

('Select

resistance

(R) or

capacitance

(C)?'

)

;

readln

(Ans);

IF upcase(Ans)

= 'R'

THEN CalcC;

IF upcase(Ans)

=

'

C

THEN CalcR;

write

('Perform

another calculation

(Y/N)?') ...