Fortran编程实例01

开设本栏旨在帮助大家一点一滴了解Fortran，通过若干个小例子，带着大家熟悉Fortran的“套路”。

例题1：求出100到999之间所有满足以下条件的三位数：

如：   

program main
implicitnone
integer x,y,z
do x = 1,9
do y = 0,9
do z = 0,9
if ( 100*x +10*y + z == x**3 + y**3 + z**3 ) &
print"(3I1)",x,y,z
enddo
enddo
enddo
endprogram

注：

1. 1. implicit none表示程序中使用的变量都需预先声明，禁止I~N规则；

2. 2. integer x,y,z声明变量x、y、z为整型变量；

3. 3. 三个do循环遍历100~999所有数；

4. 4. (3I1)表示输出格式，以后推文会分享相关例题。
   

推荐书籍：

[1] 白海波. Fortran程序设计权威指南[M]. 机械工业出版社, 2013