Составить сумму ряда с заданной точностью Е для вводимого значения x |x|<1.В программе следует осуществить проверку правильности ввода исходной информации. Вычисление очередного члена ряда в цикле осуществляется с использованием рекуррентных соотношений, экономно используя число операции для вычислений.
При решении задачи вычисления ряда нужно исключить только один оператор цикла и нельзя использовать стандартные функции в цикле.
Вычисление ряда заканчивается, если модуль очередного слагаемого меньше заданной точности.
На экране следует напечатать:
-значение суммы ряда;
-последнее учтенное в сумме слагаемое;
-число учтенных слагаемых.

Для оценки правильности решения предусмотреть вычисление по готорой формуле с выдачей результата с большой точностью!

Вот, что у меня получилось:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
e = 0.0001;
var
x, result, d : extended;
i : integer;
begin
x := 0.4; { readln? }
result := 1;
d := 1;
i := 0;
while( abs(d) > e ) do begin
i := i + 2;
d := - d * x * x / (i * (i-1));
result := result + d;
end;
writeln( result:15:10, ' ', cos(x):15:10 );
writeln( d : 15 : 10);
writeln( i div 2);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.


Проверьте правильно ли?