Построить график функции

[eoln]

Немного ошибся с суммой, считал с 1, а не с 0. График правильный, но очень некрасивый

uses graph, crt;
var
  kx, ky, x, e, slag: real;
  sum: array[-1..250] of real;
  i, j: integer;
  gd, gm: integer;
function fact(a: byte): longint;
begin
  if a > 1 then fact := a * fact(a - 1)
  else fact := 1
end;
begin
  write('x, e == '); readln(x, e);
  i := -1;
  sum[i] := 0;
  repeat
    inc(i);
    slag := exp((2*i-1)*ln(x)) / (fact(2*i+1)*(2*i-1));
    if i mod 2 = 0 then slag := -slag;
    if abs(slag) < e then break;
    sum[i] := sum[i-1] + slag;
    writeln(i:5, slag:15:8, sum[i]:15:8)
  until false;
  readln;

  gd := detect;
  initgraph(gd, gm, '');
  line(0, getmaxy div 2, getmaxx, getmaxy div 2);
  line(getmaxx div 2, 0, getmaxx div 2, getmaxy);
  kx := getmaxx / 3 / i;
  ky := getmaxy / 3 / sum[i-1];
  moveto(getmaxx div 2, getmaxy div 2);
  for j := 0 to i-1 do
  begin
    setcolor(random(5)+5);
    lineto(getmaxx div 2 + round(kx*j),
           getmaxy div 2 - round(ky*sum[j]));
  end;
  readln;
  closegraph
end.

Для правильной работы скопировать в папку с турбо Паскалем

[Horknee]

Он опять пишет, что нет файла graph.tpu а когда я удаляю строчку uses и запускаю снова, он пишет error 3: unknown identifier и переносит курсор на сторку gd :=detect;

[eoln]

Файлы graph.tpu и egavga.bgi (иногда другой) нужны обязательно. Скачай нормальный Turbo Pascal

[Horknee]

Спасибо, теперь ошибок нет, но не понимаю, где можно увидеть график после ввода x и e

[eoln]

Мда... после вывода таблицы на экран жмём ENTER, далее будет график. Сразу скажу, что на 2-3-их шагах приращение функции мало по отношению к приращению аргумента, поэтому график будет почти прямой.

[madmot]

Как пример рисование графика функции (улитка Паскаля)