Область определения для построения графика

[ChelseaFan]

Иследовать область определение и построить график функций 1/x^2-3x+1
Вот мой пример. Не компилируется. На until x<=10; ругается

program graphica;
uses graph;
 var
 s,x,y:real; x0,y0,x1,y1:integer;
 a,b:integer;
Function f(x:real): real;
 begin
f:=x/(x*x)-3*x+1;
end;
 begin
  a:=detect;
  initgraph(a,b,'');
  Setcolor(2);
  x1:=getmaxX; y1:=getmaxY;
  x0:=getmaxX; y0:=getmaxY div 2;
  line(0,y0,x1,y0); line(x0,0,x0,y1);
  x:=-10;
 repeat
 if x<>2 then
 begin
  s:=f(x);
  putpixel(x0+round(x*20), y0-round(y*20) ,8);
  x:=x+0.5;
  end;
  else x:=x+0.5;
  until x<=10;
  repeat
  until keypressed;
  closeGraph;
 end.

[Prisioner]

в строке перед else x:=x+0.5; убери ";".

[ChelseaFan]

Уже убрал. все равно ошибка ругается на унтил x<=10; и f(x)

[Mad_Cat]

until x<=10;

заменить на

until x>10;

if x<>2 then

должно быть

 if x<>0 then

и зачем вот это

s:=f(x);

если оно нигде не используется!

[ChelseaFan]

Mad_Catспасибо но вот что но вот что то не то выдает

[Anton-Top]

могу на С++ написать

[ChelseaFan]

Anton-Top спасибо но мне нужно на Паскале))

[Stilet]

Максимум что могу предложить так это поправь до такого:

uses graph,crt;
 var
 s,x,y:real; x0,y0,x1,y1:integer;
 a,b:integer;
Function f(x:real): real;
 begin
f:=x/(x*x)-3*x+1;
end;
 begin
  a:=detect;
  initgraph(a,b,'');
  Setcolor(2);
  x1:=getmaxX; y1:=getmaxY;
  x0:=getmaxX; y0:=getmaxY div 2;
  {line(0,y0,x1,y0); line(x0,0,x0,y1);}
  x:=-10;
  moveto(0,y0);
 x:=1;
 repeat
 if x<>2 then
 begin
  y:=f(x);
  lineto(x0+round(x), y0+round(y*100));
  x:=x+0.5;
  end
  else x:=x+0.5;
  until x>10;
  repeat
  until keypressed;

  closeGraph;
 end.

Это на глаз.

[ChelseaFan]

Stilet Спасибо, а масштаб для осей можете привести пример?

[Anton-Top]

тебе нужно найти шаг по оси х и подгонать масштаб по оси у?