Модуль глобальних описів

Unit Glob; {Имя модуля}

Interface

Const

Len=100;

Type

T_Matr=array[1..Len,1..Len] of real; {Тип массива-матрицы}

T_Vect=array[1..Len] of real; {Тип массива-вектора}

End.

Сервісний модуль обслуговування матриці

Unit KR_Srv2;{ Имя сервисного модуля}

Interface

Uses

Glob; { Имя модуля с глобальными описаниями}

Procedure Ztvor_M(M,N:byte;Var ma:T_Matr); { Описание процедуры создания матрицы}

Procedure Print_M(Ma:T_Matr;M,N:byte); { Описание процедуры печати}

Implementation

Uses CRT;

Procedure Ztvor_M(M,N:byte;Var ma:T_Matr); { Процедура создания матрицы}

Var

i,j:byte; { Рабочие переменные}

Begin

writeln (' Введите размерность матрицы A: числа M и N'); write('m=');

read (m);

write('n=');

read(n);

ClrScr;

For i:=1 to m do

For j:=1 to n do

ma[i,j]:=(ABS(3.7-j)-2) *exp (((i-j)*ln(2)))*(i+j-7.3)*SIN(1.5+(Ln(i/j)/ln(2)));

End;

Procedure Print_M(Ma:T_Matr;M,N:byte); { Процедура отображения матрицы}

var j,i:byte;

Begin

write (' Выведите элементы матрицы a[i,j]');

writeln;

writeln;

For i:=1 to m do

begin

For j:=1 to n do

write ('a[',i,’,’,j,']=',Ma[i,j]:10:7); { Отображение элементов матрицы}

writeln;

end;

End;

END.

Головна програма

Program Matr_KR2;

uses Crt,Glob,KR_SRV2; { Список используемых модулей }

var i,j,k,m,n,l:integer; { Рабочие переменные }

a:T_Matr; {Имя элементов матрицы А}

x:T_Vect; {Имя элементов массива Х }

u:real; {Имя вычисляемой функции }

c:real; { Вспомогательная переменная для транспонирования матрицы }

begin

ClrScr;

writeln(' Исходная матрица');

Ztvor_M(M,N,A);

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

{Транспонирование матрицы }

L:=1; {Начальное значение переменной для формирования начального значения параметра вложенного цикла (работа по столбцам) при транспонировании матрицы А }

for i:=1 to m-1 do

begin

for j:=l to n do

c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c; { Получение элементов транспонированной матрицы }

L:=L+1

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.