Реферат Програмний продукт, який здійснює вирішення завдань з дисципліни "Чисельні методи"

a-1 downto 1 do: = c-1; j: = e to b do [c]: = otvet [c]-masst [i, j] * otvet [d];: = d-1;;: = e-1;: = c +1;;: = 1; i : = st downto 1 do ('Немає рішення!', mtinformation, [mbok], 0);;; EZeroDivide do ('Немає рішення!', mtinformation, [mbok], 0);;; Eoverflow do ('Помилка обчислення!', mtinformation, [mbok], 0);;; EConvertError do ('Дані введені некоректно!', mtinformation, [mbok], 0);;;;; TForm3.StringGrid1KeyPress (Sender: TObject; var Key: Char); key of

'0 '.. '9':;

# 8: (stringgrid1.Col> 0) and (length (stringgrid1.Cells [stringgrid1.Col, stringgrid1.Row]) = 0) then.Row: = stringgrid1.Row-1;. Col: = stringgrid1.Colcount-1;;;

# 13: stringgrid1.Col

'.', ',': (length (stringgrid1.Cells [stringgrid1.Col, stringgrid1.Row]) = 0) or

(pos (',', stringgrid1.Cells [stringgrid1.Col, stringgrid1.Row])> 0) then: = chr (0);: = chr (44);;

'-': length (stringgrid1.Cells [stringgrid1.Col, stringgrid1.Row]) <> 0 then: = chr (0);;: = chr (0);;;.

Unit1_3;// Метод Гауса (Модуль 3)

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

TForm4 = class (TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form4: TForm4; Unit1_1, Unit1_2;

{$ R *. dfm} TForm4.Button1Click (Sender: TObject);. Close;. Close;. Close;; TForm4.Button2Click (Sender: TObject);. Close;;.

Unit17;// Метод Ейлера

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, PARSING;

TForm33 = class (TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

Edit5: TEdit;

Button1: TButton;

Button2: TButton;

Label6: TLabel;

Edit6: TEdit;

Button3: TButton;

procedure Button1Click (Sender: TObject);// виконати розрахунок

procedure Button2Click (Sender: TObject);// вихід

procedure Edit1KeyPress (Sender: TObject; var Key: Char);// контроль введення

procedure Edit2KeyPress (Sender: TObject; var Key: Char);// даних

procedure Edit3KeyPress (Sender: TObject; var Key: Char);

procedure Edit4KeyPress (Sender: TObject; var Key: Char);

procedure Edit5KeyPress (Sender: TObject; var Key: Char);

pr...