Реферат Розрахунок на ЕОМ характеристик вихідних сигналів електричних ланцюгів

"justify"> {----------------------------------------- ---------------------------}

{ Опис процедури запису масивів вхідного і вихідного

сигналів}

{на диск у файли з іменами f1.рrn і f2.prn}

procedure WRITEINFO (n: integer;, uout: ArrayType);, f2: text;: integer; (f1, 'f1.prn'); rewrite (f1); { зв'язування і відкриття файлів }

assign (f2, 'f2.prn'); rewrite (f2);

i: = 1 to n do (f1, uin [i]: 7:3); { запис у файли }

writeln (f2, uout [i]: 7:3);; (f1); { закриття файлів }

close (f2);; { of procedure WRITEINFO}

{----------------------------------------- --------------------------}

{ процедура виведення на екран результатів роботи програми}

procedure REZULT (n: integer; kl: byte;, uout: ArrayType); i: integer;

beginkl = 1 { ознака виведення результатів на екран монітора} ('Oтсчети вхідного сигналу');

for i: = 1 to n do ('Uвх (', i, ') =', uin [i]: 7:3); {висновок вхідних відліків } ;

Readln; ('Oтсчети вихідного сигналу');

for i: = 1 to n do ('U вих (', i, ') =', uout [i]: 7:3); {висновок вих. відліків } ;; (n, uin, uout); writeln;

writeln ('Пporpaммa закінчила свою роботу. Масиви'); ('вхідних і вихідних відліків сформовані'); ('і записані у файли f1.prn і f2.prn відповідно');; (' Тривалість вих імпульсу = ', dlit (n, uout, time): 7:3);

end; { of procedure REZULT}

{ of main}; (n, kl, a0, a1, a2, tn, tk, a, b, Ui1); (n, a0, a1, a2, tn, tk, uin, time); (n, a, b, Ui1, uin, uout); (n, kl, uin, uout);;

END . { of main }

Пояснення до тексту програми

Запропонована для вирішення завдання розбита на п'...