在Tcl語言while循環，隻要給定的條件為真,執行目標語句聲明多次。

語法

在Tcl語言while循環的語法是：

while {condition} {
   statement(s)
}

在這裡，聲明(S)可以是單個語句或語句塊。所述條件可以是任何表達，真是指任何非零值。循環迭代當條件為真。

當條件為假，則程序控製進到緊接在循環之後的代碼行。

流程圖

在這裡，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