Графики функций

@Ноффичок · Регистрация: 14.07.2009

Author24 — интернет-сервис помощи студентам

Подскажите как нарисовать графики функций y=sqrt(sqrt(sqrt(sqr(x)))+sqr(sin(x)),
y=sqrt(x+2)+sin(x)*cos(X) c шагом h=0.01 и промежутком х e [ab]
Єсли у вас єсть время, то пожалуйста сделайте программу.

@Messenger of G. · 14.07.2009, 21:07

Рисование графиков при помощи TChart.
Две серии — две соответствующие функции.
По условию график должен быть плоским, делаем плоские серии и в Object Inspector ставим LinePen—Width = 2 для более четкого, ясного графика.
Другие настройки делаем в окне-свойстве (двойной клик по объекту TChart)
Процедура-событие кнопки:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var v:integer; x:real;
var a,b,h:real;
begin
    Series1.Clear;
    Series2.Clear;
    a:=StrToFloat(Edit1.Text);
    b:=StrToFloat(Edit2.Text);
    h:=StrToFloat(Edit3.Text);
    x:=a;
    while x<b do
        begin
            x:=x+h;
            Series1.Add(sqrt(sqrt(x)+sqr(sin(x))));
            Series2.Add(sqrt(x+2)+sin(x)*cos(X));
        end;
end;

@Ноффичок · 15.07.2009, 15:33 **[ТС]**

А как поменять надпись оси координат(В компонете TChart)?
Модна как поставить масштаб по y,x?

@Ноффичок 1 / 1 / 1 Регистрация: 14.07.2009 Сообщений: 74
		1
	Графики функций 14.07.2009, 20:13. Показов 2380. Ответов 2 Метки нет (Все метки) Подскажите как нарисовать графики функций y=sqrt(sqrt(sqrt(sqr(x)))+sqr(sin(x)), y=sqrt(x+2)+sin(x)*cos(X) c шагом h=0.01 и промежутком х e [ab] Єсли у вас єсть время, то пожалуйста сделайте программу. 0

@Ноффичок 1 / 1 / 1 Регистрация: 14.07.2009 Сообщений: 74
	15.07.2009, 15:33 [ТС]	3
	А как поменять надпись оси координат(В компонете TChart)? Модна как поставить масштаб по y,x? 0

Графики функций

Решение