今天我们用Fortran开发一款猜数字的小游戏。这是一种益智类小游戏，一般由两个人或多人玩，也可以由一个人和电脑玩。
程序随机给出一个100以内的正整数，然后从键盘输入一个整数， 输入如果大了，提示大了；输入如果小了，提示小了，输入如果对了， 就不再猜了，并统计一共猜了多少次。如果三次之内猜中，则提示“绝顶聪明！"，如果7次之内猜中则提示"一般一般！”，如果太于7次才猜中，则提示 "脑袋进水！"，哈哈。
程序很简单，主要是调用随机函数，根据当前时间提供随机种子。random_seed()，然后调用random_number(x)随机生成0-1之间的小数x，通过int(100*x)生成1-100随机整数。
代码如下：
程序program test40
implicit none
integer rand,ans,i
real x
call random_seed() ! 系统根据日期和时间随机地提供种子
call random_number(x) !生成0-1之间的随机数
rand=int(100*x) !生成1-100随机数
i=0
100 write(*,*)"请输入预测值（1-100）："
read(*,*)ans
if(ans>rand)then
write(*,*)"大了！"
i=i+1
write(*,*)"已用",i,"次！"
go to 100
end if
if(ans<rand)then
write(*,*)"小了！"
i=i+1
write(*,*)"已用",i,"次！"
go to 100
end if
if(ans==rand)then
write(*,*)"恭喜，答对了！"
i=i+1
write(*,*)"一共用了",i,"次！"
if(i<3)then
write(*,*)"绝顶聪明！"
else
if(i>7)then
write(*,*)"脑袋进水！"
else
write(*,*)"一般一般！"
end if
end if
end if
pause
end program test40运行程序。
猜了六次
哈哈，我是猜了六次才对，看来是上岁数了，离脑子进水就差一步了。朋友们都来试试吧，还是很好玩的。