背景

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

于是——

代码

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

玩一把