Оператор цикла с постусловием

[vlad kuznetsov]

Вычислите с точностью eps>0 бесконечную сумму для выбранного значения x. x=1.

[Stilet]

с точностью eps>0

Что прям с точностью до целого??

[vlad kuznetsov]

ну да, так в условие написано.

[vlad kuznetsov]

выручайте очень нужно

[Leshii]

То что просили =)

Program sum;
Uses crt;
const eps=0;
var
x, k, fact: integer;
S, F: real;
begin
clrscr;
K:=1;S:=0;fact:=1;
while F>eps do begin
    if k mod 2 = 0 then // написал проверку на парность для степени, так как натуральный логарифм с отрицательного числа не берется.
    F:=exp((k+1)*ln(-1))*(exp(2*k*ln(x))/((2*fact)*(2*k)));
    s:=s+F;
    fact:=fact*k;
    K:=k+1;
    writeln(s);
end;
readln;
end.

Спрашиваю то, что спрашивали до меня. Та ли точность?