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

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

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 0 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 58,95                     11,00 6 7,5 20                     13,00 7 3,75 20                     15,00 8 0 20   Рабочий   0,5 6 2,5 20,5 5 25 20 150          
del a b k Umax U' t1 t2 2 2,5 1,875 4,44 75,6 37,8 3,594595 11,54054
Рисунок 1 Рисунок 2 Рисунок 3
Для проверки работы алгоритма был выбран произвольный набор данных (представлен в таблице 3) и произведен расчет, при n=8.
Мы получили таблицу входных сигналов и построили график Uвх(t) (рис.1);
построили график выходного сигнала Uвых(Uвх), (рис. 2).
На график Uвых(t) (рис3) построена прямая U=0,5U', наглядно иллюстрирующая нам точки t1 и t2 и, соответственно, длительность импульса. Некторая разница в расчетном и графическом определении этих величин объясняется тем, что график в данном случае построен по небольшому количеству дискретных значений.
 Список используемой литературы
Культин Н.Б. Программирование в Turbo Pascal 7.0 Delphi.–2-е изд., перераб. И доп.–СПб.:БВХ-Петербург, 2001. – 416 с.: ил.
Бородич Ю.С., Вальвачев А.Н., Кузьмич А.И Паскаль для персональных компьютеров -Минск: Высшая школа, 1991
Губанова Т,В.Г Дубкова Е.В. Методические указания к контрольным работам по курсу «Информатика» - СПб: СЛбГУТ, 1997
Бузюков Л.6., Дубкова Е.В. Интегрированная программная система MathCAD в задачах связи. -СПб СПбГУТ, 1996
Дьяконов В П. Система MathCAD. -M Радиосвязь, 1993
2