Помогите пожалуйста сделать задания по курсовой работе.

[Gangzta]

спасибо большое) это будет так выглядеть?) или нет...
for x := 0 to 77 do
begin
y := Random(100);
x:=-1;
while x<=1 do
begin
s.AddXY(x , arctg(x) );
x:=x+0.1;
end;
end;

[Sm1Le]

наверно не знаю ... =)))

[Sm1Le]

Сообщение от Gangzta

for x := 0 to 77 do
begin
y := Random(100);

а это зачем ? - удали это .. и ничего не произойдет ...

[Gangzta]

вот так будет?)
begin
x:=-1;
while x<=1 do
begin
s.AddXY(x , arctg(x) );
x:=x+0.1;
end;
end;

[Sm1Le]

типа того пробуй .... =))

[Gangzta]

сейчас попробую)

[Gangzta]

вот получился хороший код))
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;
end.

скажите пожулуйста зачем тут x и y заданы через double...и для чего нужно s.XValues.DateTime := True...

[diplomm]

Курсовые,дипломные работы любой сложности и дисциплины.Быстро, не дорого,качественно!подробно на сайте http://diplomm.my1.ru или по почте Diplomm@bk.ru