График функции на паскале!

[Милания]

помогите решить: исследовав области определения и выбрав координатные оси, масштаб, построить график функции: y=1+2/x+3/x*x.

[Sparkman]

uses graph;
var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  x,y:integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin
       {640x480}
       x:=1;
       y:=480-round(1+2/x+3/x*x);
       while (x<640)and(y>0) do
       begin
            moveto(x,y);
            inc(x);
            y:=480-round((1+2/x+3/x*x)*79);
            lineto(x,y);
       end;
       Readln;
       CloseGraph;
  end else Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

по х отмасштабируйте

[Милания]

Sparkman, а это можно другим способом решить? просто я тока первый курс и такого не проходили, мне нужно решение, так сказать, по азам Паскаля....не могли помочь?

[Sparkman]

Что именно вы не проходили?
Написанный выше код просто проще некуда. Или вам нужно решение в текстовом виде? Тогда зачем в задаче слово "масштаб"?
Все что я добавил, это:

       x:=1;
       y:=480-round(1+2/x+3/x*x);
       while (x<640)and(y>0) do
       begin
            moveto(x,y);
            inc(x);
            y:=480-round((1+2/x+3/x*x)*79);
            lineto(x,y);
       end;

остальное скопипастил из справки Турбо Паскаля для команды InitGraph (Ctrl+F1).

ПС: Студент - это не школьник - он должен самообучаться, все преподаватель на паре не расскажет.

[Sasha_Smirnov]

Сообщение от Милания

...по азам Паскаля...

3/x*x=3 (при x<>0)

Сообщение от Sparkman

3/x*x=3 (при x=1)

А также при x=-1 и вообще любом x, кроме нуля.

Это азы даже не паскаля — а употребления скобок.

[Sparkman]

Сообщение от Sasha_Smirnov

3/x*x=3 (при x<>0)

3/x*x=3 (при x=1)