While loop TCL:：如何在TCL中使用while循环打印从10到1的数字（如何减小可变值）

TCL脚本：

set a 10
while {$a < 1} {
    puts $a
    incr a
}

我正在尝试打印从10到1的数字。但它不起作用，它什么也不打印

有没有办法减小变量值decra

谢谢

---

Kumar

将条件更改为$a>1并减小该值，必须使用增量a-1。这里我们给出的步骤是-1

将条件更改为$a>1并减小该值，必须使用增量a-1。这里我们给出的步骤是-1

for循环也可以执行相同的操作

for {set i 10} {$i > 1} {incr i -1} {
puts $i

}

---

同样，for循环也可以实现

for {set i 10} {$i > 1} {incr i -1} {
puts $i

}

---

我认为您的循环体永远不会执行，因为条件在第一次生成false。你可能想写>而不是，我想你的循环体永远不会被执行，因为条件第一次就产生了false。您可能希望编写>而不是while$a小于1但$a为10，这样它甚至不会进入while循环；while$a小于1但$a为10，这样它甚至不会进入while循环