猜数字游戏c语言编程_Fortran 猜数字游戏

今天我们用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=0100    write(*,*)"请输入预测值(1-100)："    read(*,*)ans    if(ans>rand)then        write(*,*)"大了！"        i=i+1        write(*,*)"已用",i,"次！"        go to 100    end if    if(ans7)then                 write(*,*)"脑袋进水！"             else                 write(*,*)"一般一般！"             end if         end if    end if    pauseend program test40

运行程序。

猜了六次

哈哈，我是猜了六次才对，看来是上岁数了，离脑子进水就差一步了。朋友们都来试试吧，还是很好玩的。