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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台» 网络生活区» 有奖问答 » 有奖问答中转子版 » 有谁知道古老的FORTRAN语言？有几个语句请教！【有效期至2008年6月23日】
汕头大学海洋科学接受调剂
61/1返回列表
查看: 184  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

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 ]
回复此楼

» 猜你喜欢
踏踏实实做事！
1楼 2008-06-23 07:38:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

addila

木虫 (正式写手)
★ ★
skyang(金币+2,VIP+0):thanks
第一个输出： f9.2格式的数字，和4个f9.4格式的数字

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

3. 那是大于号

4. 是不是执行42两次，45一次？
赞一下(1人) 回复此楼
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 ]
赞一下(1人) 回复此楼
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的回帖

skyang

铁杆木虫 (著名写手)
4、IF(D-1.E-10) 42,42,45   代表判断语句的不同取值所对应的执行语句。

具体是什么时候执行哪个语句呢？
赞一下 回复此楼
踏踏实实做事！
5楼2008-06-23 09:07:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 skyang 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 复试调剂 +17 积极向上； 2026-04-10 19/950 2026-04-13 19:53 by 闲人终南山
[考研] 245求调剂 +3 冰糖橘?汽水 2026-04-13 7/350 2026-04-13 16:42 by 冰糖橘?汽水
[考研] 一志愿2110，化学学硕310分，本科重点双非求调剂 +20 努力奋斗112 2026-04-08 20/1000 2026-04-13 14:24 by 张zhihao
[考研] 一志愿鲁东大学071000生物学学硕初试分数276求调剂 +8 慕绝cc 2026-04-09 8/400 2026-04-13 14:08 by 张zhihao
[考研] 366求调剂 +9 不知名的小卅 2026-04-11 9/450 2026-04-13 01:19 by 幸免 ..
[硕博家园] 新一代电子信息294求调剂 不挑学校 +7 Ytyt11 2026-04-09 8/400 2026-04-12 16:57 by ajpv风雷
[考研] 求调剂 +16 张番茄不炒蛋 2026-04-10 17/850 2026-04-12 13:58 by 熬夜成！
[考研] 085410 273求调剂 +10 X1999 2026-04-09 10/500 2026-04-12 09:24 by 逆水乘风
[考研] 求调剂，262机械专硕 +8 嗯yyl 2026-04-08 8/400 2026-04-12 02:31 by 秋豆菜芽
[考研] 303求调剂 +14 SereinQ 2026-04-10 15/750 2026-04-11 20:43 by 蓝云思雨
[考研] 296求调剂 +14 汪！？！ 2026-04-08 15/750 2026-04-11 20:28 by dongdian1
[考研] 调剂 +5 文道星台 2026-04-11 5/250 2026-04-11 15:01 by 凯凯要变帅
[考研] 求调剂 +3 胃痉挛累了 2026-04-11 5/250 2026-04-11 14:13 by luhong1990
[考研] 293求调剂 +6 勇远库爱314 2026-04-08 6/300 2026-04-11 10:08 by zhq0425
[考研] 337求调剂 +4 研s. 2026-04-10 4/200 2026-04-11 08:57 by zhq0425
[考研] 一志愿211，化学学硕，310分，本科重点双非，求调剂 +27 努力奋斗112 2026-04-07 30/1500 2026-04-10 15:06 by Kilig0317
[考研] 求调剂 +11 翩翩一书生 2026-04-09 13/650 2026-04-10 10:27 by liuhuiying09
[考研] 材料专硕调剂 +16 哈哈哈吼吼吼哈 2026-04-07 17/850 2026-04-09 21:16 by wutongshun
[考研] 334求调剂 +16 Riot2025 2026-04-08 17/850 2026-04-09 09:28 by wdyheheeh
[考研] 296求调剂 +3 汪！？！ 2026-04-08 3/150 2026-04-08 22:00 by zhouyuwinner
信息提示
关闭
请填处理意见
关闭