Реферат: Turbo Paskal Операции над матрицами

WriteLn;

end;

m3:=m1; n3:=n2;

for i3:=1 to m3 do

for j3:=1 to n3 do begin

MAS3[i3,j3] := 0;

for i2:= 1 to m2 do

{Итоговая формула}

MAS3[i3,j3] :=MAS3[i3,j3] + MAS1[i3,i2] * MAS2[i2,j3];

end;

begin {Вывод произведения}

writeln;

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

for i3:=1 to m1 do begin

for j3:=1 to n2 do Write (MAS3[i3,j3]);

WriteLn;

end;

end;

end;

End; {End Case}

ReadKey;

END. {Конец программы}

Пример работы программы

1. Операция нахождения определителя:

1) При появлении на экране меню с выбором операций, выбираем 1.

2) На предложение ввести кол-во строк матрицы, выбираем 3.

3) Кол-во столбцов – 3.

4) Вводим матрицу: æ 1 4 5 ö

ç 5 3 7 ÷

è 8 1 4 ø