| 查看: 1208 | 回复: 8 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
19870617木虫 (著名写手)
|
[求助]
新手请教最大值输出问题
|
|
|
自己编的很小的一段程序 program main implicit none integer :: n,i real(8) ::pi,u1,u2,r pi=3.1415926535 call random_seed () n=1000 do i=1,n call random_number(u1) call random_number(u2) r=sqrt(-log(u1))*cos(2*pi*u2) print *,r enddo end 现在我想把r的值存储到一个数组当中，以后每次调用数组中的一个r值，并输出数组中随机生成的r的最大值，请问大侠该如何编写，刚刚学习FORTRAN，希望大家多多指教，不胜感激。 金币少了点，希望大家多多帮忙，谢谢！ |
回复此楼» 猜你喜欢
投稿返修后收到这样的回复，还有希望吗
已经有8人回复
-
垃圾破二本职称评审标准
已经有9人回复
-
三无产品还有机会吗
已经有6人回复
-
博士申请都是内定的吗？
已经有14人回复
-
谈谈两天一夜的“延安行”
已经有13人回复
-
氨基封端PDMS和HDI反应快速固化
已经有11人回复
-
论文投稿求助
已经有4人回复
-
Applied Surface Science 这个期刊。有哪位虫友投过的能把word模板发给我参考一下嘛
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 新手请教MATLAB函数做图问题，非常感谢
已经有3人回复
- 新手提RNA，请教几个问题
已经有8人回复
- 我是新手想请教一个关于细胞铺板的问题
已经有4人回复
- 从来没测过荧光，请教测荧光的步骤是什么？那个数值能说明什么问题？
已经有5人回复
- ganssian新手，请教高手。看谁能回答我这个问题
已经有13人回复
- 【求助】请教从电子顺磁光谱EPR谱图如何得知g值？
已经有12人回复
- 【原创】值得去吗？怎么去？请教。--*续---不期而遇*
已经有17人回复
- 【求助】请教vasp如何使本征值按每条能带输出
已经有18人回复
- 【请教】请教缺省值问题
已经有8人回复
- 【请教】Z值等于1和等于2时，分子式有什么不同？
已经有9人回复
- 【请教】关于化学式和Z值的异常取值问题
已经有5人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2012-08-27 17:56:59
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2012-08-27 19:01:09
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
6楼2012-08-27 20:07:45
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
198706178楼2012-08-27 22:10:01