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

MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);. HintColor: = clwhite;. HintPause: = 700;. Hint: = 'Редактор формул';;

end.

unit Unit18;// Метод половинного поділу

interface

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

Dialogs, StdCtrls, Parsing;

TForm34 = class (TForm)

Label1: TLabel;

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Label4: TLabel;

Edit3: TEdit;

Label5: TLabel;

Edit4: TEdit;

Label6: TLabel;

Edit5: TEdit;

Button1: TButton;

Button2: TButton;

Edit2: TEdit;

Button3: TButton;

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

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

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

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

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

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

procedure Edit3KeyPress (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;

Form34: TForm34; Unit20_1;

{$ R *. dfm} TForm34.Button2Click (Sender: TObject);. Close;; TForm34.Button1Click (Sender: TObject);, b, c, aa, bb, xn, fa, fb, fx: extended ;, ffa, ffb, fxn: string;: integer;: = strtofloat (edit2.Text);// діапазон: = strtofloat (edit1.Text);: = strtofloat (edit4.Text);// точність: = edit3. Text;// рівняння: = '(' + f + ')'; ((a> 999) or (b> 999)) or ((a <-999) or (b <-999)) then// перевірка діапазону ('Інтервал перевищує допустимий діапазон!', mtinformation, [mbok], 0); c = 0 then// перевірка точності ('Точність повинна бути виду:' + # 13 + '0, 1; 0,01; 0,001 і т . д. ', mtinformation, [mbok], 0);

else

begin

// уточнюємо знак введених коренів a і b

ffa: ='';: =''; i: = 1 to length (f) do (f [i] = 'x') or (f [i] = 'X') then

messagedlg ('Дійсні корені мають однакові знаки', mtinformation, [mbok], 0);

endfa> 0 then: = a;: = b;: = b;: = a;;;

// уточнюємо кореньabs (aa-bb)> c do: = (aa + bb)/2; i: = 1 to length (f) do (f [i] = 'x') or (f [ i] = 'X') then: = fxn + floattostr (xn);: = fxn + f [i];;;: = getformulavalue (fxn);: =''; fx> 0 then begin: = xn;: = xn;;;

// виводимо ответ.Text: = floattostr (xn);; ;//обробка ісключенійEZeroDivide do// ділення на нуль ('Немає рішення!', mtinformation, [mbok], 0);;; Eoverflow do ...