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

WriteLn ('Если Вы желаете перемножить матрицы, нажмите 6');

ReadLn (operation); {Занесение выбранного варианта в память}

WriteLn ('Введите кол-во строк исходной матрицы, не более 10');

ReadLn (m1);

WriteLn ('Введите кол-во столбцов исходной матрицы, не более 10');

ReadLn (n1);

If ((1>n1) or (n1>10) or (1>m1) or (m1>10)) {Условия ошибки}

then begin

WriteLn ('ОШИБКА!!!');

Halt;

end

else begin

WriteLn ('Введите исходную матрицу'); {Ввод исходной матрицы}

for i1:=1 to m1 do

for j1:=1 to n1 do Read (MAS1[i1,j1]);

end;

for i1:=1 to m1 do {Вывод исходной матрицы}

begin

for j1:=1 to n1 do

Write (MAS1[i1,j1]);

WriteLn;

end;

Case operation of {Оператор выбора «operation»}

1: begin {Определитель}

if (m1<>n1) then writeLn ('ОШИБКА!!!') {Условие ошибки}

else

begin {Формула определителя}

det:=(MAS1[1,1]*MAS1[2,2]*MAS1[3,3]

+MAS1[2,1]*MAS1[3,2]*MAS1[1,3]