单程序结果正确,套循环就不行了

琉璃 · 发表于 2014-5-12 17:18:28

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

real a,b,c,d,e,f,g
integer  q,w,h,l,m,n,o,p

read(*,*)a,b,c,d,e,f,g
open(unit = 1,file = "C:\data.txt")
l=0
m=0
n=0
o=0
p=0
do while(.not.eof(1))
read(1,*)q,w,h
if((q==a).and.(w==b).and.(h>=c).and.(h<d))then
l=l+1
else if((q==a).and.(w==b).and.(h>=d).and.(h<e))then
m=m+1
else if((q==a).and.(w==b).and.(h>=e).and.(h<f))then
n=n+1
else if((q==a).and.(w==b).and.(h>=f).and.(h<g))then
o=o+1
else if((q==a).and.(w==b).and.(h>=g))then
p=p+1
end if
end do
print*,l,m,n,o,p

end
编的是一个输入站点a  规定指标b 然后分级标准的 c d e f g求每个等级个数的程序
但是在空行里面加入循环do j=1,52

end do变成real a,b,c,d,e,f,g
integer  q,w,h,l,m,n,o,p
do j=1,52
read(*,*)a,b,c,d,e,f,g
open(unit = 1,file = "C:\data.txt")
l=0
m=0
n=0
o=0
p=0
do while(.not.eof(1))
read(1,*)q,w,h
if((q==a).and.(w==b).and.(h>=c).and.(h<d))then
l=l+1
else if((q==a).and.(w==b).and.(h>=d).and.(h<e))then
m=m+1
else if((q==a).and.(w==b).and.(h>=e).and.(h<f))then
n=n+1
else if((q==a).and.(w==b).and.(h>=f).and.(h<g))then
o=o+1
else if((q==a).and.(w==b).and.(h>=g))then
p=p+1
end if
end do
print*,l,m,n,o,p
end do
end结果全是0

琉璃 · 发表于 2014-5-12 17:19:35

57602 1 703 860 1035       1222       1438这是一行数据

56038 1 703 860 1035       1222       1438
56079 1 703 860 1035       1222       1438
56132 1 703 860 1035       1222       1438
56144 1 703 860 1035       1222       1438
56146 1 703 860 1035       1222       1438
56152 1 703 860 1035       1222       1438
56167 1 703 860 1035       1222       1438
56171 1 703 860 1035       1222       1438
56172 1 703 860 1035       1222       1438
56173 1 703 860 1035       1222       1438
56178 1 703 860 1035       1222       1438
56182 1 703 860 1035       1222       1438
56187 1 703 860 1035       1222       1438
56188 1 703 860 1035       1222       1438
56193 1 703 860 1035       1222       1438
56196 1 703 860 1035       1222       1438
56247 1 703 860 1035       1222       1438
56251 1 703 860 1035       1222       1438
56257 1 703 860 1035       1222       1438
56265 1 703 860 1035       1222       1438
56287 1 703 860 1035       1222       1438
56294 1 703 860 1035       1222       1438
56298 1 703 860 1035       1222       1438
56357 1 703 860 1035       1222       1438
56374 1 703 860 1035       1222       1438
56376 1 703 860 1035       1222       1438
56385 1 703 860 1035       1222       1438
56386 1 703 860 1035       1222       1438
56441 1 703 860 1035       1222       1438
56459 1 703 860 1035       1222       1438
56462 1 703 860 1035       1222       1438
56475 1 703 860 1035       1222       1438
56479 1 703 860 1035       1222       1438
56485 1 703 860 1035       1222       1438
56492 1 703 860 1035       1222       1438
56565 1 703 860 1035       1222       1438
56571 1 703 860 1035       1222       1438
56666 1 703 860 1035       1222       1438
56671 1 703 860 1035       1222       1438
56674 1 703 860 1035       1222       1438
57206 1 703 860 1035       1222       1438
57237 1 703 860 1035       1222       1438
57306 1 703 860 1035       1222       1438
57313 1 703 860 1035       1222       1438
57328 1 703 860 1035       1222       1438
57405 1 703 860 1035       1222       1438
57411 1 703 860 1035       1222       1438
57503 1 703 860 1035       1222       1438
57504 1 703 860 1035       1222       1438
57602 1 703 860 1035       1222       1438
57604 1 703 860 1035       1222       1438
57608 1 703 860 1035       1222       1438总筛选数据

琉璃 · 发表于 2014-5-12 17:20:59

这个是data筛选的数据不知道为什么套入循环结果就错误了

琉璃 · 发表于 2014-5-12 17:21:36

DATA数据在这里

Mid_Farmer · 发表于 2014-5-12 18:08:56

个人观点（没有试验）：你的结果应该不会全是0吧应该有第一组数据出来的在print*,l,m,n,o,p后加句close（1）试试行不行呢？

weather3699 · 发表于 2014-5-13 09:50:14

就是

琉璃 · 发表于 2014-5-14 13:57:07

Mid_Farmer 发表于 2014-5-12 18:08
个人观点（没有试验）：你的结果应该不会全是0吧应该有第一组数据出来的在print*,l,m,n,o,p后加句close（ ...

昨天已经解决了就是这个原因十分感谢

		自动登录	找回密码
密码			立即注册

[求助] 单程序结果正确,套循环就不行了

登录后查看更多精彩内容~

相关帖子