Developing.ru

Разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд.
f(x)=1+x^2/2!+x^4/4!+x^6/6!+...+x^2k/2k!+...
вот решение:

Program Task2;
uses CRT;
var dx,x,x0,xk,i,k:integer;
a,e,f:real;
Begin
CLRSCR;
write('Введите начальное значение x: ');
readln(x0);
repeat
write('Введите конечное значение x (x конечное > x начальное): ');
readln(xk);
until (xk>x0);
repeat
write('Введите шаг x (x>0): ');
readln(dx);
until (dx>0);
repeat
write('Введите точность вычислений e (e>0): ');
readln(e);
until (e>0);
writeln(' N x f(x) N члена ряда');
x:=x0;
repeat
f:=0; {сумма в начальный момент}
k:=0; {порядковый номер первого члена ряда}

repeat {цикл для расчета функции f(x)}
if k=0 then a:=1
else a:=a*-sqr(x)/((2*k+1)*(2*k+2));
f:=f+a; {f(x)}
k:=k+1;
until (abs(a)<e);

writeln(' ',1+x-x0,' ',x,' ',f:7:3,' ',k);
x:=x+dx; {увеличиваем x на 1 шаг}
until (x>xk);
readln;
end.

А в чем проблема? На первый взгляд похоже на правду