Построить график функции ax^2+bx+c

[sonyazxc]

Написать программу для построения графика функции ax^2+bx+c , где пользователь задает коэффиценты a,b,c сам. Желательно без сложных команд.

[Вадим Мошев]

Самостоятельно что пытались сделать? Есть наработки? Покажите ваш код, ошибки.

[digitalis]

Пользователю хорошо бы задать интервал, на котором изобразить этот график, а то уползет в бесконечность.
А чё тако без "сложных команд" ? Команды бывают в ассемблере, армии и в футболе, а в Паскале существуют операторы. И как это - умножение, деление - не слишком сложные команды, или ограничиться сложением-вычитанием ?
Чтобы получить нормальный ответ, желательно включать голову при формулировании вопроса.

[newerow1989]

На Delphi

procedure TForm1.Button1Click(Sender: TObject);
const k=20;
var a,b,c,x,y:real;
    i,j,x0,y0:integer;
begin
   a:=StrToFloat(Edit1.Text);
   b:=StrToFloat(Edit2.Text);
   c:=StrToFloat(Edit3.Text);
   x0:=Label1.Width div 2;
   y0:=Label1.Height div 2;
   With Label1.Canvas do
   begin
      MoveTo(0,y0);
      LineTo(Label1.Width,y0);
      MoveTo(x0,0);
      LineTo(x0,Label1.Height);
      For i:=-x0 div k to x0 div k do
      begin
         MoveTo(i*k+x0,y0-5);
         LineTo(i*k+x0,y0+5);
         If i<>0 then
            TextOut(i*k+x0-5,y0+6,IntToStr(i));
      end;
      For j:=-y0 div k to y0 div k do
      begin
         MoveTo(x0-5,j*k+y0);
         LineTo(x0+5,j*k+y0);
         If j<>0 then
            TextOut(x0+6,y0-j*k-7,IntToStr(j));
      end;
      For i:=0 to Label1.Width do
      begin
         x:=(i-x0)/k;
         y:=a*x*x+b*x+c;
         j:=Round(y0-y*k);
         If i=0 then
            MoveTo(i,j) else
            LineTo(i,j);
      end;
   end;
end;

[digitalis]

Непонятно лишь, почему площадкой для рисования выбрано именно Label, а не, к примеру, Image ? Для оригинальности ?