[virgin34]

помогите подправить код, нашел то что нужно, но не совсем. на TImage рисуется график квадратного уравнения A*x^2 + B*x + C только с целыми числами, при подстановке десятичных чисел в A,B,C ошибка несовместимости типов переменных. И можно как нибудь нарисовать деления осей? т.е. разметить их

Код:

Procedure TForm1.Button1Click(Sender: TObject);
var i : Integer; // Переменая счётчика
    y, x : Real; // Координаты x и y
    xc, yc : Integer; // Координаты центра О
    A, B, C, D : Real; // Коэффициенты квадратного трёхчлена
begin
// Укажем некоторые значения
xc := Round(Img.Width * 0.5);
yc := Round(Img.Height * 0.5);
x := - Img.Width;
A := strTOint(edit1.Text);
B := strTOint(edit2.Text);
C := strTOint(edit3.Text);

 With Img.Canvas Do
  Begin
  // Отрисовка координатных осей.
    FillRect(ClientRect);
    MoveTo(10, yc);
    LineTo(Round(Img.Width - 10), yc);
    MoveTo(xc, 10);
    LineTo(xc, Round(Img.Height - 10));

  // Построение графика.
  For i := 1 To 500000 Do
    Begin
      x := x + 0.01;
      y := A * x * x + B * x + C;
      If (y < 200) And (y > -200 ) Then
        Img.Canvas.Pixels[Round(x * 10) + xc, yc - Round(y)] := ClBlue;
    End;
  End;
end;