Построить график функции

[Amid1990]

условие задачи
Построить график функции, нарисовав систему координат
y=1/2*arctg(x+3*pi/4)
Вот что вышло

Program D8;
uses GraphABC;
var x,y:integer;
begin
line(500,0,500,500);
line(0,250,1000,250);
for x:=0 to 200 do
begin
y:=2*arctan(x+3*pi/4);
setPixel(x+500,250-y,RGB(0,0,0));
x:=x+1
end
end.

Не работает так как возникает ошибка
попытка присвоить переменой integer выражение типа real
То есть выходит что координаты точки не могут быть дробными числами, но после расчета функции y получается дробным числом.
Как решить эту проблему?

[l1pton17]

Надо округлять. Если все значения y имеют дробную часть с совпадающей целой частью(13.3434, 13.4523, и т.д), то в таком случае надо "масштабировать".

[Amid1990]

Округлить не получится, в итоге выходит почти прямая линия

[Serge_Bliznykov]

1) для начала решите В ЧЕМ задаётся X ? в градусах или радианах?
(поверьте мне, график от этого будет отличаться)

2) так не пойдёт?

Program D8;
uses GraphABC;
var x,y: real;
begin
SetWindowSize(1000,500);
line(500,0,500,500);
line(0,250,1000,250);
x := -500;
while x <= 100 do begin
  y:=2*arctan(x+3*pi/4)*50;
  setPixel(round(x*10)+500,250-round(y),RGB(0,200,0));
  x:=x+0.01;
end
end.

[Amid1990]

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

1) для начала решите В ЧЕМ задаётся X ? в градусах или радианах?
(поверьте мне, график от этого будет отличаться)

2) так не пойдёт?

Program D8;
uses GraphABC;
var x,y: real;
begin
SetWindowSize(1000,500);
line(500,0,500,500);
line(0,250,1000,250);
x := -500;
while x <= 100 do begin
  y:=2*arctan(x+3*pi/4)*50;
  setPixel(round(x*10)+500,250-round(y),RGB(0,200,0));
  x:=x+0.01;
end
end.

Ну вроди график правильные вырисовывается.
Только не пойму как он вырисовывается зачем y*50 а x*10?

[l1pton17]

"масштабируем" график функции)