交换两个变量值的两个小程序

上一篇 / 下一篇  2009-04-24 20:00:12 / 个人分类:TCL脚本

第一种方法

proc swap { x y } {
    #定义一个临时变量
    set tmp 0
    set tmp $y
    set y $x
    set x $tmp
    #输出交换过后的x与y的值
    set msg [format "交换后的x的值为 %d ,y的值为 %d" $x $y]
    puts $msg
}
swap 3 5

第二种方法

proc swap { x y } {
    #把x与y的和赋值给x
    set x [ expr $x + $y]
    set y [ expr $x - $y]
    set x [ expr $x - $y ]
    #输出交换过后的x与y的值
    set msg [format "交换后的x的值为 %d ,y的值为 %d" $x $y]
    puts $msg
}
swap 3 5


TAG:

 

评分:0

我来说两句

Open Toolbar