ний іншими подпрограммаміfunction dlit (n: integer; uout, time: ArrayType): real; n, uout, time - вхідні параметри значення, з їх допомогою функція розраховує своє єдине значення - тривалість вихідного імпульсаФункція знаходить тривалість вихідного імпульсу і повертає його в точку визоваprocedure WRITEINFO (n: integer; uin, uout, time: ArrayType), n, uin, uout - вхідні параметри, які процедура використовує для проведення операції запису масивів вхідних і вихідних сигналів у файли на діскПроцедура записує відліки вхідного і вихідного сигналів у потрібному форматі у файли f1.prn і f2.prn соответственноprocedure REZULT (n integer; kl: byte; uin, uout: ArrayType); n, kl, uin, uout ~ вхідні параметри, використовувані процедурою для виведення результатів на екран монітораВиводіт результат роботи програми на екран монітора, якщо користувач ввів за допомогою процедури Data потрібне значення ознаки kl = 1
Програма розрахунку характеристик вихідного сигналу електричного кола
program kurs_1; Crt; { підключення модуля CRT }
const maxind = 160; ArrayType = array [1 .. maxind] of real;
var { опис глобальних параметрів}: integer; { глобальні параметри, безпосередньо недоступні}: byte; { жодної з нижче описаних процедур і функцій}
a0, a1, a2, tn, tk, a, b, Ui1: real;, uout, time: ArrayType;
{Процедура введення вихідної інформації}
procedure DATA (var n: integer; var kl: byte; a0, a1, a2, tn, tk, a, b, Ui1: real);
begin ('Введіть ознака kl = 1, якщо хочете вивести результат на
монітор '); (' або ознака kl = 0, якщо хочете записати результати у файли f1 і
f2 ');
write ('kl ='); (kl);
writeln ('Введіть ваші вихідні дані'); ('Кількість відліків сигналу');
write ('n ='); (n);
('Параметри вхідного сигналу');
write ('a0 ='); (a0); ('a1 ='); (a1); ('a2 ='); (a2);
writeln ('Haчaльний момент спостереження сигналу');
write ('tn ='); (tn);
writeln ('Koнeчний момент спостереження сигналу');
write ('tk ='); (tk);
writeln ('3 аданние параметри передавальної характеристики ');
write ('a ='); (a); ('b ='); (b); ('Uвх1 ='); ...
