Пример написания программы. Задание: Написать программу, которая с помощью компонента TChart строит

Задание: Написать программу, которая с помощью компонента TChart строит

график функции

на отрезке (Хн - Хк) с шагом dX.

Значения Хн, Хк, dX вводятся с клавиатуры в компоненты TLabeledEdit.

Вычисление f(x) для любого Х оформить в виде подпрограммы-функции.

Интерфейс программы приведен на рис. 7.7, а текст - в листинге 7.1.

Рис. 7.7. Интерфейс программы.

Листинг 7.1

unit Gr_ChartU;

Interface

Uses

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

Dialogs, ExtCtrls, jpeg, StdCtrls, Buttons, TeeProcs, TeEngine, Chart,

Series;

Type

TForm1 = class(TForm)

XXn: TLabeledEdit;

XXk: TLabeledEdit;

ddX: TLabeledEdit;

Chart1: TChart;

BitBtn1: TBitBtn;

Series1: TLineSeries;

Image1: TImage;

procedure BitBtn1Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

End;

Var

Form1: TForm1;

Implementation

{$R *.dfm}

//==========================================

Function f(x: real): real;

// вычисление функции f(x)

Begin

if x < -1 then Result:= exp(x);

if (x > -1) and (x < 0) then Result:= 1/exp(x) + exp(5*ln(x+1));

if x > 1 then Result:= exp(-x);

End;

//==========================================

procedure TForm1.BitBtn1Click(Sender: TObject);

// построить

Var

Xn, Xk, dX, X: real;

Begin

Xn:=StrToFloat(XXn.Text);

Xk:=StrToFloat(XXk.Text);

dX:=StrToFloat(ddX.Text);

Series1.Clear;

X:=Xn;

While X<=Xk do begin

Series1.AddXY(X, f(X),'', clRed);

X:=X+dX;

End;

end;

//---------------------------------------------

End.