fortran 生成随机点(x,y)0

问题描述:

fortran 生成随机点(x,y)0

program randPoint implicit none integer i real ::x,ycall random_seed () !随机种子 do i=1,100 call random_number (x) call random_number (y)write(*,"(a,f6.3,f6.3,a)") "(",x,y,")" end do end program rand...