24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 693  |  回复: 2

cpz880822

银虫 (正式写手)

[求助] 费氏数列 已有1人参与

program ex 0602
        implicit none
        integer n,f,m
        parameter (n=100)
        dimension f(n)
      read(*,*)m
        if(m.le.1)then
         f(m)=m
        else
        f(m)=f(m-1)+f(m-2)
      endif
        write(*,*)m,f(m)
               stop
        end
         
题目要求f(0)=0,f(1)=1,当n>1时,满足f(n)=f(n-1)+f(n-2).
我觉得是else那的问题,但是改不过来!初学者,谢谢大家帮忙!
回复此楼

» 猜你喜欢

感恩生活,用心做事
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

感谢参与,应助指数 +1
fortran 中默认下标是从 1 开始的,除非你声明下标是从零开始……
2楼2015-06-22 08:48:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

另外,你需要使用循环……
3楼2015-06-22 08:49:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 cpz880822 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 265求调剂 +8 梁梁校校 2026-04-01 8/400 2026-04-02 22:43 by liveagain126
[考研] 295求调剂 +6 愿旅途永远坦然 2026-04-02 6/300 2026-04-02 21:57 by macy2011
[考研] 372分材料与化工(085600)一志愿湖南大学求调剂 +5 蓝笺片 2026-04-02 6/300 2026-04-02 21:37 by dongzh2009
[考研] 294求调剂 +3 Grey_Ey 2026-04-02 5/250 2026-04-02 21:34 by swb0218
[考研] 085601一志愿北理325分求调剂 +4 找调剂,, 2026-04-02 4/200 2026-04-02 21:29 by dongzh2009
[考研] 一志愿北京科技材料科学与工程288分,求调剂 +14 是辰啊 2026-04-02 14/700 2026-04-02 21:10 by dongzh2009
[考研] 265求调剂 +12 林深温澜 2026-04-01 15/750 2026-04-02 19:14 by 一只好果子?
[考研] 264分,求任意工科调剂 +4 zzlqwq 2026-03-29 5/250 2026-04-02 17:17 by 何曾几何
[考研] 化学308分调剂 +14 你好明天你好 2026-03-30 15/750 2026-04-02 13:39 by 嘻嘻笑22
[考研] 311求调剂 +14 蓝月亮亮 2026-03-30 14/700 2026-04-02 12:18 by 1753564080
[考研] 生医工0831调剂求推荐 +5 小熊睿睿_s 2026-03-27 7/350 2026-04-02 11:30 by 纺大杨老师
[考研] 311(085601)求调剂 +12 liziyeyeye 2026-03-28 13/650 2026-04-01 00:34 by fmesaito
[考研] 289求调剂 +7 BrightLL 2026-03-29 7/350 2026-03-31 22:05 by 544594351
[考研] 考研调剂 +9 小蜡新笔 2026-03-29 10/500 2026-03-31 19:52 by Dyhoer
[考研] 材料工程085601数二英一335求调剂 +5 双马尾痞老板2 2026-03-31 5/250 2026-03-31 19:07 by Wang200018
[考研] 求调剂 生物学 377分 +6 zzll03 2026-03-31 6/300 2026-03-31 17:33 by 唐沐儿
[考研] 22408 359分调剂 +4 Qshers 2026-03-27 8/400 2026-03-31 08:53 by Qshers
[考研] 调剂 +4 GK72 2026-03-30 4/200 2026-03-30 20:32 by dick_runner
[考研] 086000生物与医药调剂 +5 Feisty。 2026-03-28 9/450 2026-03-29 12:02 by longlotian
[考研] 求佛 +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
信息提示
请填处理意见