Пример 5

Составить программу вычисления произведения двух квадратных целочисленных матриц А и В размером 5*5 соответственно. Элементы результирующей, также целочисленной, матрицы С (размером 5*5) определяются по формуле

c[i, j] =

где n - размерность матриц А и В.

Решение

Формирование матриц будем производить с помощью генератора случайных чисел, вычисление элементов результирующей матрицы С - с помощью вложенных циклов, где во внутреннем цикле (по параметру k) будет накапливаться сумма, определяющая элемент с[i,j].

Program Exampl_46;

Const n = 5;

Type dmyarray = Array[1..n, 1..n] Of Integer;

Var A, B, C: dmarray;

Procedure Init(Var x: dmyarray);

...

Procedure Print(x: dmyarray);

...

Procedure Mult(x,y: dmyarray; Var z: dmyarray);

Var k, i, j: Integer;

Begin

For i:=1 To n Do

For j:=1 To m Do

Begin

z[i,j]:=0;

For k:=1 To n Do z[i,j]:=z[i,j]+x[i,j]*y[k,j];

End;

End;

Begin {основная программа}

Writeln('массив А:'); Init(A); Print(A);

Writeln('массив В:'); Init(B); Print(B);

Mult(A, B, C);

Writeln('массив С:'); Print(c);

Readln;

End.

Определить, отвечает ли заданный массив некоторым требованиям

Дата добавления: 2015-08-17