| 查看: 11009 | 回复: 157 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
maomao1210金虫 (正式写手)
|
[交流]
【交流】Fortran语言答疑专帖 已有46人参与
|
||
[ Last edited by nono2009 on 2009-11-18 at 10:34 ] |
回复此楼» 本帖已获得的红花（最新10朵）
ynn112» 猜你喜欢
想换工作。大多数高校都是 评职称时 认可5年内在原单位取得的成果吗？
已经有9人回复
-
求个博导看看
已经有16人回复
-
上海工程技术大学张培磊教授团队招收博士生
已经有4人回复
-
上海工程技术大学【激光智能制造】课题组招收硕士
已经有5人回复
-
求助院士们，这个如何合成呀
已经有4人回复
-
临港实验室与上科大联培博士招生1名
已经有9人回复
-
需要合成515-64-0，50g，能接单的留言
已经有4人回复
-
自荐读博
已经有4人回复
-
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？
已经有6人回复
-
带资进组求博导收留
已经有10人回复
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
微尘、梦想(金币+2): 欢迎常来程序语言版，鼓励新虫多发话题！ 2011-04-19 15:15:09
小木虫(金币+0.5):给个红包，谢谢回帖
微尘、梦想(金币+2): 欢迎常来程序语言版，鼓励新虫多发话题！ 2011-04-19 15:15:09
|
program main implicit none type node real x !设置随机数 type(node),pointer::next end type type(node),pointer::head,q,p real rand integer i,j integer::m=0,n=0 call random_seed( ) nullify(head) do i=1,10 call random_number(rand) allocate(q) q%x=rand q%next=>head head=>q end do q=>head do while(associated(q)) print*,q%x q=>q%next end do !判断是否大于0.50 q=>head do while(associated(q)) if(q%x<0.50.and.associated(q,head))then n=n+1 !判断小于0.5的个数 head=>q%next deallocate(q) q=>head else if(q%x<0.50.and..not.associated(q,head))then n=n+1 p=>q%next deallocate(q) q=>p else m=m+1 q=>q%next end if end do write(*,*) "大于0.5的个数m=", m write(*,*) "小于0.5的个数n=", n !输出大于0.5的数 q=>head do while(associated(q)) print*,q%x q=>q%next end do end 请大家帮忙看看这个程序问题出在哪里了，在输出m和n的值时还是正确的，为什么加上最后几句 显示大于0.5的数时就会无限循环下去，而且得到的结果还是错误的呢，谢谢 |
104楼2011-04-19 11:06:09
2楼2009-06-01 12:32:17
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1431.3
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 441.5小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
★ ★ ★ ★ ★
wangen994(金币+2,VIP+0):鼓励一下，哈哈 6-4 11:55
gwdavid(金币+3,VIP+0):辛苦了!答疑帖加大奖励力度!;) 6-7 10:32
wangen994(金币+0,VIP+0):请你讲九月份十月份的参与应助的帖子整理附在http://emuch.net/bbs/viewthread.php?tid=1358729&fpage=1后面，以便发放津贴 11-9 19:00
wangen994(金币+2,VIP+0):鼓励一下，哈哈 6-4 11:55
gwdavid(金币+3,VIP+0):辛苦了!答疑帖加大奖励力度!;) 6-7 10:32
wangen994(金币+0,VIP+0):请你讲九月份十月份的参与应助的帖子整理附在http://emuch.net/bbs/viewthread.php?tid=1358729&fpage=1后面，以便发放津贴 11-9 19:00
|
哦。我给你举个例子吧，比如对称矩阵 A[3,3] A(1,1) A(1,2) A(1,3) A(2,1) A(2,2) A(2,3) A(3,1) A(3,2) A(3,3) 只要存储成一个一维数组即可： B(1)=A(1,1),B(2)=A(2,1),B(3)=A(2,2), B(4)=A(3,1),B(5)=A(3,2),B(6)=A(3,3). 还要记住这个： 行和列与存储该值的关系为：II=MAX(I,J)*(MAX(I,J)+1)/2+MIN(I,J), 那么B(II)==A(I,J). 不知道我讲的能听懂与否。如果不懂，继续发问。 |
3楼2009-06-01 12:41:49
anbb1009
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 555.6
- 散金: 100
- 帖子: 375
- 在线: 233小时
- 虫号: 644698
- 注册: 2008-11-03
- 专业: 凝聚态物性 II ：电子结构
4楼2009-06-05 14:35:16