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.
Иследовать область оперделение и построить график функций. |