3.1 ex0401.f90
一个整数，它加上100和加上268后都是一个完全平方数，请问该数是多少？
代码：
program ex0401
implicit none
integer :: x
integer :: y,z
do x = -100， 10000
y = sqrt(x+100.0)
z = sqrt(x+268.0)
if (y*y==(x+100).and.z*z==(x+268)) then
write(*,*) x
end if
end do
end
结果：
分析：
Ex0401中要注意的有，sqrt中的运算数应为浮点数，而定义的x是integer类型，所以把后面的另一个加数写成了real类型，计算时会自动把（x+100.0）的结果变为real进行开方计算；另外就是sqrt()输出的结果也是浮点型的，由于不能完全精确所以到一定的值之后会四舍五入，从而得不到想要的结果，所以要强制转化为整型变量之后再进行判断。
3.2 ex0402.f90
编程输出斐波那契数列。
代码：
program ex0402
implicit none
integer :: i = 1
integer :: x1 = 1
integer :: x2 = 1
integer :: res = 0
integer :: n
read(*,*) n
do i=1, n
if ( i==1 .or. i==2) then
write(*,*) x1
else
res = x2 + x1
write(*,*) res
x1 = x2
x2 = res
end if
end do
end
结果：
分析：
Ex0402中要注意对循环次数的控制和赋值的先后次序，不要弄错了。
3.3 ex0403.f90
编程输出九九乘法表。
代码：
program ex0403
impicit none
integer :: i,j
do i=1,9
do j=1,i
write(*,"(i2,a1,i1,a1,i2)",advance='no'),i,"x",j,"=",i*j
end do
write(*,*)
end do
end
结果：
分析：
Ex0403的重点在于两个循环的嵌套和输出的格式的问题，在里面一个循环中是不换行的，Fortran中的控制语句是‘advance=yes/no’，不写这句话时默认为yes，即要换行，另外，在格式后面加一个$符号也能达到相同的效果。出了第一个循环之后由于是要换行的，所以在第一个循环和第二个循环之间加一个什么也不输出的write，即会换到下一行，再重新进循环。
