产生1~100的随机数,统计结果如下,第一个区间少了一块。不知道是哪里有问题。 [Fortran] 纯文本查看 复制代码 program random implicit none real :: x integer :: up open(7,file='randnums.txt') call random_see ...
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-24 04:01
Powered by Tencent X3.4
© 2013-2024 Tencent