Проектирование высоковольтного стабилизатора (стр. 3 из 3)

НЕТ

Листинг программы

Uses crt;

Var

R1,R2,Uv1,Ep,U0:real;

Function U_exit:real;

begin

U_exit:=Uv1*(1+R1/R2)

end

begin

Repeat

ClrScr;

WriteLn ('Введите следующие параметры устройства');

WriteLn;

Write('Напряжение питания, Ер,B: ');Read (Ep);

WriteLn;

Write ('Напряжение стабилизации стабилитрона Uv1,B(Uv1<Ep): ');Read (Uv1);

Until Uv1>=Ep

WriteLn

Write ('Сопротивление R1,Ом: '); Read (R1);

WriteLn;

Write ('Сопротивление R2,Ом: '); Read (R2);

WriteLn;

WriteLn ('Значение выходного напряжения Uвых=’,U_exit:2:5);

Read;

end.

Список литературы

1. Щербаков В.И., Грездов Г.И. Электронные схемы на операционных усилителях : Справочник.-К.: Технiка, 1983

2. Справочник по САПР /А.П. Будя, А.Е. Кононюк и др. ; Под ред. В.И. Скурихина.-К.: Технiка, 1988