[deniks]

дошёл наверное до 3/4 работы. При построении графика, система координат у делфи не такая ж как у паскаля, пытался и минус добавлять и ничего не хочет строить(

Код:

for i:=0 to 10 do
                   begin
                      a1[i]:=Amax/10*i;
                      form1.Image1.Canvas.moveTo(Xc-2,YC-round(a1[i]*ly));
                      form1.Image1.Canvas.LineTo(Xc+2,YC-round(a1[i]*ly));
                      str(a1[i]:2:3,sd1);
                      form1.Image1.Canvas.TextOut(Xc-46,YC-round(a1[i]*ly),sd1);
                   end;