循环结构的控制变量问题

ghost_hu

for i:=1 to 9 do write(i);
write(i);
为什么输出结果是1234567899,而不是12345678910? 希望哪位能给我讲讲在free pascal中对循环结构是如何运作（流程），和出现这种结果的本质原因。谢谢！

samsam598

这个正常得不能再正常了。
循环体到了do后执行完第一个write(i)时循环宣告结束，此时i为9；执行第二句write(i)也不过是告诉程序“你再帮我打印一下看看i 现在是多少？”

东兰梦舞

语言行为定义：如果在for过程中break，那么循环变量为跳出时的值；如果循环正常结束，循环变量未定义。

samsam598

i应是在var里声明，在i:=1时获得初值，生命期直至过程结束。
在C++（c99也可以）里有这样一种情况：

1. 
   
2. for(int i=1;i<10;i++)
   
3. {
   
4.     printf("%d\n",i);
   
5. }
   
6. printf("%d\n",i);//------------------>错误，变量i 未定义
   

复制代码

有VB.Net2008里，也可以这样：

1. 
   
2. For i As integer =1 To 9
   
3. Console.Writeln("{0}",i)
   
4. Next
   
5. Console.Writeln("{0}",i)   '-------------------------->错误，变量i 未定义
   

复制代码

这两种其实都是在循环体内声明变量并初始化，离开循环时变量均已销毁。而在FP里变量都要在使用之前先声明，没有象c++和VB.NET里这种声明+赋初值+循环一趟子过的语法。在FP2.7.1里即便是在嵌套过程里,外层变量都不能被内层过程识别,内层过程声明的变量也不能被外层过程识别。所以说c语言的语法灵活，也有人说pascal是紧身夹克，虽有些拘束但不会乱来；而C则是大板斧，你想怎么使都行，不过你得祈祷不要砍在自己脚上。

1. 
   
2. procedure doOuter;
   
3. var
   
4. i:integer;
   
5. procedure doInner:
   
6. var
   
7.     j:integer;
   
8. begin
   
9.   {内层过程}
   
10.    for i：=1 to 9 do  // ------------>Error: Illegal counter variable
    
11.     for j：=1 to 9 do
    
12.      ...
    
13. end;
    
14. begin
    
15. {外层过程}
    
16. end;
    

复制代码