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

y"> a, b: integer; Unit1_2;

{$ R *. dfm} TForm2.Button2Click (Sender: TObject);: integer;: = strtoint (edit1.Text);: = strtoint (edit2.Text); (a> 15) or (a <1) then

messagedlg ('Кількість рівнянь не повинно перевищувати 15.', mtinformation, [mbok], 0);

end (b> 15) or (b <1) then

messagedlg ('Кількість коефіцієнтів в рівнянні не повинно перевищувати 15.', mtinformation, [mbok], 0);

enda <> b then

messagedlg ('Кількість коефіцієнтів в рівнянні має збігатися з кількістю рівнянь.', mtinformation, [mbok], 0);

# 8, '0 '.. '9':;

# 13: edit2.SetFocus;: = chr (0);;; TForm2.Edit2KeyPress (Sender: TObject; var Key: Char); key of

# 8, '0 '.. '9':;

# 13: button2.SetFocus;: = chr (0);;;.

Unit1_2;// Метод Гауса (Модуль 2)

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

Dialogs, StdCtrls, Grids;

TForm3 = class (TForm)

Label1: TLabel;

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

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

private

{Private declarations}

public

{Public declarations}

end;

Form3: TForm3;

otvet: array [0 .. 25] of real;

f: integer; Unit1_1, Unit1_3;

{$ R *. dfm} TForm3.Button2Click (Sender: TObject);. close;. Close;; TForm3.Button1Click (Sender: TObject);, j, c, e, d, ind, st, p: integer;: array [0 .. 25,0 .. 25] of real;: array [0 .. 25,0 .. 25] of real;. Label1.Caption: =''; i: = 1 to a doj : = 1 to b +1 do [i, j]: = strtofloat (form3.stringgrid1.Cells [j-1, i]);;;: = 1;: = 1; i: = st to b +1 do [st, i]: = maskof [st, i]/maskof [st, ind];; i: = st +1 to a doj: = st +1 to b +1 do [i, j]: = maskof [ i, j]-maskof [i, st] * masst [st, j];;;: = st +1;: = ind +1; ind> a;: = st-1;: = 1; i: = st downto 1 do [p]: = masst [i, ind];: = p +1;;: = 2;: = b; i: = ...