Массивы');
writeln ('вход. и вых. отсчётов сформированы');
writeln ('и записаны в файлы f1. prn и f2. prn');
end
end; {of procedure REZULT}
{——————————————————————————-}
var
n :integer;
kl :byte;
tn, t1, tk, a, b, a1, b1, U1: real;
uin, uout: ArrayType;
{——————————————————————————-}
begin
Clrscr;
Data (n, kl, tn, t1, tk, a, b, a1, b1,U1);
Uin1(n, kl, tn, t1, tk, a, b, uin);
Uout1(n, kl, a1, b1,U1,uin, uout);
Writeinfo (n, uin, uout);
Rezult (n, kl, uin, uout);
Readln
end.
Контрольный расчет Назначение набора Набор данных Ручные вычисления Вычисления на ЭВМ N tнач tкон t1 a b a1 b1 Uвх1 i Uвх (i) Uвых (i) UmaxUmin i Uвх (i) Uвых (i) Umax-Umin Рабочий 5 10 35 30 12 48 2 -5 20 1 0 -5 450 1 0 -5 450 2 75 145 2 75 145 3 150 295 3 150 295 4 225 445 4 225 445 5 0 -5 5 0 -5 Контрольный 5 10 30 20 2 1 2 1 10 1 0 1 40 1 0 1 40 2 10 21 2 10 21 3 20 41 3 20 41 4 15 31 4 15 31 5 10 21 5 10 21
Результаты для рабочего набора данных:
Рис.1
Результаты для контрольного набора данных:
Рис.2
Построение графиков вх. и вых. сигнала в интегрированной программной среде MathCAD.
Для построения графиков используются данные из файлов f1. prn и f2. prn которые были созданы ранее в программе на язке Turbo Pascal.
Рис.3
Список литературы
Рапаков Г. Программирование на языке Pascal СПб: «БХВ — Санкт-Петербург», 2003, 480 с.
Губанова Т. В. Информатика: методические указания к курсовой работе СПб: СПбГУТ, 1998, 29 c.
Кирьянов Д. В. Самоучитель MathCAD 2001. СПб: БХВПетербург, 2002, 544 с.
Электрическая цепь
Uвых (t)
Uвх (t)
