24小时热门版块排行榜    

查看: 876  |  回复: 14
当前主题已经存档。

grant.tgb

木虫 (小有名气)

在我这里没任何问题啊

★ ★
woshilsh(金币+2,VIP+0):谢谢您的热心解答,期待您常来!
屏幕输出结果是:

4926277576697053184
Press any key to continue

==========
我加了一些输出语句,用于检查,但不影响程序的对错啊。

program digui
integer(kind=8)::fac
open(16,FILE='out.dat')
print*,fac(34)
close(16)
end program digui
recursive function fac(n) result(fac_rst)
integer,intent(in)::n
integer(kind=8)::fac_rst
if(n==0)then
fac_rst=1
else
fac_rst=n*fac(n-1)
end if
write(16,*) n, fac_rst
end function
11楼2008-11-27 15:12:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

stereochemistry

写法有问题,换个写法,呵呵.....
12楼2008-11-29 10:37:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)

还是不能运行,郁闷!清高手指点写法错在哪里?谢谢!!
13楼2008-11-29 11:33:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cuicoffee

铁杆木虫 (小有名气)

大多数机器整型数最多是用4个字节存储,也就是kind=4,只有特殊机器(Alpha系统)才能用8字节(也就是kind=8)存储.
grant.tgb  改数据类型做法可以,但是你得不到一个数各个位的具体值,这是浮点数特性造成的.
另,grant.tgb  用的是什么机器,或有无什么方法扩大计算机存储整型数的字节数,

[ Last edited by cuicoffee on 2008-11-29 at 15:48 ]
业精于勤?行成于思?概率多大?
14楼2008-11-29 15:40:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)

多谢高手指点!问题解决了
15楼2008-11-30 08:55:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jianchaoyv 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见