/P>
. Кузнєцов В.В. Основи об'єктно-орієнтованого програмування в Delphi: навчальний посібник/В.В. Кузнєцов, І.В. Абдрашитова.- Томськ: ТУСУР, 2010. - 180 с.
. Марчук Г.І. Методи обчислювальної математики/Г.І. Марчук.- М .: Наука, 2010. - 456 с.
. Поршнєв С.В. Обчислювальна математика. Курс лекцій/С.В. Поршнєв.- С-Пб .: БХВ-Петербург, 2012. - 320 с.
. Т Сухарєв М.В. Delphi. Професійний підхід: навчальний посібник для студентів середньої професійної освіти/М.В.Сухарев.- М .: Наука і техніка, 2010. - 600 с.
Додаток А
unit ObrMatU1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, XPMan, Menus;
type=class (TForm): TButton ;: TButton ;: TEdit ;: TLabel ;: TStringGrid ;: TLabel ;: TXPManifest ;: TStringGrid ;: TLabel ;: TMainMenu ;: TMenuItem ;: TMenuItem;:TMenuItem; Button1Click (Sender: TObject); Button2Click (Sender: TObject); N1Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; ObrMatM, Unit2;
{$ R * .dfm} TForm1.Button1Click (Sender: TObject); n, col, row: integer;:=strtoint (edit1.Text); 1.ColCount:=n + 1;// Колонки в таблиці
tab1.RowCount:=n;// Кількість рядків у таблиці
tab2.ColCount:=2;// Колонки в таблиці
tab2.RowCount:=n;// Кількість рядків у таблиці
col:=0; row:=0 to n do.Cells [col, row]:= X ( + inttostr (row + 1) + ) raquo ;;; end; TForm1.Button2Click (Sender: TObject); a, b, c: Tmatrix; f, x: Tmass;: Real;, k, j: integer;:=strtoint (edit1.Text); (a, n, n );// транспонована матриця A
for k:=0 to n - 1 doj:=0 to n - 1 do begin [k, j]:=strtofloat (Tab1.Cells [k, j]) ;;
Setlength (b, n, n);//приєднана матриця В
Peresch (n, a, b);// Обчислення приєднаної матриці
Setlength (c, n, n);// зворотна матриця С
for k:=0 to n - 1 doj:=0 to n - 1 do [k, j]:=strtofloat (Tab1.Cells [j, k]);//вихідна матриця;
Opr (n, det, c);//обчислення визначника
if c [n - 1, n - 1]=0 then Showmessage ( Зворотній матриця не існує );
for k:=0 to n - 1 doj:=0 to n - 1 do
b [k, j]:=b [k, j]/det;//поділ на визначник
end;
//знаходження коренів
Setlength (f, n);//масив вільних членів
for k:=0 to n - 1 do begin [k]:=strtofloat (Tab1.Cells [n, k]) ;; (x, n);//масив коренів (n, b, f, x);//знаходження коренів
for j:=0 to n - 1 do.Cells [1, j]:=floattostrF (x [j], ffFixed, 5,3) ;; end; TForm1.N1Click (Sender: TObject) ;. Showmodal ;; TForm1.N2Click (Sender: TObject); i: Integer; i:=0 to Tab1.ColCount - 1 do Tab1.Cols [i] .Clear; i: =0 to Tab2.ColCount - 1 do Tab2.Cols [i] .Clear; .Clear ;; TForm1.N3Click (Sender: TObject); Form1.Close; end;.
