Tcl - while 循环

Tcl 语言中的 while 循环语句会重复执行目标语句，直到给定条件为真。

语法

Tcl 语言中 while 循环的语法如下：

while {condition} {
   statement(s)
}

这里，statement(s) 可以是单个语句或语句块。condition 可以是任何表达式，非零值表示真。循环在条件为真的情况下迭代。

当条件变为假时，程序控制将传递到循环后紧随其后的行。

流程图

关于 while 循环需要注意的一点是，循环可能永远不会运行。当测试条件并结果为假时，将跳过循环体，并执行 while 循环后的第一个语句。

示例

#!/usr/bin/tclsh

set a 10

#while loop execution 
while { $a < 20 } {
   puts "value of a: $a"
   incr a
}

当以上代码被编译并执行时，会产生以下结果：

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14
value of a: 15
value of a: 16
value of a: 17
value of a: 18
value of a: 19