tcl while语句中嵌套if

语句的语法格式如下：

while {条件} {
  if {条件} {
    # 嵌套的if语句块
  } else {
    # 嵌套的else语句块
  }
  # 其他语句块
}

示例代码：

set i 0
while {$i <= 5} {
  if {$i % 2 == 0} {
    puts "$i 是偶数"
  } else {
    puts "$i 是奇数"
  }
  set i [expr {$i + 1}]
}

运行结果：

0 是偶数
1 是奇数
2 是偶数
3 是奇数
4 是偶数
5 是奇数