3
2
0
新人
program main implicit none real(kind=4)::s=0 integer(kind=4)::m=1 integer i,j do i=1,10 do j=1,i m=m*j end do s=s+real(1/real(m)) end do write(*,*)s stop end
使用道具 举报
农村外出务工人员
736
4
大师
program main implicit none real :: s = 0 integer i,j,m do i=1,10 m = 1 !//这里很重要 do j=1,i m=m*j end do s=s+1.0/m end do write(*,*)s end program main
楚香饭 发表于 2023-7-24 08:24 [mw_shl_code=fortran,true]program main implicit none real :: s = 0
250
宗师
kundada11 发表于 2023-8-2 19:11 新手提问,我想知道为什么m=1的赋值必须写在循环体中?
necrohan 发表于 2023-8-2 23:21 因为阶乘从1开始
楚香饭 发表于 2023-8-3 08:55 因为每次阶乘,都从1开始
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给注册后积极发言的新人
颁发给为Fcode网站捐赠的网友
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
颁发给完成“有规有矩”任务的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-23 18:48
Powered by Tencent X3.4
© 2013-2024 Tencent