Здравствуйте уважаемые программисты, не могли бы вы помочь мне сделать курсовую работу на C++ или Delphi. Преподаватель дал задание для курсовой и я не знаю как делать((..в общем я - ноль...помогите пожалуйста сделать.
1. Построить графики функций: arctg(x), где x-ограниченно.
Построение графиков функций с ограниченными значениями
Посмотрите хелп по компоненту TChart. Он предназначен как раз для построения графиков.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
спасибо. вот у меня получился вполне рабочий код:
procedure TForm1.Button1Click(Sender: TObject);
var
x, y: double;
s, t: TLineSeries;
begin
with Chart1 do begin
Title.Text.Clear;
Title.Text.Add('График функции');
s := TLineSeries.Create(nil);
s.Clear;
s.Title := 'Arctg(x)';
s.ParentChart := Chart1;
s.XValues.DateTime := True;
x:=-1;
while x<=1 do begin
s.AddXY(x , arctan(x) );
x:=x+0.0001;
end;
end;
end;
подскажите пожалуйста зачем x,y заданы через double и для чего и зачем тут задано это: s.XValues.DateTime := True
procedure TForm1.Button1Click(Sender: TObject);
var
x, y: double;
s, t: TLineSeries;
begin
with Chart1 do begin
Title.Text.Clear;
Title.Text.Add('График функции');
s := TLineSeries.Create(nil);
s.Clear;
s.Title := 'Arctg(x)';
s.ParentChart := Chart1;
s.XValues.DateTime := True;
x:=-1;
while x<=1 do begin
s.AddXY(x , arctan(x) );
x:=x+0.0001;
end;
end;
end;
подскажите пожалуйста зачем x,y заданы через double и для чего и зачем тут задано это: s.XValues.DateTime := True