Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

         If s >= Abs(a[i, i]) then begin

            Seidel := false;

            Exit;

         end;

     end;

     Repeat

         m := 0;

         For i := 1 to n do begin

             { Вычисляем суммы }

             s1 := 0;

             s2 := 0;

             For j := 1 to i - 1 do

                 s1 := s1 + a[i, j] * x[j];

             For j := i to n do

                 s2 := s2 + a[i, j] * x[j];

             { Вычисляем новое приближение и погрешность }

             v := x[i];

             x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);

             If Abs(v - x[i]) > m then

                m := Abs(v - x[i]);

         end;

     Until m < e;

     Seidel := true;

End;

Var

Рекомендуем скачать другие рефераты по теме: бесплатные рефераты и курсовые, хозяйство реферат.



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки