2015-10-16
1606
Создайте событие OnClick для кнопки bGraph и внесите в него следующий код
procedure TForm1.bGraphClick(Sender: TObject);
var
i: Integer;
x,y: Double;
begin
Series1.Clear;
for i:= 0 to 10 do
begin
x:= 0.1*i;
y:= Sqrt(2+Sqr(x));
Series1.AddXY(x,y,RealToStr(x,1),clRed);
end;
end;
Комментарий к коду приведен ниже.
| Код этой процедура похож на код вывода таблицы значений функции. Здесь используются такие же переменные, которые имеют тот же что и для п. 2.2 смысл. Оператор Series1.Clear; очищает график перед началом его построения. Оператор Series1.AddXY(x,y,RealToStr(x,1),clRed); добавит в цикле одну точку на график, используя вычисленное через аргумент x значение функции y. Оператор RealToStr(x,1) выведет под осью x надпись, которая дает значение аргумента в данной точке, параметр clRed указывает на то, что кривая графика должна иметь красный цвет (Red). С помощью цикла на график будет выведено 11 точек, которые компонент Chart соединит плавной кривой. |
Запустите программу и щелкните на кнопке bGraph. При этом будет построен график функции, указанной в задании по тем точкам, которые указаны в сетке Sg. (рис. 2.6).
Рис. 2.6. График функции y(x)
Видно, что кривая на графике окрашена в красный цвет, при этом выделены точки, через которые походит эта кривая.
