Задание 11

Составить программу нахождения произведения двух матриц А и В размером 2х3 и 3х3 соответственно.

Элементы результирующей матрицы С (размером 2х3) определяются по формуле: , где n- число строк матрицы А; m – число столбцов матрицы А и число строк матрицы В; p – число столбцов В. В общем случае результирующая матрица С имеет n строк и p столбцов.

Текст программы на языке Турбо Паскаль

Program UM;

Var

A,C,:aray[1..2,1..3] of real;

B:aray[1...3,1..3]of real;

I,J,K:integer;

Begin

ForI:=1 to2do

ForJ:=1to3do

Read (A[I,J]);

For I:=1to3do

ForJ:=1 to3do

Read (B[I,J]);

ForI:=1to2do

ForJ:=1to 3do

Begin

C[I,J]:=0;

ForK:=1 to3do

C[I,J]:=C[I,J]+A[I,K]*B[K,J];

End;

Begin

Writeln(‘Массив С’);

ForJ:=1 to3do

Write (C[I,J]:12:5)

End

End.

Задание 12

Текст программы на языке Турбо Паскаль