Помогите построить график функции y=x^2 на промежутке [-3; 3]

[Лика483]

Вот построение осей, как продолжить построение самой параболы?

uses graphABC;
const a=300; b=200; k=300;
xmin=-3; xmax=3;
var x, y, h:real;
xe, ye,w:integer;
begin
w:=round ((xmax-xmin)*k);
Line (a-300, b, a+w, b);
Line (a, 0, a, 2*b);
x:=xmin;
end.

[Лика483]

Вот построение осей, как продолжить построение самой параболы?

uses graphABC;
const a=300; b=200; k=300;
xmin=-3; xmax=3;
var x, y, h:real;
xe, ye,w:integer;
begin
w:=round ((xmax-xmin)*k);
Line (a-300, b, a+w, b);
Line (a, 0, a, 2*b);
x:=xmin;
end.

Построить нужно через Паскаль АВС.

[testtest]

а в том паскале нет функций translate и scale? которые должны бы помочь преобразовать систему координат пикселей в ск [-3; 3] х [0; 9] сдвигом и растяжением.