24小时热门版块排行榜    

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

junyez

木虫 (小有名气)

[交流] 【求助】已封!帮忙解释一哈下面的fortran语言代码

do j=1,1000
777          read(10,*,end=999) anteil,dpart
          print*,anteil,dpart
          if (anteil.eq.0) then
             goto 777
          endif

[ Last edited by dongdong3881 on 2009-12-18 at 20:42 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★ ★ ★ ★ ★
mingdong(金币+1,VIP+0):谢谢! 3-9 15:30
junyez(金币+5,VIP+0):谢谢 3-9 20:13
读入 anteil 和 dpart
向终端打印 anteil  和 dpart
如果 anteil 等于 0 回到第一步,即读入 anteil 和 dpart

俺觉得 fortran 最直白了,呵呵……
2楼2009-03-09 14:43:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)


mingdong(金币+1,VIP+0):thanks! 3-11 15:01
俺没有用过 tcl,不知道是否直白。
不过俺还是觉得 fortran 比 basic 更简单一些,呵呵……
4楼2009-03-10 19:52:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 junyez 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见