应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】请教fortran90高手！！
152/2返回列表上一页12
查看: 876  |  回复: 14
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

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
赞一下(10人) 回复此楼
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 的主题更新
152/2返回列表上一页12
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭