作者latinboy (昵称)
看板Fortran
标题Re: [问题] 请问
时间Wed Dec 31 15:14:13 2008
※ 引述《htnp (f )》之铭言：
: 资料处理问题 将 数据重复的 不要WRITE出来
: 13.50000 4.000000 13.50000 4.000000
: 13.50000 4.000000 3.50000 14.000000
: 3.50000 14.000000 6.800000 35.00000
: 6.800000 35.00000 29.5000 38.00000
: 6.800000 35.00000
: 6.800000 35.00000
: 29.5000 38.00000
: 29.5000 38.00000
: 29.5000 38.00000
: 29.5000 38.00000
: 29.5000 38.00000
: . .
: . .
: 数据有很多 我先拿前面11笔 问
: do i=1,11
: read(*,*)a(i),b(i)
: 中间的逻辑 我TRY 都有问题 我是假设a(i+1)/=a(i)
: 然後WRITE 但似乎有问题 感觉应该不难 但我卡住罗
: 希望大大替我解惑 谢谢
: end do
read (*,*) a(1), b(1)
write(*,*) a(1), b(1)
do i = 2, n
read (*,*) a(i), b(i)
if( a(i) /= a(i-1) .AND. b(i) /= b(i-1) ) then
write(*,*) a(i), b(i)
end if
end do
这样??
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.120.19
1F：→ fcuiii:这样不对喔 你这样只有连续出现才有用 不过对这比数据刚好 01/16 01:09