24小时热门版块排行榜    

查看: 427  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

zyj8119

木虫 (著名写手)

[交流] 【求助】程序无错误,但是运行的数据不对,是为什么?【已完结】 已有1人参与

CODE:
SUBROUTINE Power(m,last,term,length)
IMPLICIT NONE
INTEGER::m,last,length,i,j,k
INTEGER(2),DIMENSION(1:last)::term
term=0;term(last)=1
doi: DO i=1,m
      DO j=1,last
           IF(TERM(j)/=0)THEN
            DO k=last,j,-1
                  term(k)=term(k)**2
                END DO
                CYCLE
           END IF
          END DO
        DO k=last,j-1,-1
           term(k-1)=term(k-1)+term(k)/10
           term(k)=mod(term(k),10)
        END DO
   ENDDO doi
   DO k=1,last
     IF(term(k)/=0)THEN
           length=k;exit
         END IF
        END DO
        END SUBROUTINE Power
!
   PROGRAM Mersenne_Number
   IMPLICIT NONE
   INTEGER::m,n,k,i
   INTEGER,PARAMETER::max=20
   INTEGER(2),DIMENSION(3)::p=(/19,31,61/)
   INTEGER(2),DIMENSION(1:max)::term
   OPEN(1,FILE='MYF1.OUT')
   DO i=1,3
     m=p(i);CALL Power(m,max,term,n)
         term(max)=term(max)-1
         WRITE(*,'("P=",I3,"Mersenne=",20I1)')p(i),(term(k),k=n,max)
         WRITE(1,'("P=",I3,"Mersenne=",20I1)')p(i),(term(k),k=n,max)
        END DO
        END PROGRAM Mersenne_Number

[ Last edited by nono2009 on 2010-9-30 at 08:29 ]
回复此楼

» 猜你喜欢

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

azengjuan

铁虫 (小有名气)

你有fortran几写的阿
3楼2010-09-24 19:29:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

magic7004

金虫 (职业作家)

结果不对,那一定就是有错啊。
流氓不可怕,可怕的是流氓有文化,有文化又BH的流氓无敌~~!
2楼2010-09-24 19:12:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)

引用回帖:
Originally posted by azengjuan at 2010-09-24 19:29:56:
你有fortran几写的阿

FORTRAN 90
好好学习,天天向上。
4楼2010-09-24 21:41:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sulei123456a

铁杆木虫 (著名写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
可能是程序出了问题
6楼2010-10-02 14:56:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 276求调剂。有半年电池和半年高分子实习经历 +8 材料学257求调剂 2026-03-23 9/450 2026-03-23 13:01 by ztnimte
[考研] 276求调剂 +3 YNRYG 2026-03-21 4/200 2026-03-23 08:31 by 醉在风里
[考研] 一志愿070300浙大化学358分,求调剂! +4 酥酥鱼.. 2026-03-21 4/200 2026-03-23 08:12 by Iveryant
[考研] 307求调剂 +11 冷笙123 2026-03-17 11/550 2026-03-22 20:16 by edmund7
[考研] 315分,诚求调剂,材料与化工085600 +3 13756423260 2026-03-22 3/150 2026-03-22 20:11 by edmund7
[考研] 一志愿武理材料工程348求调剂 +5  ̄^ ̄゜汗 2026-03-19 7/350 2026-03-22 19:44 by 公瑾逍遥
[考研] 306求调剂 +5 来好运来来来 2026-03-22 5/250 2026-03-22 16:17 by BruceLiu320
[考研] 313求调剂 +4 肆叁贰壹22 2026-03-19 4/200 2026-03-21 17:33 by ColorlessPI
[考研] 一志愿重庆大学085700资源与环境总分308求调剂 +7 墨墨漠 2026-03-20 7/350 2026-03-21 16:36 by barlinike
[考研] 279求调剂 +5 红衣隐官 2026-03-21 5/250 2026-03-21 14:59 by lature00
[考研] 265求调剂 +12 梁梁校校 2026-03-19 14/700 2026-03-21 13:38 by lature00
[考研] 一志愿天津大学化学工艺专业(081702)315分求调剂 +12 yangfz 2026-03-17 12/600 2026-03-21 03:30 by JourneyLucky
[考研] 299求调剂 +6 △小透明* 2026-03-17 6/300 2026-03-21 02:42 by JourneyLucky
[考研] 一志愿武理材料305分求调剂 +6 想上岸的鲤鱼 2026-03-18 7/350 2026-03-21 01:03 by JourneyLucky
[考研] 一志愿中海洋材料工程专硕330分求调剂 +8 小材化本科 2026-03-18 8/400 2026-03-20 23:16 by JourneyLucky
[考研] 0703化学调剂 +5 pupcoco 2026-03-17 8/400 2026-03-19 13:58 by houyaoxu
[考研] 一志愿福大288有机化学,求调剂 +3 小木虫200408204 2026-03-18 3/150 2026-03-19 13:31 by houyaoxu
[考研] 0703化学调剂 +3 妮妮ninicgb 2026-03-17 3/150 2026-03-18 10:29 by macy2011
[硕博家园] 湖北工业大学 生命科学与健康学院-课题组招收2026级食品/生物方向硕士 +3 1喜春8 2026-03-17 5/250 2026-03-17 17:18 by ber川cool子
[考研] 11408 一志愿西电,277分求调剂 +3 zhouzhen654 2026-03-16 3/150 2026-03-17 07:03 by laoshidan
信息提示
请填处理意见