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

ocedure Edit6KeyPress (Sender: TObject; var Key: Char);

procedure Button3Click (Sender: TObject);

procedure Button3MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{Private declarations}

public

{Public declarations}

end;

Form33: TForm33; Unit20_1;

{$ R *. dfm} TForm33.Button1Click (Sender: TObject);, b, h, y, yy: extended;: integer;, fx: string;: = strtofloat (edit1.Text);// діапазон : = strtofloat (edit2.Text);: = strtofloat (edit4.Text);// крок: = edit3.Text;// вираз: = '(' + f + ')';: = strtofloat (edit6.Text); // y0 ((a> 9999) or (b> 9999)) or ((a <-9999) or (b <-9999)) then// перевірка діапазону ('Інтервал перевищує допустимий діапазон!', mtinformation, [mbok ], 0); (h = 0) then// перевірка кроку ('Введіть допустимий крок!', mtinformation, [mbok], 0);: = 0; a <= b + h/2 do// вирішення

y: = y + yy;

fx: ='';// очищення змінної під формулу

for i: = 1 to length (f) do (f [i] = 'x') or (f [i] = 'X') then: = fx + floattostr (a);// формування формули ( f [i] = 'y') or (f [i] = 'Y') then: = fx + floattostr (y);// формування формули: = fx + f [i];;;;: = getformulavalue ( fx);// обчислення отриманої формули: = yy * h;: = a + h;// наступний крок;. Text: = floattostr (y);// виводимо відповідь; ;//обробка ісключенійEZeroDivide do// ділення на нуль ('Немає рішення!', mtinformation, [mbok], 0);;; Eoverflow do ('Помилка обчислення!', mtinformation, [mbok], 0);;; EConvertError do ('Дані введені некоректно!', mtinformation, [mbok], 0);;;;; TForm33.Edit1KeyPress (Sender: TObject; var Key: Char); key of

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

# 13: edit3.SetFocus;

'.', ',': (length (edit1.text) = 0) or

'-': length (edit1.Text) <> 0 then: = chr (0);;: = chr (0);;; TForm33.Edit2KeyPress (Sender: TObject; var Key: Char); key of

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

# 13: edit1.SetFocus;

'.', ',': (length (edit2.text) = 0) or

'-': length (edit2.Text) <> 0 then: = chr (0);;: = chr (0);;; TForm33.Edit5KeyPress (Sender: TObject; var Key: Char); : = chr (0);; TForm33.Edit3KeyPress (Sender: TObject; var Key: Char); key of

# 13: edit4.SetFocus;;; TForm33.Edit4KeyPress (Sender: TObject; var Key: Char); key of

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

# 13: edit6.SetFocus;

'.', ',': (length (edit4.text) = 0) or

TObject);. Close;; TForm33.Edit6KeyPress (Sender: TObject; var Key: Char); key of

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

# 13: button1.SetFocus;

'.', ',': (length (edit6.text) = 0) or

'-': length (edit6.Text) <> 0 then: = chr (0);;: = chr (0);;; TForm33.Button3Click (Sender: TObject);. showmodal;; TForm33 . Button3...