Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.06.2015, 15:54   #1
Stacy McKritsky
 
Регистрация: 08.06.2015
Сообщений: 3
По умолчанию Решение СЛАУ методом Гаусса

Здравствуйте! Я создала класс TMatrix и написала к нему метод - процедуру, решающую матрицу Гауссом. Что важно, матрица не обязательно квадратная, поэтому вводятся количества строк и столбцов отдельно. Когда пытаюсь применить метод к матрице в модуле, Делфи выдает ошибку access violation и выделяет строку в методе (я указала какую). Помогите, пожалуйста, разобраться, правильно ли я вообще решаю систему уравнений и какие тут ошибки

Код:
procedure TMatrix.reshenie(t:TMatrix; n,m: byte; x:array of real);
var i,k,j:integer; h:real; A,b:TMass;
begin
  SetLength(A, n, m);
  SetLength(b, n, 1);
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do begin
      A[i, j] := Matr[i, j];
      B[i,1] := T.Matr[i,j];
      end;
//Прямой ход - исключение переменных
for i:=1 to n-1 do
for j:=i+1 to m do
begin
A[j,i]:=-A[j,i]/A[i,i];
for k:=i+1 to n do
A[j,k]:=A[j,k]+A[j,i]*A[i,k];
B[j,1]:=B[j,1]+A[j,i]*B[i,1];
end;
x[m]:=B[n,1]/A[n,m]; //на эту строку ругается Delphi
//Обратный ход - нахождение корней
for i:=m-1 downto 1 do
begin
h:=B[i,1];
for j:=i+1 to m do h:=h-x[j]*A[i,j];
x[i]:=h/A[i,i]
end;
end;
Stacy McKritsky вне форума Ответить с цитированием
Старый 08.06.2015, 19:24   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

А что вы хотите, если в А нет такого элемента. У вас же индексы 0, n-1 и 0,m-1
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
решение СЛАУ методом гаусса al172 Помощь студентам 0 12.11.2013 17:08
Решение СЛАУ методом Гаусса doter Общие вопросы C/C++ 0 29.09.2012 22:09
Решение СЛАУ методом Гаусса и методом Крамера. R1k1 Помощь студентам 0 24.03.2012 19:17
Решение СЛАУ методом Гаусса Medvedko0116 Помощь студентам 0 27.06.2011 11:15
решение слау методом гаусса subarimpra Помощь студентам 0 31.10.2010 15:26