Иследовать область оперделение и построить график функций. Опции

[Credo]

Иследовать область определение и построить график функций 1/x^2-3x+1. Как подогнать под осей x и y. Дело в том что график функций впустую чертица на черном фоне. мне нужно как вот в таком

uses graph;
var gd,gm:integer;
    x0,y0:integer;
    x,y,dx:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
x:=-20;
dx:=0.001;
repeat
if abs(x*x-3*x+1)>0.001 then
begin
putpixel(x0+round(x*20) , y0-round(y*20) , 8);
x:=x+0.5 end else
x:=0.5; until x<10;
while x<=20 do
 begin
  y:=x/(x*x-3*x+1);
  putpixel(x0+round(x*20),round(y0-round(y*20)),12);
  x:=x+dx;
 end;
readln;
closegraph;
end.

[Client]

ну а как разбить отрезок на равные части знаешь?
так и тут, через нужное расстояние (в пикселях) выводишь полоску и число
и поищи по форуму, не один раз делалось

Сообщение отредактировано: Client - 3.12.2010 17:46

[-TarasBer-]

Название темы лол

[Credo]

Спасибо, написал если кому надо будет

uses graph;
var gd,gm:integer;
    x0,y0:integer;
    x,y,dx:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
putpixel(x0,y0,8);
line(x0,y0-300,x0,y0+300);
line(x0-300,y0,x0+300,y0);
x:=-20;
dx:=0.001;
repeat
if abs(x*x-3*x+1)>0.001 then
begin
putpixel(x0+round(x*20) , y0-round(y*20) , 8);
x:=x+0.5 end else
x:=0.5; until x<10;
while x<=20 do
 begin
  y:=x/(x*x-3*x+1);
  putpixel(x0+round(x*20),round(y0-round(y*20)),12);
  x:=x+dx;
 end;
readln;
closegraph;
end.