Курсовая работа: Приклад обчислення функції на Паскалі

end;

writeln ( ' Транспонированная матрица');

writeln;

Print_M(A,M,N); { Оператор процедуры отображения матрицы }

{Формирование массива X из транспонированной матрицы }

k:=1; {Начальное значение формирователя индексов элементов массива X}

for i:=1 to m do

for j:=1 to n do

if a[i,j]<2 then

begin

x[k]:=a[i,j];{Формирование элемента x[k]массива X }

k:=k+1;

end;

{Вывод массива X}

writeln(' Массив X');

writeln;

for i:=1 to k-1 do

write ('x[',i,']=', x[i]:10:7,' '); {Вывод элемента массива X}

{ Вычисление функции U}

U:=1; {Начальное значение функции U}

for i:=1 to k-1 do

U:=U*(x[i]+x[k-i]); {Значение функции U}

writeln;

writeln;

write ('u=',u:10:7); {Отображение результирующего значения функции U}

Repeat Until KeyPressed

END.

РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ

при m=n=3 і при однаковом форматі виведення для всіх чотирьох видів даних