| 查看: 2842 | 回复: 23 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
maomao1210金虫 (正式写手)
|
[交流]
【分享】暑假闲来无事，与虫虫共同进步 已有17人参与
|
||
|
暑假闲来无事, 有对写学术型代码感兴趣的虫子可以一起共同进步 [ Last edited by maomao1210 on 2010-7-28 at 18:53 ] |
回复此楼» 猜你喜欢
论文终于录用啦！满足毕业条件了
已经有21人回复
-
不自信的我
已经有5人回复
-
磺酰氟产物，毕不了业了！
已经有4人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 闲来无事不从容
已经有16人回复
- 【原创】请教一下夫妻两人同专业共同申请海外博士后的问题
已经有45人回复
txf10
金虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 1006.6
- 散金: 367
- 红花: 18
- 沙发: 1
- 帖子: 1776
- 在线: 217.4小时
- 虫号: 1019904
- 注册: 2010-05-16
- 专业: 凝聚态物性I:结构、力学和
21楼2010-09-06 16:59:13
txf10
金虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 1006.6
- 散金: 367
- 红花: 18
- 沙发: 1
- 帖子: 1776
- 在线: 217.4小时
- 虫号: 1019904
- 注册: 2010-05-16
- 专业: 凝聚态物性I:结构、力学和
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
小木虫(金币+0.5):给个红包，谢谢回帖交流
|
请教一下： program eambcc implicit none real :: i,j,k integer :: at=0 do i=-1,1,0.5 do j=-1,1,0.5 do k=-1,1,0.5 if((mod(i,1.0)==0.and.mod(i,1.0)==0.and.mod(i,1.0)==0).or.& (abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))then write(*,100)i,j,k 100 format(2x,f4.1,2x,f4.1,2x,f4.1) end if end do end do end do 运行结果： -1.0 -1.0 -1.0 -1.0 -1.0 -0.5 -1.0 -1.0 0.0 -1.0 -1.0 0.5 -1.0 -1.0 1.0 -1.0 -0.5 -1.0 -1.0 -0.5 -0.5 -1.0 -0.5 0.0 -1.0 -0.5 0.5 -1.0 -0.5 1.0 -1.0 0.0 -1.0 -1.0 0.0 -0.5 -1.0 0.0 0.0 -1.0 0.0 0.5 -1.0 0.0 1.0 -1.0 0.5 -1.0 -1.0 0.5 -0.5 -1.0 0.5 0.0 -1.0 0.5 0.5 -1.0 0.5 1.0 -1.0 1.0 -1.0 -1.0 1.0 -0.5 -1.0 1.0 0.0 -1.0 1.0 0.5 -1.0 1.0 1.0 -0.5 -0.5 -0.5 -0.5 -0.5 0.5 -0.5 0.5 -0.5 -0.5 0.5 0.5 0.0 -1.0 -1.0 0.0 -1.0 -0.5 0.0 -1.0 0.0 0.0 -1.0 0.5 0.0 -1.0 1.0 0.0 -0.5 -1.0 0.0 -0.5 -0.5 0.0 -0.5 0.0 0.0 -0.5 0.5 0.0 -0.5 1.0 0.0 0.0 -1.0 0.0 0.0 -0.5 0.0 0.0 0.0 0.0 0.0 0.5 0.0 0.0 1.0 0.0 0.5 -1.0 0.0 0.5 -0.5 0.0 0.5 0.0 0.0 0.5 0.5 0.0 0.5 1.0 0.0 1.0 -1.0 0.0 1.0 -0.5 0.0 1.0 0.0 0.0 1.0 0.5 0.0 1.0 1.0 0.5 -0.5 -0.5 0.5 -0.5 0.5 0.5 0.5 -0.5 0.5 0.5 0.5 1.0 -1.0 -1.0 1.0 -1.0 -0.5 1.0 -1.0 0.0 1.0 -1.0 0.5 1.0 -1.0 1.0 1.0 -0.5 -1.0 1.0 -0.5 -0.5 1.0 -0.5 0.0 1.0 -0.5 0.5 1.0 -0.5 1.0 1.0 0.0 -1.0 1.0 0.0 -0.5 1.0 0.0 0.0 1.0 0.0 0.5 1.0 0.0 1.0 1.0 0.5 -1.0 1.0 0.5 -0.5 1.0 0.5 0.0 1.0 0.5 0.5 1.0 0.5 1.0 1.0 1.0 -1.0 1.0 1.0 -0.5 1.0 1.0 0.0 1.0 1.0 0.5 1.0 1.0 1.0 Press any key to continue 为什么运行结果不满足：(abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))这个条件？ |
22楼2010-09-06 21:00:09