Построение графика функции y = x^2 - Pascal ABC

Формулировка задачи:

Построить график функции y = x^2 на интервале [-3,3].
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; h := 0.0005;
  while x <= xmax do begin
    y := sqrt(x*x);
    xe := a + round(k*x);
    ye := b - round(k*y);
    SetPixel (xe, ye,RGB(255,0,0));
    x := x + h;
  end;
 
end.
Помогите закруглить ее

Код к задаче: «Построение графика функции y = x^2 - Pascal ABC»

textual
y := sqrt(x*x);

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ