手抄报 安全手抄报 手抄报内容 手抄报图片 英语手抄报 清明节手抄报 节约用水手抄报

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

时间:2024-10-14 13:19:49

1、首先打开Fortran编译器,通过File—>New—>Project Workspace建立一个工程,然后Name自行取,Location自行设置。

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

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

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

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

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

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

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

5、在编辑区中输入以下代码: 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 do100 format(1x,'A=',I2,1x,'B=',I2,1x,'C=',I2,1x,'D=',I2,1x,'E=',I2) End

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

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

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

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

Fortran学习与使用:一道网络数学题的计算方法
© 手抄报圈