首页 > 母婴教育 > 文化教育 > 中学 >

Fortran学习与使用:一道网络数学题的计算方法

来源:互联网 2023-03-20 14:38:51 322

Fortran(Formula Translation公式翻译的缩写)是世界上出现最早的计算机高级编程语言。现在用Fortran解决一道网络上出现的数学题,题干为:ABCDE*4=EDCBA,求ABCDE分别是什么数字。这道数学题在网上一搜索便能找到,如果用Fortran程序计算,很轻松就能解答。rcO办公区 - 实用经验教程分享!

Fortran学习与使用:一道网络数学题的计算方法rcO办公区 - 实用经验教程分享!

工具/原料

  • Fortran
  • Mathematics

方法/步骤

  • 1

    首先打开Fortran编译器,通过File—>New—>Project Workspace建立一个工程,然后Name自行取,Location自行设置。rcO办公区 - 实用经验教程分享!

    Fortran学习与使用:一道网络数学题的计算方法rcO办公区 - 实用经验教程分享!

  • 2

    然后通过File—>New—>Text File建立空白编辑区。rcO办公区 - 实用经验教程分享!

    Fortran学习与使用:一道网络数学题的计算方法rcO办公区 - 实用经验教程分享!

  • 3

    然后File—>Save,并把Filename中的Text1.f90改成Text1.f,也可以对Text1进行重命名,然后点击OK。rcO办公区 - 实用经验教程分享!

    Fortran学习与使用:一道网络数学题的计算方法rcO办公区 - 实用经验教程分享!

  • 4

    此时出现的编辑区带有绿横线。rcO办公区 - 实用经验教程分享!

    Fortran学习与使用:一道网络数学题的计算方法rcO办公区 - 实用经验教程分享!

  • 5

    在编辑区中输入以下代码:rcO办公区 - 实用经验教程分享!

    program mainrcO办公区 - 实用经验教程分享!

    integer A,B,C,D,ErcO办公区 - 实用经验教程分享!

    do A=1,9,1rcO办公区 - 实用经验教程分享!

    do B=0,9,1rcO办公区 - 实用经验教程分享!

    do C=0,9,1rcO办公区 - 实用经验教程分享!

    do D=0,9,1rcO办公区 - 实用经验教程分享!

    do E=0,9,1rcO办公区 - 实用经验教程分享!

    if((10000*A 1000*B 100*C 10*D E)*4 .eq.rcO办公区 - 实用经验教程分享!

    $ (10000*E 1000*D 100*C 10*B A)) thenrcO办公区 - 实用经验教程分享!

    write(*,100)A,B,C,D,ErcO办公区 - 实用经验教程分享!

    endifrcO办公区 - 实用经验教程分享!

    end dorcO办公区 - 实用经验教程分享!

    end dorcO办公区 - 实用经验教程分享!

    end dorcO办公区 - 实用经验教程分享!

    end dorcO办公区 - 实用经验教程分享!

    end dorcO办公区 - 实用经验教程分享!

    100 format(1x,'A=',I2,1x,'B=',I2,1x,'C=',I2,1x,'D=',I2,1x,'E=',I2)rcO办公区 - 实用经验教程分享!

    EndrcO办公区 - 实用经验教程分享!

    Fortran学习与使用:一道网络数学题的计算方法rcO办公区 - 实用经验教程分享!

  • 6

    然后点击编译(Compile,图中红框)和建立(Build,图中篮框),如果0 error(s)和0 warning(s)就可以执行该程序,否则要进行修改和调试。rcO办公区 - 实用经验教程分享!

    Fortran学习与使用:一道网络数学题的计算方法rcO办公区 - 实用经验教程分享!

  • 7

    如果0 error(s)和0 warning(s),那么按Ctrl F5执行该程序。出现如下结果,A=2,B=1,C=9,D=7,E=8,即ABCDE=21978,而且确保ABCDE*4=EDCBA。rcO办公区 - 实用经验教程分享!

    Fortran学习与使用:一道网络数学题的计算方法rcO办公区 - 实用经验教程分享!

  • 7相关内容未经授权抓取自百度经验
  • 以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!rcO办公区 - 实用经验教程分享!


    标签: 数学编程

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码