您所在位置：主题：[讨论]为什么循环体中的read*，p有这个避免无限循环的作用呢？大侠都来讨论一下
USTC2012
[专家分：0] 发布于 2010-10-03 19:07:00
real p
read*,p
do while(p>0)
print*,p
read*,p
end do
end
这段程序是书上的一个例子，但是我想不通为什么倒数第三行出现 read*,p 呢，而且我运行了一下，发现如果有一行，假设输入7，输出就是7.000000，但是如果没有这一行，就是
7.000000
7.000000
7.000000
7.000000
：：：：
无限多个
如果哪位大侠知道麻烦告诉我一下，小弟是个初学者。
read*,p
do while(p>0)
print*,p
read*,p
end do
end
这段程序是书上的一个例子，但是我想不通为什么倒数第三行出现 read*,p 呢，而且我运行了一下，发现如果有一行，假设输入7，输出就是7.000000，但是如果没有这一行，就是
7.000000
7.000000
7.000000
7.000000
：：：：
无限多个
如果哪位大侠知道麻烦告诉我一下，小弟是个初学者。