TCL脚本使用if-else语句确定数字是正数，负数还是零

在TCL脚本中，使用if-else语句可以判断一个数字是正数、负数还是零。下面我们给出一个例子：

set num -5

if {$num > 0} {
    puts "这是一个正数"
} elseif {$num < 0} {
    puts "这是一个负数"
} else {
    puts "这是零"
}

以上代码中我们定义了一个变量 num，并将其赋值为 -5。然后通过if-else语句，判断这个数字是正数、负数还是零。在if语句中，我们使用了TCL的大于号（>）和小于号（<）来进行数字的比较。如果 $num 是正数，则输出 这是一个正数；如果 $num 是负数，则输出 这是一个负数；如果 $num 是零，则输出 这是零。

当然，我们在这里只判断了一个数字，如果想要判断多个数字，则可以使用循环语句（如 for 或 while）结合if-else语句来实现。