- М.: Мир, 1977. - 584 с.
Ракітін В.І. Практичний посібник по методах обчислень з додатком програм для персональних комп'ютерів/В.І. Ракітін, В.Є. Первушин. - М.: Вища школа, 1998. - 383 с.
Додаток
Лістинг програми
(Програмна реалізація рішення систем СЛАР. Модулі програми: main, opro, gauss_lu, vvod).
1) Головний модуль main
{Модуль main є головним модулем програми. У цьому модулі виводяться результати виконання програми, надається доступ до модулів opro, gauss_lu, vvod.} p align="justify"> unit main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, ActnList, StdCtrls, ComCtrls, ToolWin, ImgList, XPMan; = class (TForm): TActionList;: TAction;: TAction;: TAction;: TAction;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TToolBar;: TToolButton;: TToolButton;: TMemo;: TImageList; : TToolButton;: TXPManifest; aVyhodExecute (Sender: TObject); aVvodExecute (Sender: TObject); aGaussExecute (Sender: TObject); aOprgExecute (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; gauss_lu, opro, vvod;
{$ R *. dfm} TForm1.aVyhodExecute (Sender: TObject); // вихід;; TForm1 . aVvodExecute (Sender: TObject); // виклик вікна введення данних.ShowModal;; TForm1.aGaussExecute (Sender: TObject) ; // керуюча процедура // методу Гауса, j, k, // лічильники циклів: integer; // число рівнянь системи, norm: real; // визначник, норма матриці, // зворотна матриця, // розширена матриця коефіцієнтів системи розмірності nx n +1, U: matr ; // L, U матриці LU-розкладання, // вектор вирішення системи методом Гауса: vect; // вектор правої частини: textfile ; // файл виводаPRINT_MATR (var A: matr; n: integer);
