24小时热门版块排行榜    

查看: 174  |  回复: 5
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

skyang

铁杆木虫 (著名写手)

[交流] 有谁知道古老的FORTRAN语言?有几个语句请教!【有效期至2008年6月23日】

1、FORMAT(F9.2,4F9.4)输出格式应该是什么?
2、  N=5
     WRITE(N,44)    X(1)
        其中的N代表什么意思?
3、IF(ISO.GT.0) GOTO 12  其中的.GT.是什么意思来着?
4、IF(D-1.E-10) 42,42,45   这个语句什么意思啊?其中的42,45都是语句行号。
非常感谢!

[ Last edited by skyang on 2008-6-23 at 13:26 ]

» 猜你喜欢

踏踏实实做事!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

skyang

铁杆木虫 (著名写手)

4、IF(D-1.E-10) 42,42,45   代表判断语句的不同取值所对应的执行语句。

具体是什么时候执行哪个语句呢?
踏踏实实做事!
5楼2008-06-23 09:07:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

addila

木虫 (正式写手)

★ ★
skyang(金币+2,VIP+0):thanks
第一个输出: f9.2格式的数字,和4个f9.4格式的数字

2,n代表第n行的格式吧

3. 那是大于号

4. 是不是执行42两次,45一次?
2楼2008-06-23 08:18:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lianghust

铁杆木虫 (正式写手)


skyang(金币+1,VIP+0):thanks
1:F9.2 --使用9个字符宽输出浮点数,其中小数部分占3位;4F9.4中F前面的4是连续输出四个浮点数。
2:write(N,44):N表示输出位置。
3:.GT.: >

[ Last edited by lianghust on 2008-6-23 at 08:21 ]
3楼2008-06-23 08:20:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hxfciae

木虫 (小有名气)

★ ★
skyang(金币+2,VIP+0):thanks
这都是Fortran77中的语法。
1、FORMAT(F9.2,4F9.4)输出格式是输出9个字符宽输出浮点数,其中小数部分占3位(小数点占一位);然后连续输出4个浮点数(9个字符宽的浮点数,小数部分占5位)。?
2、  N=5
     WRITE(N,44)    X(1)
        其中的N代表输出位置,对于一般计算机而言N=5代表输出到屏幕;
3、IF(ISO.GT.0) GOTO 12  其中的.GT.代表great than,大于
4、IF(D-1.E-10) 42,42,45   代表判断语句的不同取值所对应的执行语句。
4楼2008-06-23 08:40:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 346求调剂[0856] +4 WayneLim327 2026-03-16 7/350 2026-03-21 04:02 by JourneyLucky
[考研] 297求调剂 +9 戏精丹丹丹 2026-03-17 9/450 2026-03-21 01:49 by JourneyLucky
[考研] 材料专业求调剂 +6 hanamiko 2026-03-18 6/300 2026-03-21 00:24 by JourneyLucky
[考研] 一志愿南昌大学,327分,材料与化工085600 +9 Ncdx123456 2026-03-19 9/450 2026-03-20 23:41 by lovewei0727
[考研] 308求调剂 +3 阿姐阿姐家啊 2026-03-18 3/150 2026-03-20 23:24 by JourneyLucky
[考研] 304求调剂 +7 司空. 2026-03-18 7/350 2026-03-20 23:08 by JourneyLucky
[考研] 287求调剂 +7 晨昏线与星海 2026-03-19 8/400 2026-03-20 22:19 by JourneyLucky
[考研] 289求调剂 +6 怀瑾握瑜l 2026-03-20 6/300 2026-03-20 20:30 by 学员8dgXkO
[考研] 0703化学调剂 ,六级已过,有科研经历 +13 曦熙兮 2026-03-15 13/650 2026-03-20 19:35 by Dream007008
[论文投稿] 申请回稿延期一个月,编辑同意了。但系统上的时间没变,给编辑又写邮件了,没回复 10+3 wangf9518 2026-03-17 4/200 2026-03-19 23:55 by babero
[考研] 081700化工学硕调剂 +3 【1】 2026-03-16 3/150 2026-03-19 23:40 by edmund7
[考研] 0703化学调剂 +10 妮妮ninicgb 2026-03-15 14/700 2026-03-19 22:59 by 学员8dgXkO
[考研] 266求调剂 +5 阳阳哇塞 2026-03-14 10/500 2026-03-19 15:08 by 阳阳哇塞
[考研] 0703化学调剂 +5 pupcoco 2026-03-17 8/400 2026-03-19 13:58 by houyaoxu
[考研] 0817调剂 +3 没有答案_ 2026-03-14 3/150 2026-03-19 09:51 by Xu de nuo
[考研] 机械专硕325,寻找调剂院校 +3 y9999 2026-03-15 5/250 2026-03-16 19:58 by y9999
[考研] 326求调剂 +3 mlpqaz03 2026-03-15 3/150 2026-03-16 07:33 by Iveryant
[考研] 327求调剂 +6 拾光任染 2026-03-15 11/550 2026-03-15 22:47 by 拾光任染
[考研] 085601材料工程315分求调剂 +3 yang_0104 2026-03-15 3/150 2026-03-15 10:58 by peike
[考研] 复试调剂 +3 呼呼?~+123456 2026-03-14 3/150 2026-03-14 16:53 by WTUChen
信息提示
请填处理意见