График функции 10/(1+sqr(x));

[ofenod]

Программа рисует график функции y:=10/(1+sqr(x)) на отрезке [-3,5].

program pr6v10;
uses GraphABC;
var
y1,y2:integer;
x1,x2:integer;

x:integer;
y:real;

a:integer;
begin

MoveTo(270,300);
setpenstyle(psDot);


for x:=-3 to 5 do begin
y:=10/(1+sqr(x));
y1:=Round(y);
lineto (x+300,y1+300);
end;


end.

График получается очень маленьким. Как сделать, чтобы рисунок выглядел крупнее?

[rubius2008]

Добавить масштабные коэффициенты по осям

const kx=10; ky=20;
...
lineto (x*kx+300,y1*ky+300);
...

конечно лучше реализовать автомасштабирование, но тогда нужно будет найти макс. и мин. значения (x и y) и к ним привязать масштабные коэффициенты.