yyily-100 发表于 2009-3-1 19:28

求助各位:

请问各位高手:我想先把一组数据x(i)和y(i)读入,然后数组y(i)中序号大于95的数据提出来赋给yy(i)用了这样的语句:
do i=1,1200,1   
read(2,*) x(i),y(i)
if(i.ge.95) then yy(i)=y(i)
enddo
在运行的时候它总是显示错误,请问各位到底是怎么回事啊?

欧阳中华 发表于 2009-3-1 20:43

.
   写出来的这段没有看出问题,但这段程序不完整,没有说明部分,加上说明部分也许才能看出有什么问题...

yyily-100 发表于 2009-3-2 09:51

问题解决了!

原来就是把 then 去掉就可以了,呵呵……
页: [1]
查看完整版本: 求助各位: