Построение графика функции, Построение графика тригонометрических функций с ограниченными значения Опции

[Mad Dam]

Здравствуйте уважаемые программисты, не могли бы вы помочь мне сделать курсовую работу на Delphi. Преподаватель дал 2 задания для курсовой, которые нужно делать каждую отдельно.
1. Построить графики функций: arctg(x), где x-ограниченно.
2. Вычислить с заданной точностью значения тригонометрической функции sin(x).
Помогите пожалуйста, а то я сам мало что знаю, а написать эти 2 программы нужно уже в ближайшее время. Буду очень признателен.

[Mad Dam]

uses Series;
procedure TForm1.Button1Click(Sender: TObject);
 var
    x, y: Integer;
   s, t: TLineSeries;
 begin
   with Chart1 do
   begin
    Title.Text.Clear;
     Title.Text.Add('Заголовок для Chart');
    s := TLineSeries.Create(nil);
    s.Clear;
    s.Title := 'Chart Line 1';
    s.ParentChart := Chart1;
    s.XValues.DateTime := True;
     begin
     x:=-1;
        while x<=1 do
        begin
     s.AddXY(x , arctg(x) );
          x:=x+0.1;
          end;
     end;
   end;
 end.

вот то что я сделал, но у меня эта програма не работает...пожалуйста помогите в чем проблема...

Сообщение отредактировано: Lapp - 21.12.2008 8:53