开设本栏旨在帮助大家一点一滴了解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. implicit none
表示程序中使用的变量都需预先声明,禁止I~N规则;
2. integer x,y,z
声明变量x、y、z
为整型变量;
3. 三个do
循环遍历100~999所有数;
4. (3I1)
表示输出格式,以后推文会分享相关例题。
推荐书籍:
[1] 白海波. Fortran程序设计权威指南[M]. 机械工业出版社, 2013