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,594 595 11,54 054
Рисунок 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
