легкая задача - график параболы

[gylayko]

Нужно построить параболу вот из этого рисунка рисунок.png с прямоугольником все понятно, там используем процедуру rectangle! график параболы y=(x*x)/-2 но я не очень понимаю, как ее построить. Помогите пожалуйста!
да, мне все равно, можно на Паскаль или на С++, там принцип одинаковый!

[denisbrain]

     y:=(-1)*X*X+20

[gylayko]

а вместе с циклом? то есть полноценный код рисования параболы!

[denisbrain]

Сообщение от gylayko

а вместе с циклом? то есть полноценный код рисования параболы!

  cx,cy:integer; // каординаты центра осей
  dx,dy:real; // умножители x,y
implementation

{$R *.dfm}

// процедура перерисовки стрелки Cn:Tcanvas; - холст для рисования (Form1.canvas; Form1.Image1.Canvas)
// x1,y1 начало стрелки
// X2,y2 - конец стрелки
// fhs - длина стрелочки по умолчанию 25
// a - угол стрелки по умолчанию 30
// фаункция перерисовки осей каординат
procedure DrawPole(Cn:Tcanvas);
var x,y:integer;
Procedure DrawStrelka(Cn:Tcanvas;x1,y1,x2,y2:integer;fhs:integer=25;a:integer=30);
  var ugol:real;
begin
     Cn.MoveTo(x1,y1);
     Cn.LineTo(x2,y2);
     if (abs(x2-x1)+abs(y1-y2))>0 then begin
     if (x2-x1)<>0 then
     ugol:=arctan(((y2-y1)/((x2-x1))))
     else ugol:=pi/2;
     if x2-x1>0 then ugol:=ugol+pi;
     if (y2-y1>0) and ((x2-x1)=0) then ugol:=-pi/2;
     Cn.LineTo(round((x2+(cos(ugol-30*pi/180)*fhs))),round(y2+(sin(ugol-30*pi/180)*fhs)));
     Cn.MoveTo(x2,y2);
     Cn.LineTo(round((x2+(cos(ugol+30*pi/180)*fhs))),round(y2+(sin(ugol+30*pi/180)*fhs)));
  end;
end;

begin

// рисуем  ось ординат  (Y)
   DrawStrelka(cn,cx,Cn.cliprect.bottom-30,cx,10,10);
// рисуем  ось абсцисс (Х)
   DrawStrelka(cn,0,cy,Cn.cliprect.Right-30,cy,10);
   // деления между каординат
   cn.TextOut(cx+5,cy+5,'0');
   for x:=0 to ((Cn.cliprect.Right-30) div 10 )-3 do begin
     cn.MoveTo(x*10,cy-10);
     cn.lineTo(x*10,cy+10);
     if x mod 5 = 0 then begin
       cn.TextOut(x*10+2,cy-20,inttostr(round(((x*10 ) -cx) / dx ) ));
       cn.MoveTo(x*10,cy-15);
       cn.lineTo(x*10,cy+15);

     end;
     // подписываем точки по Х

   end;
   for y:=0 to ((Cn.cliprect.Bottom-30) div 10)-3 do begin
     cn.MoveTo(cx-10,30+10*y);
     cn.lineTo(cx+10,30+10*y);
    if y mod 5 = 0 then begin
     cn.TextOut(cx+2,y*10,inttostr(round((cy-y*10)/dy)));
     cn.MoveTo(cx-15,30+10*y);
     cn.lineTo(cx+15,30+10*y);
     end;

     // подписываем точки по Y
   end;

end;
procedure TForm1.FormCreate(Sender: TObject);
var y,x:integer;
begin
   dx:=15;
   dy:=2;
   cx:=form1.Image1.Canvas.cliprect.right div 2;
   cy:=200;

  DrawPole(form1.Image1.Canvas);
  for x:=-30 to 30 do begin
     y:=round(x*x*(-1))+50;
     if x=-30 then
     form1.Image1.Canvas.MoveTo(round((x*dx+cx)),(cy-round(y*dy)));
     form1.Image1.Canvas.lineTo(round((x*dx+cx)),(cy-round(y*dy)));
  end

end;

программа на Delphi для рисовании Параболы