Построить график функции y=x/(x^3-2x+1)

[Richik123]

Построить график функции y=x/(x^3-2x+1)

Не рисует график,в чём проблема?
График.rar

[type_Oleg]

Все рисует. Только надо уметь читать, то что пишется в Дельфы в сообщениях об ошибках. И исправлять.
Вот фрагмент кода, где исправить

 img2.Canvas.LineTo(ClientWidth,y0);
// end;  - на фига этот end? Чему end ?
// рисуем график
img2.canvas.pen.color:=clred;
img2.canvas.pen.Width:=1;
x:= StrToInt(edt1.text);
 y:=-x/(x*x*x-2*x+1); // минус 
img2.canvas.Moveto(Trunc(x*mash)+x0, Trunc(y*mash)+y0); //  ** 
repeat
  x:= x+0.1;       //  а не 0,1 ! Учите синтаксис 
   y:=-x/(x*x*x-2*x+1);
    img2.Canvas.LineTo(Trunc(x*mash)+x0, Trunc(y*mash)+y0);
  until x>=10  ;  //   а не => 
end;

И еще надо добавить проверку знаменателя на равенство 0. Ибо делить на 0 Delphi не умеет. Поэтому кстати, при начальном x=1 будет аварийный выход.

PS И лучше вместо StrToInt - StrToFloat. Вот тут

 x:= StrToFloat(edt1.text);

Можно будет ввести например 1.1, как раз получится что-то этакое...