在Tcl语言break语句用于终止循环。当循环中遇到break语句，循环立即终止，程序控制继续循环体后面的语句。
如果使用嵌套循环(即，一个循环在另一个循环体中)，break语句将停止最内层循环的执行，并开始执行的下一行代码段程序之后。
Tcl break语句的语法如下：
break;
#!/usr/bin/tclsh
set a 10
# while loop execution
while {$a < 20 } {
puts "value of a: $a"
incr a
if { $a > 15} {
# terminate the loop using break statement
break
}
}
当上述代码被编译和执行时，它产生了以下结果：
value of a: 10 value of a: 11 value of a: 12 value of a: 13 value of a: 14 value of a: 15
