24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 690  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 学硕机械工程303求调剂 +4 无名所以叫吴明 2026-03-30 4/200 2026-04-02 14:06 by asdfzly
[考研] 298求B区调剂 +4 zzz,,r 2026-04-02 5/250 2026-04-02 12:17 by 土木硕士招生
[考研] 0856材料与化工调剂,339 +13 10213207 2026-03-31 13/650 2026-04-02 11:35 by michael2011
[考研] 085601 材料工程 313分 求调剂 +7 Ong3 2026-03-27 7/350 2026-04-02 11:29 by 3041
[考研] 材料考研调剂 +9 Gs大王 2026-04-02 9/450 2026-04-02 10:24 by olim
[考研] 0710生物学,325求调剂 +3 mkkkkkl 2026-04-01 3/150 2026-04-02 09:48 by Jaylen.
[考研] 085410 一志愿211 22408分数359求调剂 +3 123456789qw 2026-03-31 4/200 2026-04-02 00:06 by 义文wang
[考研] 070300化学279求调剂 +15 哈哈哈^_^ 2026-03-31 17/850 2026-04-01 21:37 by 给你你注意休息
[考研] 求调剂0703 +5 周嘉尧 2026-03-31 8/400 2026-04-01 20:32 by ltltkkk
[考研] 353求调剂 +4 拉钩不许变 2026-04-01 4/200 2026-04-01 18:10 by 记事本2026
[考研] 085600,321分求调剂 +13 大馋小子 2026-03-31 13/650 2026-04-01 12:35 by chemdavid
[考研] 085410人工智能 初试316分 求调剂 +3 残星拂曙 2026-03-31 3/150 2026-04-01 11:09 by 小熊raider
[考研] 267求调剂 +13 uiybh 2026-03-31 13/650 2026-04-01 10:25 by 探123
[考研] 0710生物学求调剂! +6 叙述文 2026-03-31 6/300 2026-04-01 09:39 by JourneyLucky
[考研] 本科211安全工程,初试290分,求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 342求调剂 +4 加油a李zs 2026-03-26 4/200 2026-03-30 16:39 by 晶体之美
[考研] 0703 化学 求调剂,一志愿山东大学 342 分 +7 Shern—- 2026-03-28 7/350 2026-03-30 16:31 by nothing投稿中
[考研] 348求调剂 +6 小懒虫不懒了 2026-03-28 6/300 2026-03-30 10:29 by Evan_Liu
[考研] 291求调剂 +5 Y-cap 2026-03-29 6/300 2026-03-29 13:18 by mumin1990
[考研] 304求调剂 +6 曼殊2266 2026-03-27 6/300 2026-03-28 14:10 by 唐沐儿
信息提示
请填处理意见