Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

For i := 1 to n do begin

For j := 1 to n do begin

GotoXY(j * 6 + 2, r + i + 1);

Read(a[i, j]); end;

GotoXY((n + 1) * 6 + 2, r + i + 1);

Read(b[i]); end;
End;

{ Процедура вывода результатов }
Procedure WriteX(n :Integer; x: Vector);
Var i: Integer;
Begin

For i := 1 to n do

Writeln('x', i, ' = ', x[i]);
End;

{ Функция, реализующая метод Зейделя }
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data)
:Boolean;
Var i, j: Integer; s1, s2, s, v, m: Data;
Begin

{ Исследуем сходимость }

For i := 1 to n do begin

s := 0;

For j := 1 to n do

If j i then s := s + Abs(a[i, j]);

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];

Рекомендуем скачать другие рефераты по теме: скачать доклад на тему, отчет по практике.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата