کد فرترن برنامه ای که عدد n رو میگیره و مجموع معکوس فاکتوریل های اعداد 1 تا عدد n رو محاسبه و چاپ میکنه.مثلا اگر
n=3 کد سری زیر رو محاسبه و چاپ میکنه:
s=(1/1!)+(1/2!)+(1/3!) =1.666666
-----------------------------------------------------------------------------------------------------------------------------------------
- PROGRAM fuct
- IMPLICIT NONE
- INTEGER::n,t,i
- REAL::s
- READ*,n
- t=1
- s=0
- DO i=1,n
- t=t*i
- s=s+(1/REAL(t))
- END DO
- PRINT*,s
- END