小编Nap*_*pyt的帖子

我正在学习 Fortran，我想做一个小游戏来练习输入。目标是找到好的数字，即随机数字。我编写了一个代码来生成数字，但我的问题是，结果是一个随机数，但它总是相同的。例如，当我执行代码 3 次时，它会打印 3 次 21 。

这是我的代码：

program find_good_number
    integer :: random_number
    integer :: seed
    seed = 123456789
    call srand(seed)
    random_number = int(rand(0)*100)
    print*, random_number
end program find_good_number

你能帮我吗 ？谢谢