Графический Паскаль.Построение функции.

[enji4ka]

Здравствуйте, очень нуждаюсь в вашей помощи. Мне нужно построить в графическом режиме данную функцию:
y=(7/(x-1))-(2/(1+x)) так, чтобы значения у по модулю не превышали 15 и там, где х=-1 и х=+1 должны быть вертикальные линии штрихами. Очень прошу, помогите! Координатные оси уже есть:

begin  { Do graphics }
   gd:=detect;
   x0:=100;y0:=240;r:=0;
   initgraph(gd,gm,' ');
   outtextXY(290,20,'y');
   outtextXY(550,250,'x');
   SetTextStyle(2,0,2);
   outtextXY(315,242,'0');
   line(320,10,320,470);
   SetColor(12);
   line(307,30,307,450);
   line(333,30,333,450);
   SetColor(15);
   for i:=1 to 33 do line(x0-1+i*13,238,x0-1+i*13,243);
   for i:=1 to 33 do line(318,19+i*13,323,19+i*13);
   line(320,10,330,20);
   line(320,10,310,20);
   line(x0,y0,550,y0);
   line(550,y0,540,y0-10);
   line(550,y0,540,y0+10);
   Readln;
   CloseGraph;

Пожалуйста, помогите!

[Pein95]

за такое задание врятли ктото бесплатно возмётса...

[enji4ka]

неужели оно настолько сложное???(((

[Pein95]

оно не очень сложное ну тут гемороя много...

[Stilet]

Паскаля под рукой нет, но предположу что как-то так:

uses graph;
var x0,y0,r,gd,gm,i,x,y:integer;
begin  { Do graphics }
   gd:=detect;
   x0:=100;y0:=240;r:=0;
   initgraph(gd,gm,' ');
   outtextXY(290,20,'y');
   outtextXY(550,250,'x');
   SetTextStyle(2,0,2);
   outtextXY(315,242,'0');
   line(320,10,320,470);
   SetColor(12);
   line(307,30,307,450);
   line(333,30,333,450);
   SetColor(15);
   for i:=1 to 33 do line(x0-1+i*13,238,x0-1+i*13,243);
   for i:=1 to 33 do line(318,19+i*13,323,19+i*13);
   line(320,10,330,20);
   line(320,10,310,20);
   line(x0,y0,550,y0);
   line(550,y0,540,y0-10);
   line(550,y0,540,y0+10);
   SetColor(red);
   for x:=10 to 240 do begin
    y:=round(7/(x-1)-2/(x+1));
    lineto(x+x0,y+y0);
   end;
   Readln;
   CloseGraph;
end.

[enji4ka]

Не работает, к сожалению(((Там должно показывать гиперболу, а показывает - прямую(

[Stilet]

Масштабировать надо...
Попробуй

y:=round(7/(x-1)-2/(x+1))*240;

Типа на шаг в координатной сетке...

P.S. Вот так пробуй:

   for x:=10 to 240 do begin
    y:=round(7/(x-1)-2/(x+1)*240);
    if x=10 then moveto(x+x0,y+y0) else
    lineto(x+x0,y+y0);
   end;

[enji4ka]

Всё равно не работает(((

[Novenkaja]

проостите а где во всём этом коде можно увидеть то самое метсо,где пишется,Ючто значение не превышает по модулю 15?