Итерационный циклический процесс на Фортране

[svetashikalova]

Пожалуйста, помогите решить задачу на программирование итерационного циклического процесса на Фортране
Само выражение

Погрешность Е: 0.0001

[InfStudent]

И где ваши мысли?

[svetashikalova]

Код: [Выделить]

real x/5/,s,s2,p,f
        eps=0.0001
        n=0
        s=0
        x=1.2
        f=1
2      s2=x**(4*n+1)/f
        s=s+s2
        write(*,*) n,f,x,s2,s
        n=4*(n+1)+1
        f=f*n
        if(s2.gt.eps) go to 2
        write(*,*) s
        pause
        stop
        end
Вылетает ошибка
run-time error M6104 : Math
-floating point error : overflow
 Пожалуйста, подскажите, что неправильно

[svetashikalova]

Очень прошу помочь

[InfStudent]

Я к ссожалению с Фортраном не знаком, но возможно у Вас есть переполнение в ходе вычислений