Tcl - Bucle while

UN while La instrucción de bucle en el lenguaje Tcl ejecuta repetidamente una instrucción de destino siempre que una condición dada sea verdadera.

Sintaxis

La sintaxis de un while bucle en el lenguaje Tcl es -

while {condition} {
   statement(s)
}

Aquí, statement(s)puede ser una sola declaración o un bloque de declaraciones. losconditionpuede ser cualquier expresión y verdadero es cualquier valor distinto de cero. El ciclo se repite mientras la condición es verdadera.

Cuando la condición se vuelve falsa, el control del programa pasa a la línea inmediatamente siguiente al ciclo.

Diagrama de flujo

El punto a tener en cuenta sobre el whilebucle es que es posible que el bucle nunca se ejecute. Cuando se prueba la condición y el resultado es falso, se omitirá el cuerpo del bucle y se ejecutará la primera instrucción después del bucle while.

Ejemplo

#!/usr/bin/tclsh

set a 10

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

Cuando se compila y ejecuta el código anterior, produce el siguiente resultado:

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