Turbo Paskal Операции над матрицами
Категория реферата: Рефераты по информатике, программированию
Теги реферата: рефераты, шпаргалки скачать бесплатные шпаргалки
Добавил(а) на сайт: Авдий.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
+MAS1[1,2]*MAS1[2,3]*MAS1[3,1])
-(MAS1[3,1]*MAS1[2,2]*MAS1[1,3]
+MAS1[3,2]*MAS1[2,3]*MAS1[1,1]
+MAS1[2,1]*MAS1[1,2]*MAS1[3,3]);
WriteLn ('Opredelitel det=',det); {Вывод определителя} end; end;
2: begin {Обратная матрица} if (m1n1) then WriteLn ('ОШИБКА!!!') {Условие
ошибки} else begin det:=(MAS1[1,1]*MAS1[2,2]*MAS1[3,3]
{Определитель}
+MAS1[2,1]*MAS1[3,2]*MAS1[1,3]
+MAS1[1,2]*MAS1[2,3]*MAS1[3,1])
-(MAS1[3,1]*MAS1[2,2]*MAS1[1,3]
+MAS1[3,2]*MAS1[2,3]*MAS1[1,1]
+MAS1[2,1]*MAS1[1,2]*MAS1[3,3]); if det = 0 then WriteLn ('ОШИБКА!!!')
{Условие ошибки} else begin {Союзная матрица} for i1:=1 to m1 do for j1:=1 to n1 do
MAS2[i1,j1]:=MAS1[j1,i1];
{Итоговая формула} for i1:=1 to m1 do for j1:=1 to n1 do
MAS3[i1,j1]:=(1/det)*MAS2[i1,j1];
WriteLn;
WriteLn ('Обратная матрица:'); for i1:=1 to m1 do begin {Вывод обратной матрицы} for j1:=1 to n1 do
Write
(MAS3[i1,j1]);
WriteLn; end; end; end; end;
3: begin {Транспонирование матрицы} for i1:=1 to m1 do for j1:=1 to n1 do MAS2[i1,j1]:=MAS1[j1,i1];
{Формула}
WriteLn ('Транспонированная матрица: '); for i1:=1 to m1 do begin {Вывод транспонированной матрицы} for j1:=1 to n1 do
Write (MAS2[i1,j1]);
WriteLn; end; end;
4,5: begin {Сложение/вычитание матриц}
{Ввод второй матрицы}
WriteLn ('Введите кол-во строк второй матрицы');
ReadLn (m2);
Рекомендуем скачать другие рефераты по теме: реферат, баллов.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата