Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Math;

Type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit3: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var

a,b,x,y,eps: real;

i: integer;

Label

m1,m2;

function f(x:real): real;

Begin

f:= IntPower((x -1),3);

end;

Begin

eps:= StrToFloat(Edit3.text);

m1: x:= (a + b)/2;

if (f(x)=0) then goto m2;

if (f(x)*f(a)<0)

then b:= x

Else

a:= x;

if (abs(a-b)>eps) then goto m1;

m2:

label4.caption:= FloatToStr(x);

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

Close;

end;

end.

Рис. 24. Результаты расчета по методу дихотомии

Содержание работы

Запустить программную среду Delphi 7. Ознакомиться с подходами в использовании численных методов различного типа задач. Воспроизвести примеры, приведенные выше. По указанию преподавателя выбрать вариант из Приложения И. По завершении работы результаты сохранить в файл.