{ Вычисляется значения функции f2} step:=x*x*x; {Начальное значение степени Х} f2_1:=X*x*x; {Начальное значение функции f2_1} k1:=0;
repeat {Итерационный цикл для точности 10-2} inc(k1); step:=step*x*x*x; {Наращивается степень} slag:=step/((k1+1)*(3*k1+1)); {Считается очередное слагаемое} f2_1:=f2_1+slag; {Считается значение f2_1} until abs(slag)<=eps1; {Выход из цикла, когда слагаемое становится меньше точности 10-2}
f2_2:=f2_1; k2:=k1;
repeat {Итерационный цикл для точности 10-3} inc(k2); step:=step*x*x*x; {Наращивается степень} slag:=step/((k2+1)*(3*k2+1)); {Считается очередное слагаемое} f2_2:=f2_2+slag; until abs(slag)<=eps2; {Выход из цикла, когда слагаемое становится меньше точности 10-3}
f2_3:=f2_2; k3:=k2;
repeat {итерационный цикл для точности 10-4} inc(k3); step:=step*x*x*x; {Наращивается степень} slag:=step/((k3+1)*(3*k3+1)); {Считается очередное слагаемое}
f2_3:=f2_3+slag; until abs(slag)<=eps3; {Выход из цикла, когда слагаемое становится меньше точности 10-4}