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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】请教fortran90高手！！
北京石油化工学院2026年研究生招生接收调剂公告
152/2返回列表上一页12
查看: 933  |  回复: 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
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿211 初试270分 求调剂 +8 谷雨上岸 2026-03-23 9/450 2026-03-29 01:00 by 我是小康
[考研] 322求调剂 +7 宋明欣 2026-03-27 7/350 2026-03-28 21:27 by sanrepian
[考研] 275求调剂 +10 Micky11223 2026-03-25 14/700 2026-03-28 15:48 by Micky11223
[考研] 0703一志愿9，初试成绩：338，四六级已过，有科研经历，求调剂！ +4 Zuhui0306 2026-03-25 4/200 2026-03-28 13:07 by 唐沐儿
[考研] 086502化学工程342求调剂 +6 阿姨复古不过 2026-03-27 6/300 2026-03-28 07:06 by wangy0907
[考研] 085701环境工程求调剂 +9 多久上课 2026-03-27 9/450 2026-03-28 03:58 by fmesaito
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 305求调剂 +5 哇卢卡库 2026-03-26 5/250 2026-03-27 14:01 by laoshidan
[硕博家园] 北京林业大学硕导招生广告 +6 kongweilin 2026-03-26 8/400 2026-03-27 10:18 by FF_16
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-26 4/200 2026-03-27 08:04 by chemisry
[考研] 材料科学与工程 317求调剂 +4 JKSOIID 2026-03-26 4/200 2026-03-26 15:58 by 不吃魚的貓
[考研] 081700 调剂 267分 +11 迷人的哈哈 2026-03-23 11/550 2026-03-26 15:41 by zzll406
[考研] 一志愿哈工大，085400，320，求调剂 +4 gdlf9999 2026-03-24 4/200 2026-03-25 23:01 by boxking200
[考研] 086003食品工程求调剂 +6 淼淼111 2026-03-24 6/300 2026-03-25 10:29 by 3Strings
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
[考研] 材料专硕331求调剂 +4 鲜当牛 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[考博] 26申博自荐 +3 whh869393 2026-03-24 3/150 2026-03-24 09:55 by 21018060
[考研] 一志愿河北工业大学0817化工278分求调剂 +7 jhybd 2026-03-23 12/600 2026-03-24 09:03 by jhybd
[考研] 341求调剂(一志愿湖南大学070300) +5 番茄头--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[考研] 328求调剂 +4 LHHL66 2026-03-23 4/200 2026-03-23 14:55 by lbsjt
信息提示
关闭
请填处理意见
关闭