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

);

writeln ('Введіть ваші вихідні дані:'); ('Початковий момент спостереження');

write ('tn ='); (tn);

write ('Кінцевий момент спостереження');

write ('tk ='); (tk); ('Введіть Uвх1'); ('uin2 ='); (uin2); ('Введіть Uвх2'); ('uin3 =' ); (uin3);

end;

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

{Процедура формування масиву вхідних відліків}

procedure uin1 (kl: byte; tn, tk: real;

var uin: arraytype); {список формальних параметрів} = 2; k = 4; u0 = 0;, s, del: real; {опис локальних змінних}

i: integer;: array [1 .. 4] of integer; [1]: = 15; u [2]: = 5; u [3]: = 3; u [4] : = 2;: = tn;: = (tk-tn)/(k-1);: = 0; i: = 1 to k do: = s + u [i] * sin (i * 2 * Pi * t/t1);: = t + del; [i]: = u0 + s;

end;;

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

{Процедура формування масиву вихідних відліків}

procedure uout1 (kl: byte; uin2, uin3: real; uin: arraytype; uout: arraytype); = 5; u1 = 10; u2 = 50; a1, a2, b1, b2: real ;: integer;: = (u1-u0)/uin2;: = u0;: = (u2-u1)/(uin3-uin2);: = u1-a2 * uin2; i: = 1 to 4 douin [i] > = uin3 then [i]: = u2; (uin [i]> = uin2) and (uin [i]

end;;

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

{Процедура функції знаходження максимального значення вихідного сигналу}

function maxi (uout: arraytype): real; max: real;: integer;: = uout [i]; i: = 2 to 4 douout [i]> maxmax: = uout [i ];: = max;;

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

{процедура запису масивів вхідного і вихідного сигналів на диск у файли}

procedure writeinfo (uin, uout: arraytype);, f2: text;: integer;

begin (f1, 'f1.prn'); {зв'язування і відкриття файлів} (f2, 'f2.prn'); (f1); {відкрити файл для запису}

rewrite (f2); i: = 1 to 4 do (f1, uin [i]: 7:3); {запис у файл} (f2, uout [i]: 7:3) ;; (f1); {закриття файлів} (f2);

end;

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

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

procedure rezult (kl: byte;, uout: arraytype);

var: integer; kl = 1 then {ознака виведення результатів на екран монітора} ('відліки...