
展开全部
你看看这个例子,就会了
program random
implicit none
integer i
real :: x
OPEN(6,FILE='输出.XLS')
call random_seed () ! 系统根据日期和时间随机地提供种子
do i=1,1000
call random_number (x) ! 每次的随机数就都不一样了
write(6,*) x
end do
end program random
program random
implicit none
integer i
real :: x
OPEN(6,FILE='输出.XLS')
call random_seed () ! 系统根据日期和时间随机地提供种子
do i=1,1000
call random_number (x) ! 每次的随机数就都不一样了
write(6,*) x
end do
end program random
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有个随机数函数,好像叫random(),你可以查一下它的函数说明。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询