Я вважаю что поставлені перед собою Завдання, в Цій курсовій работе Повністю Розкрити и бездоганно Виконання.
Список використаної літератури
1.Карованова Т.П. Інформатика: основи алгорітмізації та програмування.- К.: Генеза, 2006.- 286 с.
2.Культін Н.Б. основи прорамірованія в Delphi 7 raquo ;.- СПб.: БХВ-Петербург
.Фаронов В.В. Delphi 6. Навчальний курс.- М.: Видавець Молгачева С.В., 2001. - 672 с.
.Гофман В.Е., Хомоненко А.Д. Delphi 6. -СПб.: БХВ-Петербург, 2001. - 1152с.
.Фаронов В.В., Шумаков П.В. Delphi 5. Керівництво розробника баз даних.- М.: Нолидж, 2000. - 640 с.
.Глінській Я. М., Анохін В. Є., Ряжська В. А. Паскаль. TurboPascal i Delphi. Навчальнійпосібнік.- Львів: СПД Глинський, 2007. - 192 с.
.Демків І. І., Каленюк П. І., Клюйнік І. І., Кравець І. Т., Петрович Р. Й. Основи програмування в середовіщі Турбо-Паскаль.
.Сорокін А.В.Delphi. Розробка баз даних.- СПб: Питер, 2005. - 477 с.
.Сухарев М. Delphi. Повне керівництво. Включаючи версію 2010 (+ DVD).
М: Наука і техніка, 2010. - 1035 с.
10.Баженова І.Ю. Delphi 7.самоучітель програміста.- М .: КУДИЦ-ОБРАЗ, +2004.- 448 с.
Інформаційні ресурси
1. # justify gt; Додаток А
Лістінг програми
unit SysUrrU ;, Messages, SysUtils, Variants, Classes, Graphics ,, Forms, Dialogs, StdCtrls, ComCtrls, Grids, ExtCtrls;=class (TForm)//форма: TLabel;// поле дня назви: TButton;// кнопка: TButton ;: TStringGrid;// поле вводу даних: TBevel;// панель: TLabel;// поле дня назви: TLabel;// поле дня назви: TButton;// кнопка: TEdit ;: TLabel;// поле дня назвіXxxClick (Sender: TObject);// Процедура введення та розв язанняReshiClick (Sender: TObject);// Процедура введення та розв язанняFormShow (Sender: TObject);// Процедура введення та розв язанняMatricaDrawC (Sender: TObject);// Процедура введення та розв язанняButtOKClick (Sender: TObject);// Процедура введення та розв язанняFormCreate (Sender: TObject);// Процедура введення та розв язання
{Private declarations}: boolean; {Public declarations} ,,,: cardinal;// метод розв язання: real ;: array [1..20] of real;,: array [1..20,1..21] of real ;;= Ввести число невідоміх 1 lt; n lt; 21 ;= Система погано обумовлена ?? + # 13 + # 10 + Можливі 2 варіанти: + # 13 + # 10 + 1 - Немае РІШЕНЬ. Laquo; + # 13 + # 10 + 2 - Число безлімітне laquo ;;= Error !!! ';: TForm1 ;: file of byte ;: file of byte ;: string;
{$ R * .dfm} TForm1.FormCreate (Sender: TObject);// введення даних:=2;:=False;:=. raquo ;;:=Left;:=Height;:=Width; .Enabled:=True; .Caption:= OK raquo ;;
//// TForm1.FormShow (Sender: TObject) ;. SetFocus; .Caption:= raquo ;; (Owner) ;;
////
сTForm1.MatricaDrawC (Sender: TObject);// складання велечин, j: cardinal; .Cells [0,0]:= Aij raquo ;; j:=1 to n do Matrica.Cells [j, 0]:= + IntToStr (j) ;. Cells [n + 1,0]:= Bi raquo ;; j:=1 to n do Matrica.Cells [0, j]:= + IntToStr (j); i:=1 to n doj:=1 to n + 1 do Matrica.Cells [j, i]:=FloatToStrF (ao [i, j], ffFixed, 3,3) ;;
//// TForm1.ReshiClick (Sender: TObject);// Додавання велечин можливо і Неможливо, j, k: cardinal ;: string;
//n:=StrToInt (ReadN.Text); (n lt; 2) or (n gt; 20) then.MessageBox (t1, ErrCap, MB_ICONERROR or MB_OK) ;; i:=1 to n doj:=1 to n + 1 doMatrica.Cells [j, i]= then a [i, j]:=0 else [i, j]:=StrToFloat (Matrica.Cells [j, i]); Exception.Create ( Неможливо величина A ( + IntToStr (i) + , + IntToStr (j) + ) ) ;;; [i, j]:=a [i, j] ;;
//k:=1 to n - 1 do:=Abs (a [k, k]); i:=k + 1 to n dom lt; Abs (a [i, k]) then:=Abs (a [i, k]); j:=k to n + 1 do [1]:=a [k, j]; [k, j]:=a [i, j]; [i , j]:=x [1] ;;;; m lt; 1E - 20 thenException.Create (t2) ;; i:=k + 1 to n do:=a [i, k]; j:=k to n +1 do [i, j]:=a [i, j] -a [k, j] * m/a [k, k] ;;; Abs (a [n, n]) lt; 1E - 20 thenException.Create (t2) ;; [n]:=a [n, n + 1]/a [n, n]; k:=n - 1 downto 1 do:=0; j:=k + 1 to n do m:=m + a [k, j] * x [j]; [k]:=(a [k, n + 1] -m)/a [k, k] ;;:= raquo ;; j:=1 to n do S:=S + X + IntToStr (j) + = + FloatToStrF (x [j], ffFixed, 3,3) ;. Caption:=S ;;
//// TForm1.XxxClick (Sender: TObject) ;. Terminate ;;.
