噓 JoeHorn:PHP 沒這種問題... 05/30 18:28
→ starjou:沒有 UNIX 版但是Linux版 05/30 19:38
最近老師出了一份要使用 "RAND()"來產生亂數的問題
但是我的亂數跑出來都是 "0."
請問高手這要如何解決呢?
以下是算式的全文
program TEST
real a, b, c, i, N
parameter (N=10000)
real*8 f(N), rand(N)
do i=1,5
f(i)=rand(1)
write(*,*) i, f(i)
end do
stop
end
PS 因為找不到UNIX版所以 在這邊發問
如果不適合我會自D 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.132.138
※ 編輯: silversun 來自: 140.116.132.138 (05/30 16:59)