Расчет на ЭВМ характеристик входных и выходных сигналов электрических цепей.

Постановка задачи и описание рабочего набора исходных данных
Таблица идентификаторов, использованных при решении поставленной задачи
Текст программы, на языке Turbo Pascal
Контрольный расчет, выполненный в форме таблицы вычислений и
Предварительное построение графиков входного и выходного сигнала
Список используемой литературы

Расчет на ЭВМ характеристик входных и выходных сигналов электрических цепей.

end,
end; {of procedure UIN1}
{--------------------------------------------------------------------------------------------}
{Описание процедуры формирования массива выходных отсчетов}
Procedure UOUT1(n :integer;
Uin1,Uin2,Uout1,Uout2 :real;
Uin :Arraytipe;
var uout :Arraytype); {список формальных параметров}
var {описание локальных переменных}
k,b,del :real;
i:integer;
begin
k:=(uout2-uin1)/uin2;
for i:=1 to n do
begin
if Uin[i]>Uin2
then uout[i]:=k*Uin[i]+Uin1;
else uout[i]:=Uout1;
end,
{--------------------------------------------------------------------------------------------}
{Описание функции нахождения максимального значения выходного сигнала}
function MAXl(n :integer,
uout : ArrayType) real,
var
max: real;
i :integer;
begin
max,= uout[i|;
for i:=2 to n do
ifuout[i]>max
then max:=uout[i];
maxi:=max;
end; {of function MAXI}
{Описание функции нахождения длительности импульса}
function W(n :integer,
Uin1,tk,tn,a,b,k :real;
maxi :Arraytipe)
var
t1,t2,U1 :real;
i :integer;
begin
a:=um/(tm-tn);
b:=um/(tk-tm);
k:=(uout2-uin1)/uin2;
U1:=maxi/2;
t1:=tn+(U1-Uin1)/(a*k);
t2:=tk-(U1-Uin1)/(b*k);
w:=t2-t1;
end;
{--------------------------------------------------------------------------------------------}
{Описание процедуры записи массивов входного и выходного сигналов}
{на диск в файлы с именами fl.prn и f2.prn}
procedure WRITEINFO(n ; integer,
uin, uout, ArrayType);
var
fl,f2 :text;
i : integer,
begin
assign(f1,'f1.prn'); {связывание и открытие файлов}
assign{f2/f2.pnY);
rewrite(f1);
rewrite{f2); fori:=1 to do
begin
wnteln(f1,uin[i]:7:3); {запись в файлы}
writeln{f2,LioutEi]:7:3);
end,
close{f1); {закрытие файлов}
close(f2);
end; (of procedure WRITEINFO}
{--------------------------------------------------------------------------------------------}
BEGIN {of main}
Cirscr,
Data(n, kl, tn, tm, tk, Um, Uin1, Uin2, Uout1, Uout2),
Uin1(n, kl, tn, tm, tk, Um, uin);
Uout1(n, kl, Uin2, uin, uout);
Wrrtemfo(n, uin, uout);
Rezult(n, k), uin, uout, w);
Readln
END {of main}
Контрольный расчет, выполненный в форме таблицы вычислений и
Предварительное построение графиков входного и выходного сигнала
Таблица 3
Назначение набора
набор данных
 
Ручные вычисления
N
tнач
tкон
tм
Uм, В
Uвх1,В
Uвх2, В
U1,B
U2,B
t
l
Uвх(l)
Uвых(l)
W
Контрольный
8
1
15
7
15
9
25
20
120
1,00
1
20
7,946
 
 
 
 
 
 
 
 
 
3,00
2
5
20
 
 
 
 
 
 
 
 
 
 
5,00
3
10
53,4
 
 
 
 
 
 
 
 
 
 
7,00
4
15
75,6
 
 
 
 
 
 
 
 
 
 
9,00
5
11,25