тел.: 8(961)008-77-55

Даны две вещественные матрицы А(5х5) и В(5х5). Найти С=АхВ

Решение ABC Pascal:

Program mat;

var

A:array [1..5, 1..5] of real; B:array [1..5, 1..5] of real; C:array [1..5, 1..5] of real; i,k,j: integer;

begin

// заполняем матрицы случайными числами

Randomize;

for i:=1 to 5 do

begin

for k:=1 to 5 do

begin

A[i,k]:=Random*20-10;

B[i,k]:=Random*20-10;

end;

end;

for i:=1 to 5 do

begin

for k:=1 to 5 do

begin

for j:=1 to 5 do C[i,k]:=C[i,k]+A[i,j]*B[j,i];

end;

end;

writeln('A');

for i:=1 to 5 do

begin

for k:=1 to 5 do

begin

write(A[i,k]:10:3)

end;

writeln;

end;

writeln('B');

for i:=1 to 5 do

begin

for k:=1 to 5 do

begin

write(B[i,k]:10:3)

end;

writeln;

end;

writeln('Произведение:');

writeln('C');

for i:=1 to 5 do

begin

for k:=1 to 5 do

begin

write(C[i,k]:10:3)

end;

writeln;

end;

end.

pascal Запущения программа произведение матриц

Добавить комментарий