ання при розробці цієї програми.
Список використаної літератури
1. Абрамовіц М. Довідник за спеціальними формулами і функціям/М. Абрамовіц, І. Стігала.- М .: Наука, 2010. - 832 с.
. Боглаєв Ю.П. Обчислювальна математика та програмування/Ю.П. Боглаєв.- М .: Вища школа, 2011. - 554 с.
. Березін І.С., Жидков Н.П. Методи обчислень т.2/І.С. Березін.- М .: Физматгиз, 2012. - 264 с.
. Обчислювальна математика/Н.І. Даніліна, Н.С. Дубровська, О.П. Кваша, Г.С. Смирнов.- М .: Вища школа, 2011. - 472 с.
. Гаврилов М.В. Інформатика та ІТ: навчальний посібник/М.В. Гаврилов.- М: Гардарика, 2010. - 656 с.
. Даніліна Н.І., Дубровська Н.С. Чисельні методи для технікумів/Н.І. Даніліна, Н.С. Дубровська.- М .: Вища школа, 2012. - 368 с.
. Демидович Б.П. Основи обчислювальної математики/Б.П. Демидович, І.А. Марон.- М .: Наука, 2011. - 664 с.
. Кірєєв В.І., Пантелєєв А.В. Чисельні методи в прикладах і задачах/В.І. Кірєєв, А.В. Пантелєєв.- М .: Вища школа, 2010. - 480 с.
. Кузнєцов В.В. Основи об'єктно-орієнтованого програмування в Delphi: навчальний посібник/В.В. Кузнєцов, І.В. Абдрашитова.- Томськ: ТУСУР, 2010. - 180 с.
. Марчук Г.І. Методи обчислювальної математики/Г.І. Марчук.- М .: Наука, 2010. - 456 с.
. Поршнєв С.В. Обчислювальна математика. Курс лекцій/С.В. Поршнєв.- С-Пб .: БХВ-Петербург, 2012. - 320 с.
. Пірумов У.Г. Чисельні методи/Н.Р. Пірумов.- М .: Видавництво МАІ, 2010. - 188 с.
Додаток А
ObrMatU1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, StdCtrls, XPMan, Menus;=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);
tab1.ColCount:=n + 1;// Колонки в табліце.RowCount:=n;// Кількість рядків у табліце.ColCount:=2;// Колонки в табліце.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);
Setlength (a, n, n);// транспонована матриця A
for k:=0 to n - 1 doj:=0 to n - 1 do begin [k, j]:=strtofloat (Tab1.Cells [k, j]);
end; (b, n, n);//приєднана матриця В (n, a, b);// Обчислення приєднаної матриці (c, n, n);// зворотна матриця С
for k:=0 to n - 1 doj:=0 to n - 1 do [k, j]:=strtofloat (Tab1.Cells [j, k]);//вихідна матриця
end; (n, det, c);//обчислення определітеляc [n - 1, n - 1]=0 then Showmessage ( Зворотній матриця не існує );
for k:=0 to n - 1 doj:=0 to n - 1 do
begin [k, j]:=b [k, j]/det;//поділ на визначник;
//знаходження коренів (f, n);//масив сободних членів
for k:=0 to n - 1 do begin [k]:=strtofloat (Tab1.Cells [n, k]) ;; (x, n);//масив коренів
Resh (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;.
