Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/23: Рейтинг темы: голосов - 23, средняя оценка - 4.57
cuber
7 / 7 / 1
Регистрация: 22.06.2010
Сообщений: 40
1

Нахождение обратной матрицы методом Гаусса

18.05.2011, 17:27. Просмотров 4485. Ответов 1
Метки нет (Все метки)

Помогите плиз! ни как не могу понять где ошибка: при вводе матрицы
6 16 12 0
1 3 11 2
3 6 3 2
-20 -10 5 4

получается

-1,50 -4,0 -3,0 0,0
-0,25 -0,75 -2,75 -0,5
-0,75 -1,5 -0,75 -0,5
5,0 2,5 -1,25 0,0
вот код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program obr_matr;
uses crt;
const n=4;
var A,B: array [1..n,1..n] of real;
    i,j,k: integer;
  begin
  writeln('vvedite matricu');
for i:=1 to n do
  for j:=1 to n do
  readln(A[i,j]);
{VbIVOD NA4ALNOI MATRICbI}
writeln('NA4AL9I MATRICA');
for i:=1 to n do
  begin
  for j:=1 to n do
  write(A[i,j]:5:0);
  writeln;
  end;
for k:=1 to n do
begin
 for i:=1 to n do
  for j:=1 to n do
    B[i,j]:=-A[i,j]/A[k,k];
    B[i,j]:=A[i,k]/A[k,k];
    B[i,j]:=A[i,j]-A[k,j]*A[i,k]/A[k,k];
end;
  {VbIVOD KONE4NOI MATRICbI}
  writeln('REZULTAT');
  for i:=1 to n do
  begin
  for j:=1 to n do
  write(B[i,j]:9:3);
  writeln;
  end;
end.
Такие ли должны быть значения? Если нет, то исправьте плиз ошибку
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2011, 17:27
Ответы с готовыми решениями:

Решение СЛАУ методом обратной матрицы
Помогите решить СЛАУ методом обратной матрицы. Самое главное, чтобы задача была оформлена с...

Процедуры и функции. Решение матрицы методом Гаусса
Здравствуйте уважаемые господа программисты.Очень нужна ваша помощь. В общем вот программа...

Нахождение обратной матрицы
помогите пожалуйста нужна БЛОК СХЕМА и ПРОГРАММА на нахождение обратной матрицы, (паскаль)

СЛАУ методом обратной матрицы
Матричным методом

1
Quart
0 / 0 / 1
Регистрация: 04.06.2011
Сообщений: 3
10.06.2011, 22:29 2
Pascal
1
2
3
    B[i,j]:=-A[i,j]/A[k,k];
    B[i,j]:=A[i,k]/A[k,k];
    B[i,j]:=A[i,j]-A[k,j]*A[i,k]/A[k,k];
Вы уверены в этом?
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2011, 22:29

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Решение неоднородной системы линейных уравнений методом обратной матрицы
Решение неоднородной системы линейных уравнений методом обратной матрицы (выполнить проверку...

Нахождение обратной матрицы методом Гаусса
Доброго времени суток! На просторах интернета нашел исправный код на языке C++ для нахождения...

Нахождение обратной матрицы методом Гаусса
здравствуйте!! я чуть чуть плохо понимаю метод Гауса, хочу у вас спросить правильно ли работает...

Нахождение обратной матрицы методом Гаусса-Жордано
В данный момент проходим матрицы и у меня возникли сложности с нахождением обратной матрицы методом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.