Question

Pascal ABC.
Написать программу, чтобы построить график функции y=x2 на интервале [-3,3]

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Uses
 graphAbc;

Var
 x1,y1,x2,y2,i:integer;
begin
maximizewindow;
line(0,300,windowwidth,300);
line(300,0,300,windowheight);
y2:=300;
x2:=300;
setpencolor(clblue);
 for i:=0 downto -3 do
  begin
   x1:=x2;
   y1:=y2;
   x2:=i*5+300;
   y2:=(-sqr(x2-300)+300);
   line(x1,y1,x2,y2);
  end;
y2:=300;
x2:=300;
 for i:=0 to 3 do
  begin
   x1:=x2;
   y1:=y2;
   x2:=i*5+300;
   y2:=(-sqr(x2-300)+300);
   line(x1,y1,x2,y2);
  end;
end.

Answer 2

можно не линию а putpixel делать и будет проще

Answer 3

//Pascal ABC.NET v3.1 сборка 1219

Uses
 graphAbc;
const
    c = 300;

var
    i: integer;
    x, y: real;

begin
    Line(0, c, WindowWidth, c);
    Line(c, 0, c, WindowHeight);
    
    for i := -3 * c to 3 * c do
    begin
        x := i / c;
        y := x * x;
        PutPixel(round(25 * x) + c, c - round(25 * y), clBlueViolet);
    end;
end.