Построить график в Паскале.

[LEX.darnica]

построить график
Y=Х*ln(x)/(x+2) на промежутке от 1 до 2
с сеткой, стрелочками,нумерацией.

[kommunist]

А что у тебя самого не получается?

[kommunist]

Вот тебе сетки стрелочки нумерация и оси координат
график попробуй сам достроить.

program Zadacha_1;
uses
  crt, graph;
const
  ED = 15;{Kolichestvo tochek po osi x na odnoi storone}
var
  Driver, Mode       : Integer;
  dx, i, xC, yC,
  xI, yI             : Integer;

  x, y               : Real;
{_______________________________________}
  begin
  ClrScr;
{Vvod dannih}

  writeln('Vvedite x: ');
  ReadLn(x);

{Raschet y po dannomu x}
  if x < 0 then
    writeln('v tochke s argumentom = ', x:4:4,
            ' znachenie functsii ne opredeleno');
    else
    y:= Õ*ln(x)/(x+2);
    readkey;
    exit;
  end;
{______________________________________}
{initializatsia grafiki}
  Driver := Detect;
  initGraph(Driver, Mode, '');
  SetTextStyle(2, 0, 3);
{______________________________________}
  {Chertim osi koordinat}
  xC := GetMaxX div 2;
  yC := GetMaxY div 2;
  Line(0, yC, xC * 2, yC);
  Line(xC, 0, xC, yC * 2);
{______________________________}
{Vicherchivaem delenia}
  dx := xC div ED;
  xI := xC - ED * dx;
  repeat
    Str((xI - xC) div dx, s);
    Line(xI, yC - 2, xI, yC + 2);

    if xI <> xC then
      OutTextXY(xI - 3, yC + 5, s);
    Inc(xI, dx);
  until xI > xC * 2;

  yI := yC - ED * dx;
  repeat
    Str((yC - yI) div dx, s);
    Line(xC - 2, yI, xC + 2, yI);

    if yI <> yC then
      OutTextXY(xC + 5, yI - 3, s);
    Inc(yI, dx);
  until yI > yC * 2;
{______________________________________}
{Chertim graphic}


end.

[LEX.darnica]

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

А что у тебя самого не получается?

спасибо. получаеться осталось только график?