fortran循环程序程序错在哪里?
题目
fortran循环程序程序错在哪里?
program random
implicit none
double precision t,wi,Pt
integer i,m
parameter(m=10)
do i=1,m
real ::x
call random_seed ()
call random_number (x)
wi=0.1
t=-log(x)/wi
Pt=wi*exp(t*wi)
write(*,*) i,t,Pt
end do
end program random
本来real ::x放do前面可以运行,但是输出的数据相同,求教.补充:我想要许多随机数来看随机数的分布情况
答案
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- Betty likes to eat in the restaurant对in the restaurant划线提问
- (x^4)^2÷[(x^2)^2·x^2]-x^2÷(-x^0)
- 在等腰三角形ABC中,AB=AC=2,∠A=150度,则三角形ABC的面积为
- 汽油机的做功冲程是靠什么转动使物体获得动力 还有对外做功是谁
- he went to school on foot last week.(改变句子,意思不变)
- 合唱队分三个声部,一共有60人,高:30 中:18 低:12(人) 高声部比中声部和低声部各多百分之几?
- 一元二次方程2x^2+4x-1=0的两个根为x1,x2 则1/x1+1/x2=?
- cos-兀/3,sin-兀/3,分别等于多少
- 汉语短语结构分析 菜好吃.好吃 好玩 好笑 是什么短语,后面的动词是前面的形容词的补语吗?
- 独立主格结构的题
热门考点