24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 451  |  回复: 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的回帖

magic7004

金虫 (职业作家)

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

azengjuan

铁虫 (小有名气)

你有fortran几写的阿
3楼2010-09-24 19:29:56
已阅   回复此楼   关注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的回帖

zyj8119

木虫 (著名写手)

此问题结贴。。
好好学习,天天向上。
5楼2010-09-28 08:42:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sulei123456a

铁杆木虫 (著名写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
可能是程序出了问题
6楼2010-10-02 14:56:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zyj8119 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料专硕 085600求调剂 +7 BBQ233 2026-03-30 7/350 2026-03-30 17:44 by oooqiao
[考研] 311求调剂 +5 蓝月亮亮 2026-03-30 5/250 2026-03-30 16:36 by JourneyLucky
[考研] 332求调剂 +13 032500 2026-03-25 13/650 2026-03-30 16:25 by wangjy2002
[考研] 材料专硕调剂 +11 椰椰。 2026-03-29 11/550 2026-03-30 16:21 by wangjy2002
[考研] 一志愿南昌大学324求调剂 +8 hanamiko 2026-03-27 8/400 2026-03-30 14:09 by JourneyLucky
[基金申请] 面上5B能上会吗? +7 redcom 2026-03-29 7/350 2026-03-30 12:44 by 爱搞研究的小孩
[考研] 0703本科郑州大学求调剂 +7 nhj_ 2026-03-25 7/350 2026-03-30 12:44 by fangnagu
[考研] 材料工程专硕求调剂 +6 hyl3153942 2026-03-29 6/300 2026-03-30 12:04 by 1018329917
[考研] 化学工程085602 305分求调剂 +25 RichLi_ 2026-03-25 25/1250 2026-03-30 11:02 by klasasda
[考研] 一志愿南航 335分 | 0856 | GPA 4.07 | 有科研经历 +8 cccchenso 2026-03-29 8/400 2026-03-29 23:53 by 我是小康
[考研] 294分080500材料科学与工程求调剂 +8 柳溪边 2026-03-26 8/400 2026-03-29 20:42 by 唐沐儿
[考研] 349求调剂 +6 李木子啊哈哈 2026-03-25 6/300 2026-03-29 12:47 by 无际的草原
[考研] 321求调剂 +7 璞玉~~ 2026-03-25 8/400 2026-03-29 06:41 by 544594351
[考研] 312,生物学求调剂 +3 小译同学abc 2026-03-28 3/150 2026-03-28 15:32 by 落睿可思
[考研] 266分,求材料冶金能源化工等调剂 +7 哇呼哼呼哼 2026-03-27 9/450 2026-03-28 12:22 by zllcz
[考研] 材料277求调剂 +7 min3 2026-03-24 7/350 2026-03-28 11:39 by xuxiang
[考研] 339求调剂,想调回江苏 +6 烤麦芽 2026-03-27 8/400 2026-03-28 10:40 by 烤麦芽
[考研] 348求调剂 +4 小懒虫不懒了 2026-03-27 5/250 2026-03-27 12:47 by 果果妈咪
[考研] 材料专硕 335 分求调剂 +4 拒绝冷暴力 2026-03-25 4/200 2026-03-25 18:45 by haxia
[考研] 285求调剂 +3 AZMK 2026-03-24 3/150 2026-03-25 12:23 by userper
信息提示
请填处理意见