Реферат: 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]