FreePascal.ru

Чёрный Краб
1. Посмотрите, какие переменные Вы используете в циклах, а потом сравните с теми переменными, которые Вы используете для индексов матрицы.
2. Сравните в той части, что относится к умножению матрицы на вектор мой пример и то, что написано в Вашем коде.



Да. Так тоже пробовал, понятно ...

Чёрный Краб
Две ошибки в цикле умножения матрицы на вектор. Попробуйте сами найти.
У Вас, случайно, со зрением проблем нет? А то у меня самого зрение неважное, я тоже, когда пишу программы, постоянно ляпаю такие детсадовские ошибки, а потом, с помощью тестов, сижу их выуживаю...


Ошибки в ...

Чёрный Краб
У Вас переменная C имеет тип TMatrix, а в строке 284 Вы ему скармливаете всего лишь один индексный элемент, хотя у этого типа должно быть два.

Спасибо.

Уже лучше, правда он всё равно неверное решение выводит.

Program Resh;
Uses Crt;

Const
MaxN = 10;
MaxK = 10;
T=0.00001 ...

... дело в том, что у меня не одна система линейных уравнений, это по типу калькулятора решения, а этот перебор, как я понял только для текущего ...
Неправильно поняли.
Вам никто не мешает использовать динамические массивы, размер которых опирается на переменную (в моём примере - константу ...

Чёрный Краб
Поскольку обратная матрица у Вас получается правильная, значит остаётся единственное место, где сидит ошибка - неправильный алгоритм умножения матрицы на вектор. Матрица может умножаться только на вектор-столбец, об этом многие забывают. Вам нужно перебирать в цикле все строки матрицы ...

А словестные комментарии можно увидеть? Что за уравнение, что и где не нравится? Что выводит при каких условиях и что должна выводить?

При методе гаусса система линейных уравнений, выводит следующее решение, которое представлена на скрине:

А при решении системы линейных уравнений методом ...

Процедура не правильно выводит решение системы уравнений, если задать.

Program Resh;
Uses Crt;

Const
MaxN = 10;
MaxK = 10;
T=0.00001; {Ограничиваем числа близкие к нулю}

Type

TVector = array[1..MaxN] of Real;
TMatrix = array[1..MaxN, 1..MaxN ...

Разве одна процедура не может выводить решения за другую, так как есть процедура на вывод результата, а та в свою очередь берёт результат из той процедуры, походу не так всё?

Не подскажите почему не считает решение исходя из матрицы.

Вот код.

Program Vot_eto_pravilno;


uses crt;

Const
MaxN = 10;
MaxK = 10;
T=0.00001; {Ограничиваем числа бликие к нулю}

Type

TVector = array[1..MaxN] of Real;
TMatrix = array[1..MaxN, 1&#46 ...

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

Добавлено спустя 28 ...

Значит параметры неправильно задал(

Входная матрица a. В u он выполняет действия в процедуре, получается, нужно видоизменить процедуру дополнений, чтобы u там не было, а была только исходная матрица? НО получается, что программа выполняет действия с матрицами просто не правильно высчитывает, не пойму ошибка логическая или в расчётах ...

Program Reshenie_Sistem_Ypavhehi;
Uses CRT;
Const
MaxN = 10;
MaxK = 10;
T=0.00001; {Ограничиваем числа бликие к нулю}

Type
TVector = array[1..MaxN] of Real;
TMatrix = array[1..MaxN, 1..MaxN] of Real;



Procedure ReadSystem(N: Integer ...

Неверно выводит обратную матрицу из-за неверного расчёта алгебраических дополнений.

Program Reshenie_Sistem_Ypavhehi;
Uses CRT;
Const
MaxN = 10;
MaxK = 10;
T=0.00001; {Ограничиваем числа бликие к нулю}

Type
TVector = array[1..MaxN] of Real;
TMatrix = array[1&#46 ...

Дож то есть получается, вообще убрать переменную Tmatr и практически везде поставить переменную Tmatrix?

Добавлено спустя 10 минут 22 секунды:
Дож спасибо, я понял, что переменная tmatr тут по сути не нужна.