作者zx168zx (zx168zx)
看板Fortran
标题[问题] 请教一下纪录资料的问题
时间Wed Feb 11 14:58:02 2015
感谢各位大大
问题已解决 以下提供方法
我的程式大约如下
dimension Z(5) 定义一个dimension
Z(1)=100 定义一个绝对比接下来你要的Z值还大的数字
Z(2)=0
Z(3)=0
Z(4)=0
Z(5)=0
do while (条件)
.
.
.
.
if (条件) then
if (z .LT. Z(1)) then
z=Z(1)
Z(2)=aa
Z(3)=bb
Z(4)=x
Z(5)=y
else
Z(1)=Z(1)
Z(2)=Z(2)
Z(3)=Z(3)
Z(4)=Z(4)
Z(5)=Z(5)
end if
end if
end do
write(127,*) Z(2),Z(3),Z(4),Z(5),Z(1)
结果：
100 10 1 7 8 6
先把第一笔资料存起来 之後出现下一笔资料时
发现9比10小就不纪录 然後继续这样比
让最後WRITE 只记录 100 10 1 7 8 6 这笔资料
这方法感觉笨笨的 如果大大们有更好的写法 再麻烦告诉我一下
有大大跟我说用temp 但无奈看完网路上的用法完全没有概念
就用这种方法了
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.116.46.243
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Fortran/M.1423637884.A.1FA.html
1F：→ rex0707: OPEN( STATUS='REPLACE')????? 02/11 16:31
※ 编辑: zx168zx (140.116.46.243), 02/11/2015 17:45:30
2F：→ zx168zx: r大 那个写法是在open笔记本时候吧? 02/11 17:46
3F：→ wenni: 开个temp存 出回圈後再write? 02/11 18:15
※ 编辑: zx168zx (140.116.46.243), 02/11/2015 20:39:41
4F：→ Cypresslin: 把write移出回圈，找到z更小的直接取代整组的aa~z变数 02/11 23:08
5F：→ zx168zx: 感谢各位大大提供方法 我来试一下 02/12 12:52
※ 编辑: zx168zx (140.116.46.243), 02/13/2015 14:27:31
6F：→ rex0707: 第二个if的else就不需要了吧? 02/13 15:57
7F：推 zx09192939: else内容确实可拿掉@@直接end if 03/01 14:32