24小时热门版块排行榜    

查看: 279  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿211 0703方向310分求调剂 +3 努力奋斗112 2026-03-15 3/150 2026-03-16 16:44 by houyaoxu
[考研] 0703化学调剂 ,六级已过,有科研经历 +7 曦熙兮 2026-03-15 7/350 2026-03-16 16:34 by houyaoxu
[考研] 0856专硕279求调剂 +5 加油加油!? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[考研] 265求调剂 +4 威化饼07 2026-03-12 4/200 2026-03-14 17:23 by userper
[考研] 330求调剂 +3 ?酱给调剂跪了 2026-03-13 3/150 2026-03-14 10:13 by JourneyLucky
[考研] 一志愿华中农业大学071010,总分三百二,求调剂 +3 困困困困坤坤 2026-03-10 3/150 2026-03-14 00:35 by JourneyLucky
[考研] 招收0805(材料)调剂 +3 18595523086 2026-03-13 3/150 2026-03-14 00:33 by 123%、
[考研] 308求调剂 +3 是Lupa啊 2026-03-10 3/150 2026-03-14 00:30 by JourneyLucky
[考研] 332求调剂 +3 zjy101327 2026-03-11 6/300 2026-03-13 22:48 by JourneyLucky
[考研] 0703化学一志愿211 总分320求调剂 +5 玛卡巴卡啊哈 2026-03-11 5/250 2026-03-13 21:40 by JourneyLucky
[考研] 四川大学085601材料工程专硕 初试294求调剂 +4 祝我们好在冬天 2026-03-11 4/200 2026-03-13 21:39 by peike
[考研] (081700)化学工程与技术-298分求调剂 +12 11啦啦啦 2026-03-11 35/1750 2026-03-13 21:25 by JourneyLucky
[考研] 材料工程调剂 +4 咪咪空空 2026-03-11 4/200 2026-03-13 19:57 by JourneyLucky
[考研] 求b区学校调剂 +3 周56 2026-03-11 3/150 2026-03-13 16:20 by JourneyLucky
[考研] 工科278分求调剂 +5 周慢热啊 2026-03-12 7/350 2026-03-13 15:49 by JourneyLucky
[考研] 314求调剂 +7 无懈可击的巨人 2026-03-12 7/350 2026-03-13 15:40 by JourneyLucky
[考研] 420求调剂 +4 莫向外求11 2026-03-10 6/300 2026-03-12 14:41 by ruiyingmiao
[考研] 290求调剂 +3 柯淮然 2026-03-10 8/400 2026-03-11 13:48 by 柯淮然
[考研] 279求调剂 +3 莫xiao 2026-03-10 4/200 2026-03-11 08:06 by 斩魂滴兔子!
[考研] 化工0817调剂 +8 灿若星晨 2026-03-10 8/400 2026-03-10 22:44 by 星空星月
信息提示
请填处理意见