PASCAL: Вычислить уравнение с Рядом тейлора

[ОльгаНик]

Само задание выглядит так :
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от xнач до xкон с шагом x с точностью Эпсилон. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции количество просуммированных членов ряда.

hufyestres.png

[newerow1989]

function f(x:real):real;
const c=0.00000001;
var n,fa:integer;
    s0,s1:real;
begin
   Result:=1;
   s1:=1;
   fa:=1;
   n:=1;
   Writeln('n     s');
   Repeat
      s1:=-s1*x*x;
      fa:=fa*n;
      s0:=s1/fa;
      Result:=Result+s0;
      Writeln(n,'    ',Result:5:15);
      n:=n+1;
   Until Abs(s0)<c;
end;

const dx=0.1;
      x0=0.1;
      x1=1;
var x:real;
begin
   x:=x0-dx;
   Repeat
      x:=x+dx;
      Writeln('x = ',x:2:1);
      f(x);
      Writeln;
   Until x>=x1;
   Readln;
end.

Сойдет?