бит имейдж или канва? чтоподходит лутше?

[electrovolk]

ривет всем.

Вопрос

Я пишу курсак и дойше до того, когда мне нада нарисовать график функции но эта функция в цикле и мне нада чтоб она вивела кожное значение в точку на графике.

Есть какие то мисли? Или сделать через tchar, но как? Подскажите плиз.

Код ниже

Function y1(x:real):real;    
   begin    
      y1:=cos(x)-(4*x)+1;
   end;

Function y2(x:real):real;    
   begin    
      y2:=-sin(x)-4;
   end;

Function y3(x:real):real;    
   begin
      y3:=-cos(x);
   end;

procedure TForm1.Button1Click(Sender: TObject);    
   begin    
      begin    
         a1:=StrToFloat(Edit1.Text);
         b1:=StrToFloat(Edit5.Text);
         d:=StrToFloat(Edit4.Text);
         begin
           if (abs(y1(a1)*y3(b1))>d)then
              w:=a1 else w:=b1;
         end;
         x:=w-(y1(w)/y2(w));
         while (abs(y1(w))<d) do
           w:=x;
      end;
      xr1:=x;            
      Label1.Caption:='метод касательных='+FloatToStr(xr1);    
   end;

зарание СПС)

[Stilet]

Или сделать через tchar, но как?

Кинь на форму Чарт, создай в нем три серии, и заполни их

 begin    
         a1:=StrToFloat(Edit1.Text);
         b1:=StrToFloat(Edit5.Text);
         d:=StrToFloat(Edit4.Text);
while a1<=b1 do begin
 Series1.Addxy(a1,y1(a1));
 Series2.Addxy(a2,y1(a2));
 Series3.Addxy(a3,y1(a3));
 a1:=a1+d;
end;
   end;