以循环来计算1/1！+1/2!+1/3!+...+1/10!

可乐。

!以循环来计算1/1！+1/2!+1/3!+...+1/10!

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program main

02	implicit none

03	real(kind=4)::s=0

04	integer(kind=4)::m=1

05	integer i,j

06

do i=1,10

07

do j=1,i

08

m=m*j

09

end do

10	s=s+real(1/real(m))

11

end do

12	write(*,*)s

13

stop

14

end

！程序运行出来是infinity，这个咋办呀，无限不循环小数

楚香饭

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program main

02	implicit none

03	real :: s = 0

04	integer i,j,m

05

do i=1,10

06	m = 1 !//这里很重要

07

do j=1,i

08

m=m*j

09

end do

10

s=s+1.0/m

11

end do

12	write(*,*)s

13	end program main

可乐。

楚香饭 发表于 2023-7-24 08:24
[mw_shl_code=fortran,true]program main
  implicit none
  real :: s = 0

原来如此！多谢

kundada11

新手提问，我想知道为什么m=1的赋值必须写在循环体中？

necrohan

kundada11 发表于 2023-8-2 19:11
新手提问，我想知道为什么m=1的赋值必须写在循环体中？

因为阶乘从1开始

楚香饭

kundada11 发表于 2023-8-2 19:11
新手提问，我想知道为什么m=1的赋值必须写在循环体中？

因为每次阶乘，都从1开始

kundada11

necrohan 发表于 2023-8-2 23:21
因为阶乘从1开始

懂了，谢谢！

kundada11

楚香饭 发表于 2023-8-3 08:55
因为每次阶乘，都从1开始

谢谢！