猜数游戏(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