График (Паскаль)

[Алиса.]

Помогите пожалуйста...В графическом режиме найти(выполнить) функцию
y=x*arctan(x)-ln(sqrt(1+sqr(x)))
У меня есть програмка, но преподаватель сказал что очень уж простой график выводится...может ошибка где? И еще нужно чтобы выводились названия осей X,Y, которых у меня в программе нет. Надеюсь поможете.

Вот моя программа:

program p3;
uses crt,graph;
var s,x,y:real;
    gd,gm,i:integer;
BEGIN
     clrscr;
     gd:=detect;
     initgraph(gd,gm,'C:\TP\BGI');
     x:=-320;
     writeln('y=',y:7:2);
     writeln('dlya prosmotra grafika nazhmite klavishu');
     setcolor(lightblue);
     line(0,240,640,240);
     line(320,0,320,480);
     while x<=320 do
           begin
              y:=x*arctan(x)-ln(sqrt(1+sqr(x)));
              putpixel(round(x),round(y),lightcyan);
              x:=x+0.5;
           end;
     readln;
     closegraph;
END.

[Gambler]

Ну по идее все правильно, если принять, что мировые координаты равны экранным. Так что перевод сделать надо. И рисовать лучше не точками, а линиями.

[Алиса.]

Дело в том, что эту программу не я писала...и не имею представления как её правильно переделать