主题：新手向各位前辈请教
lwlwd04lwlwd04
[专家分：0] 发布于 2010-09-25 10:15:00
我的问题如下：
z(i4)是一个数组，包括了很多的数。
aa=0.05
abs(z(i4)-13.7).le.aa----------判断该句，如果是能实现的，那么就输出z(i4)；如果所有的z(i4)都不能实现，则扩大搜索范围aa=aa+0.05，继续进行判断。
请大家指教，看怎么来实现我的想法呢？
谢谢~谢谢大家~
回复列表 （共6个回复）
沙发
asymptotic [专家分：16630] 发布于 2010-09-25 10:34:00
http://bbs.pfan.cn/post-304276.html
永远的新手吗？学 Fortran 15 个月，不算新手了吧。
板凳
jstzhurj [专家分：4680] 发布于 2010-09-25 10:49:00
aa=0.05
icount=0
10 continue
do i4=1,k
if(abs(z(i4)-13.7).le.aa) then
write(*,*) z(i4)
icount=icount+1
else if(i4==k.and.icount==0) then
aa=aa+0.05
goto 10
endif
enddo
3 楼
yeg001 [专家分：14390] 发布于 2010-09-25 11:27:00
LZ, 如果部分实现那是输出还是不输出数组呢? .....
4 楼
asymptotic [专家分：16630] 发布于 2010-09-25 12:53:00
[em1]
5 楼
lwlwd04lwlwd04 [专家分：0] 发布于 2010-10-13 09:13:00
asymtotic:您可真是专家，慧眼看出了我不是个新手，不过，小弟虽接触fortran时间不太短，但是只能在有空的时候接触一下fortran，所以进步缓慢，有些问题还请您和大家多指点，谢谢~
6 楼
jstzhurj [专家分：4680] 发布于 2010-10-13 22:06:00
老师的要求比较严，有则改之，无则加勉！
我来回复
您所在位置：