[lmikle]

Сообщение от Justfast

Помогите пожалуйста переделать готовый код. Но что бы в нем использовались операторы цикла "while do" а не "repeat until".

Инвертируй условие.

Код:

 While (abs(sk*(2*k*k+1))>e) do begin
    k:=k+1;
    sk:=-sk*x*x/((2*k-1)*fact(2*k));
    s:=s+(2*k*k+1)*sk;
    writeln('chlen[',k,'] = ',sk*(2*k*k+1):0:5);
  end;