ряд Тейлора

[misery24-7]

сидел делал прогу на ряд Тейлора,вот само задание и формула:



Написал ее вобщем,но значение считает она не верное.Не являюсь сильным знатоком математики,поэтому прошу помощи.Код прилагаю

program demo;
var
  xn, xk, h, x, t, e, s, c,k: real;
  n:integer;
  begin
  repeat
    write('Vvedite nachalo i konec intervala xn,xk, xk>xn: ');
    {Запрашиваем у пользователя отрезок, на котором будем рассчитывать функцию}
    readln(xn, xk);
  until (xk > xn);
  repeat
    write('vvedite shag tabulacii h>0,h<', xk - xn:0:1, ' h= ');
    {Запрашиваем шаг, пока он не удовлетворит условиям: больше нуля и меньше
     рассматриваемого отрезка}
    readln(h);
  until(h > 0) and (h < xk - xn);
  repeat
    write('vvedite tochnost(0,1) e= ');
    {Запрашиваем точность расчета, пока она не станет в пределах (0;1)}
    readln(e);
  until(e > 0) and (e < 1);
  writeln('Tabulirovanie funkcii y=e^(-x)');
  writeln('Na intervale [', xn:0:1, ';', xk:0:1, '] s shagom ', h:0:1);
  writeln('---------------------------');
  writeln('|   x   |    S    |   n   |');
  writeln('---------------------------');
  x := xn; {становимся в начало отрезка}
  while x <= xk + h / 2 do {перебираем все иксы на данном отрезке}
  begin
    s := 0;
    n := 0;
    c := 1;
    t := 1;
    k:=1;
    while abs(t / c) > e do {считаем функцию по формуле,пока элемент не станет
    меньше точности}
    begin
      n := n + 1;
      s := s + (t / c)*(k);
      k:=-k;
      t := t * (-x);
      c := c * n;
    end;
    writeln('|', x:4:1, ' |', s:8:4, ' |', n:8, ' |');
    x := x + h;
  end;
  writeln('---------------------------');
end.

[BDA]

Все никак не сделаете?

Ошибка состоит в том, что вы ввели параметр k, отвечающий за знак, но знак уже учтен.

[misery24-7]

BDA, да чет все не могу сдать ее
препод говорит что неправильно она считает,сам не понимаю почему
вот убрал параметр k,так должно быть?

while x <= xk + h / 2 do {перебираем все иксы на данном отрезке}
  begin
    s := 0;
    n := 0;
    c := 1;
    t := 1;
    while abs(t / c) > e do {считаем функцию по формуле,пока элемент не станет
    меньше точности}
    begin
      n := n + 1;
      s := s + (t / c);
      t := t * (-x);
      c := c * n;

[BDA]

Да, так. А что именно не нравится преподу?
Числа получаются неправильные?

[misery24-7]

BDA,ввожу такие значения:
начало отсчета - 1
конец - 6
шаг табуляции - 2
точность - 0.001
потом прога считает,вылезает табличка:
x - значение аргумента
S - значение функции
n - количество просуммированных членов ряда

---------------------
| x | S | n |
----------------------
| 1.0 | 0.3681 | 7 |
| 3.0 | 0.0500 | 13 |
| 5.0 | 0.0063 | 18 |
| 7.0 | 0.0007 | 24 |
------------------------

и препод мне говорит,мол,подставь свой первый икс(1.0) в функцию(то есть e^(-1),как в формуле),должно получаться -2.7, а у меня там 0.3681,типа неправильно

[misery24-7]

все,я уже сам запутался,уже считаю неправильно,все вроде сходится :DDDD