24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 287  |  回复: 2

zyj8119

木虫 (著名写手)

[交流] 【求助】此程序没有错误,但是运行有问题?

CODE:
   SUBROUTINE find(first,last,n)
              IMPLICIT NONE
              LOGICAL::log
              INTEGER::i,j,k,first,last,n,sum
              first=10**n
              IF(n==0)first=0
              last=10**(n+1)
out:        DO j=first,last
                 DO i=j,last
                       log=(i+j)==4*10**n
                       IF(log)THEN
                          sum=0
in:                   DO k=i,j
                            sum=sum+k
                            IF(sum>=10**(n+1))EXIT in
                         ENDDO in
                         IF(sum==10**(n+1))THEN
                         first=i;last=j
                         EXIT out
                         ENDIF
                        ENDIF
                       ENDDO
                      ENDDO out
                     END SUBROUTINE find
  !
            PROGRAM main
            IMPLICIT NONE
            INTEGER::i,first,last,n,temp(5)
            OPEN(1,FILE='MYF1.OUT')
            DO n=1,3
                 CALL find(first,last,n)
                 DO i=first,last
                        temp(i-first+1)=i
                 ENDDO
                 WRITE(*,'(5I8)')temp;WRITE(1,'(5I8)')temp
            ENDDO
            END  PROGRAM main
              

[ Last edited by zyj8119 on 2010-9-29 at 10:51 ]
回复此楼

» 猜你喜欢

好好学习,天天向上。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hllyh

铁杆木虫 (知名作家)


zyj8119(金币+1):谢谢参与
zyj8119(金币+1): 2010-09-29 10:50:47
有什么问题?
2楼2010-09-29 08:52:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)

nono2009:建议“引用回复该帖” 2010-09-30 08:32:31
temp(i-first+1)=i,显示会出现6超过定义的5
好好学习,天天向上。
3楼2010-09-29 10:54:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zyj8119 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0856专硕求调剂 希望是a区院校 +23 好好休息好不好 2026-04-09 26/1300 2026-04-13 14:22 by 张zhihao
[考研] 314求调剂 +24 wakeluofu 2026-04-09 25/1250 2026-04-13 08:58 by lhj2009
[考研] 368化学求调剂 +14 wwwwabcde 2026-04-07 15/750 2026-04-13 08:36 by lhj2009
[考研] 电气专硕320求调剂 +6 小麻子111 2026-04-10 6/300 2026-04-12 10:54 by lemon6009
[考研] 化工调剂求导师收留!一志愿失利,踏实肯干,有植物提取科研经历 +20 yzyzx 2026-04-09 21/1050 2026-04-12 00:12 by 小小小小啦啦啦
[考研] 求调剂 +6 电气300求调剂不 2026-04-08 6/300 2026-04-11 20:14 by 逆水乘风
[考研] 288求调剂 +15 代fish 2026-04-09 16/800 2026-04-11 10:26 by wwj2530616
[考研] 本科211 工科085400 280分求调剂 可跨专业 +11 LZH(等待调剂中 2026-04-10 11/550 2026-04-11 08:39 by zhq0425
[考研] 083200 305分 求二轮调剂 不接受跨专业 +9 Claireyyyy 2026-04-09 10/500 2026-04-10 21:21 by Claireyyyy
[考研] 284求调剂 +9 让我上岸吧阿西 2026-04-09 11/550 2026-04-10 19:18 by 靖jing
[论文投稿] mdpi小修rvr时间四五天了 20+3 哈哈high 2026-04-08 5/250 2026-04-10 16:02 by 北京莱茵润色
[考研] 285求调剂 +9 AZMK 2026-04-07 11/550 2026-04-10 15:24 by AZMK
[考研] 青岛科技大学材料学院,环境学院调剂补录4月10日以前都可以 +3 1青科大。 2026-04-09 5/250 2026-04-10 09:58 by 翩翩一书生
[考研] 070300化学 求调剂 +13 73372112 2026-04-08 13/650 2026-04-09 20:22 by maddjdld
[考研] 085501机械英二77总分294求调剂,接受跨专业学习 +6 守法公民亓纪 2026-04-08 6/300 2026-04-09 15:55 by wp06
[考研] 086000生物与医药调剂 +7 awwwwwooooo 2026-04-09 7/350 2026-04-09 13:31 by 北极159263
[考研] 一志愿西南大学生物学学硕344 求生物学相关调剂/生物与医药 +7 超人不会飞@ 2026-04-08 7/350 2026-04-09 09:35 by gong120082
[考研] 机械工程313分找工科调剂 +3 双一流本科机械 2026-04-08 3/150 2026-04-08 20:41 by 土木硕士招生
[考研] 11408 325分 +3 jgtxuxgkx 2026-04-07 3/150 2026-04-07 23:10 by lbsjt
[考研] 307求调剂 +3 Youth@@ 2026-04-07 3/150 2026-04-07 09:25 by 小黑不怕难
信息提示
请填处理意见