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

Fortran

Mathematics

首先打开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 do100  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。