вхідного сигналу');
for i: = 1 to 4 do ('Uвх [', i, ']', uin [i]: 7:3); {висновок вхідних звітів} ('відліки вихідного сигналу') ; i: = 1 to 4 do ('U вих [', i, '] =', uout [i]: 7:3); {висновок вихідних звітів}
writeln ('Макс.значеніе вих. сигналу =', maxi (uout): 7:3);
end
else {kl - будь-яке число, наприклад 0}
begin
writeln;; ('Програма закінчила свою роботу. Масиви'); ('вхідних і вихідних відліків сформовані'); ('і записані у файли f1.prn і f2.prn відповідно');; ;
{----------------------------------------- ---------------------------}: byte; {глобальні параметри}
tn, tk, uin2, uin3: real;, uout: arraytype;
{----------------------------------------- ---------------------------} {початок головної програми}; (kl, tn, tk, uin2, uin3); {тіло програми} (kl, tn, tk, uin); (kl, uin2, uin3, uin, uout); (uin, uout); (kl, uin, uout);
readln;. {Кінець програми}
. ТАБЛИЦЯ ідентифікатор
Позначення в задачеИдентификаторНазначениеkkКоличество відліків вхідного сігналаklПрізнак - ключ, що визначає режим роботи kl = 1, якщо вивід на монітор, kl - будь-яке число, наприклад 0, якщо висновок у файл на диск. uinМассів для зберігання відліків вхідного сигналу. uoutМассів для зберігання відліків вихідного сігнала.tnНачальний момент спостереження вхідного сігнала.tkКонечний момент спостереження вхідного сігнала.ttТекущій момент наблюденія.Tt1Період. u0Коеффіціенти для знаходження вхідного сигналу. u1 u2 u3 u4delІнтервал між двома сусідніми відліками вхідного сігнала.iСчетчік циклу. Uin2Параметри передавальної характеристики. Uin3 u0 u1 u2maxПеременная для зберігання макс. значення вихідного сігнала.f1, f2Логіческіе імена файлів. a1Коеффіціенти, що з'являються при переході від графічного зображення сигналу до його аналітичному увазі. a2 b1 b2ssСумма (проміжне значення), для знаходження значень вхідного сигналу.
5. ТАБЛИЦЯ опису користувацьких підпрограм
ПодпрограммаВходние і вихідні параметриНазначеніяprocedure data (var kl: byte; var tn, tk, uin2, uin3: real); всі формальні параметри процедури є вихідними (var - параметри) ...
