猜数游戏（Fortran）

背景

学了两个月Fortran还没来一次正式练习

于是——

代码

program gessnum! implicit none 不取消IN规则。integer::num,areal::Ncall random_seed()call random_number(N)a=int(N*10)print*,"请输入您猜的数字："read(*,*)numdo i=1,3if (num==a)thenprint*,"恭喜你，猜对了！"exitelse if (num>a)thenif (i==3)thenprint*,"最后一次都猜错了，fw！"exitend ifprint*,"不好意思，您猜的数字大了一点！您还有",3-i,"次机会："read(*,*)numelse if (i==3)thenprint*,"最后一次都猜错了，fw！"exitend ifprint*,"不好意思，您猜的数字小了一点！您还有",3-i,"次机会："read(*,*)numend ifend do
end program gessnum

玩一把