Fortran学习与使用:一道网络数学题的计算方法
来源:网络收集 点击: 时间:2024-05-06首先打开Fortran编译器,通过File—New—Project Workspace建立一个工程,然后Name自行取,Location自行设置。

然后通过File—New—Text File建立空白编辑区。

然后File—Save,并把Filename中的Text1.f90改成Text1.f,也可以对Text1进行重命名,然后点击OK。

此时出现的编辑区带有绿横线。

在编辑区中输入以下代码:
program main
integer A,B,C,D,E
do A=1,9,1
do B=0,9,1
do C=0,9,1
do D=0,9,1
do E=0,9,1
if((10000*A+1000*B+100*C+10*D+E)*4 .eq.
$ (10000*E+1000*D+100*C+10*B+A)) then
write(*,100)A,B,C,D,E
endif
end do
end do
end do
end do
end do
100 format(1x,A=,I2,1x,B=,I2,1x,C=,I2,1x,D=,I2,1x,E=,I2)
End

然后点击编译(Compile,图中红框)和建立(Build,图中篮框),如果0 error(s)和0 warning(s)就可以执行该程序,否则要进行修改和调试。

如果0 error(s)和0 warning(s),那么按Ctrl+F5执行该程序。出现如下结果,A=2,B=1,C=9,D=7,E=8,即ABCDE=21978,而且确保ABCDE*4=EDCBA。

版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_685602.html