24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 933  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0703化学 +11 妮妮ninicgb 2026-03-27 11/550 2026-03-29 06:45 by 544594351
[考研] 321求调剂 +7 璞玉~~ 2026-03-25 8/400 2026-03-29 06:41 by 544594351
[考研] 289求调剂 +13 新时代材料 2026-03-27 13/650 2026-03-29 01:16 by 544594351
[考研] 081200-11408-276学硕求调剂 +6 崔wj 2026-03-26 6/300 2026-03-29 01:11 by hanserlol
[考研] 0703 化学 求调剂,一志愿山东大学 342 分 +4 Shern—- 2026-03-28 4/200 2026-03-29 00:47 by 544594351
[考研] 一志愿武汉理工,总分321,英一数二,求老师收留。 +7 nnnnnnn5 2026-03-25 7/350 2026-03-29 00:32 by 我是小康
[考研] 数一英一271专硕(085401)求调剂,可跨 +7 前行必有光 2026-03-28 8/400 2026-03-28 23:22 by 小木虫tim
[考研] 本科双非材料,跨考一志愿华电085801电气,283求调剂,任何专业都可以 +6 芝士雪baoo 2026-03-28 7/350 2026-03-28 21:40 by zhq0425
[考研] 085404求调剂,总分309,本科经历较为丰富 +4 来财aa 2026-03-25 4/200 2026-03-28 07:41 by 棒棒球手
[考研] 求调剂 +8 张zz111 2026-03-27 9/450 2026-03-28 03:41 by fmesaito
[考研] 一志愿 西北大学 总分282 英语一62 求调剂 +7 18419759900 2026-03-25 8/400 2026-03-27 16:38 by 18419759900
[考研] 316求调剂 +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[考研] 312求调剂 +9 上岸吧ZJY 2026-03-22 13/650 2026-03-27 11:24 by sanrepian
[考研] 求调剂,一志愿 南京航空航天大学大学 ,080500材料科学与工程学硕 +4 @taotao 2026-03-26 5/250 2026-03-27 08:10 by hypershenger
[考研] 352求调剂 +4 大米饭! 2026-03-22 4/200 2026-03-26 16:40 by 不吃魚的貓
[考研] 0854电子信息求调剂 324 +4 Promise-jyl 2026-03-23 4/200 2026-03-25 11:36 by Sugarlight
[考研] 材料调剂 +3 iwinso 2026-03-23 3/150 2026-03-25 11:29 by greychen00
[考研] 086003食品工程求调剂 +6 淼淼111 2026-03-24 6/300 2026-03-25 10:29 by 3Strings
[考研] 340求调剂 +5 话梅糖111 2026-03-24 5/250 2026-03-25 06:53 by ilovexiaobin
[考研] 300分,材料,求调剂,英一数二 +5 超赞的 2026-03-24 5/250 2026-03-24 21:07 by 星空星月
信息提示
请填处理意见