Учеб. для вузів. 3-е вид./За ред. В.С.Зарубіна, А.П.Кріщенко. - М.: вид-во МГТУ ім. Н.Е. Баумана, 2002. - 388 с. (Сер. Математика в технічному університеті; вип. 3) - ISBN 5-7038-1671-8 (вип. 3). p>. Шапрут В.В. Delphi 2005. Вчимося програмувати [Текст]: навчальний посібник для вузів/Шапрут В.В. - М.: НТ Прес, 2005. - 352 с.: Іл. - (Самовчитель) - ISBN 5-477-00118-6. p>. Кострикін А.І. Введення в алгебру. Частина 1. основи алгебри: Підручник для вузів. - М.: Фізико-математична література, 2001. - 272 с. - ISBN 5-9221-0167-6. br/>
Додаток А
Загальна символьна схема алгоритму.
В
Символьна схема алгоритму розв'язання СЛАР методом Гауса
В В В В
Символьна схема алгоритму знаходження зворотної матриці з використанням методу Гауса
В
Символьна схема алгоритму знаходження визначника матриці з використанням методу Гауса
В В В
Додаток Б
Код програми
unit modul;
interface = array of real; = array of array of real; Gauss (a: matrica; b: massiv; n: integer; x: massiv; var pr: byte); opredelitel ( a: matrica; n: integer): real; obrmatrica (a: matrica; n: integer; h: matrica; var pr: byte); Gauss (a: matrica; b: massiv; n: integer; x: massiv; var pr: byte); i, j, k, r: integer;, m, c, s: real;
{прямий хід методу Гауса}
for i: = 1 to n doj: = 1 to n do k: = 1 to n do: = abs (a [k, k]); {нехай діагональний елемент - максимальний}
r: = k; {Номер рядка, в якій він знаходиться}
for i: = k +1 to n doabs (a [i, k])> max then
begin {Якщо в рядку знайдеться елемент, що перевищує}
max: = abs (a [i, k]); {максимум, зберегти його, а}
r: = i; {також номер рядка, в якій він знаходиться}
end;
for j: = 1 to n do {Поточний рядок міняється місцями зі}
begin {рядком містить максимальний елемент}
c: = a [k, j]; [k, j]: = a [r, j]; [r, j]: = c;
end;
{Приведення розширеної матриці до ступінчастого вигляду}
c: = b [k]; [k]: = b [r]; [r]: = c; i: = k +1 to n do: = a [i , k]/a [k, k]; j: = k to n do [i, j]: = a [i, j]-m * a [k, j]; [i]: = b [i] -m * b [k];;;
{Зворотний хід методу Гауса}
...
