Question

Написать подпрограмму для нахождения значения числа е с помощью ряда с
заданной точностью (e+1+1/1!+1/2!+1/3!+... 1/n! +... in fotran

Answer 1

program Expon

Real(8) :: s = 1, f = 1, eps

Integer :: i = 1

Read *, eps

do while(abs(1 / f) > eps)

   f = f * i

   s = s + 1 / f

   i = i + 1

enddo

Print *, 'e = ', s

end Program Expon