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

Write(i:2); end;

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

Write('b');

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 Gauss(n: Integer; a: Matrix; b: Vector; var x:Vector): Boolean;
Var i, j, k, l: Integer; q, m, t: Data;
Begin

For k := 1 to n - 1 do begin

{ Ищем строку l с максимальным элементом в k-ом столбце} l := 0; m := 0;

For i := k to n do

If Abs(a[i, k]) > m then begin m := Abs(a[i, k]); l := i; end;

{ Если у всех строк от k до n элемент в k-м столбце нулевой, то система не имеет однозначного решения }

If l = 0 then begin

Gauss := false;

Exit; end;

{ Меняем местом l-ую строку с k-ой }

If l k then begin

For j := 1 to n do begin t := a[k, j]; a[k, j] := a[l, j]; a[l, j] := t; end; t := b[k]; b[k] := b[l]; b[l] := t; end;

{ Преобразуем матрицу }

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



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

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