Пример написания программы. Построить график функции (с помощью компонента TChart), которая приведена ниже

Построить график функции (с помощью компонента TChart), которая приведена ниже. В качестве f(x) использовать по выбору (компонент TRadioGroup): cos(x), x² или sin(x). Значения: у, диапазон (Xнач - Хкон) и шаг dX вводятся с клавиатуры.

Примерный интерфейс программы приведен на рис. 7.7, а фрагмент программы (только функция и обработчик Button1Click()) - в Листинге 7.2.

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

Листинг 7.2

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

Function f(x, y: real; RadioGroup: TRadioGroup): real;

// фунция

var fx: real;

Begin

case RadioGroup.ItemIndex of

0: fx:= cos(x);

1: fx:= sqr(x);

2: fx:= sin(x);

end;

if fx > 0.5 then f:= sqr(x+y)-sqrt(y);

if (fx > -0.5) and (fx <= 0.5) then f:= sqr(x+y)+power(x*y,3);

if fx < -0.5 then f:= sqr(x+y)+ln(y);

end;

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

procedure TForm1.Button1Click(Sender: TObject);

// построить

Var

Xn, Xk, Y, x, dX: real;

Begin

Y:=StrToFloat(Edit1.Text); // получаем у

Xn:=StrToFloat(Edit2.Text); // получаем Хнач

Xk:=StrToFloat(Edit3.Text); // получаем Хкон

dX:=StrToFloat(Edit4.Text); // получаем шаг dХ

Series1.Clear;

x:= Xn;

while x <= Xk do begin

Series1.AddXY(X, f(x,y,RadioGroup1), '', clRed);

x:= x + dX;

end;

end;

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