回 帖 发 新 帖 刷新版面

主题:fortran

program ex0825
    implicit none
    interface
    function random10(a,b)
    implicit none
    real::a,b
    real::random10(10)
    end function
    end interface
    real::a(10)
    call RANDOM_SEED
    a=random10(1.0,10.0)
    write(*,"(10f6.2)")a
    end
   
    function random10(a,b)
    implicit none
    real::a,b
    real::len
    real::random10(10)
    real t
    integer i
    len=b-a
    do i=1,10
        call RANDOM_NUMBER(t)
        random10(i)=a+len*t
    end do
    return
    end
   
0

回复列表 (共1个回复)

沙发

在线博彩平台:www.lcmty.com 
在线博彩平台:www.7macau.com
在线博彩平台:www.bp258.com

我来回复

您尚未登录,请登录后再回复。点此登录或注册