TCL语言笔记：TCL过程控制练习

1.青蛙爬井

for {set day 1;set cur 7} {$cur<77} {incr cur 2 ;incr day } {

}
puts $day

2.求1加到100

proc getsum {min {max 100}} {
    set sum 0
    for {set i $min} {$i<=$max} {incr i}    {
        incr sum $i
    }
    return $sum
}
puts [getsum 1 ]

3.返回任意多个整数的平均值

proc getavg {args} {
    set i 0
    set sum 0
    foreach n $args {
        incr i 1
        incr sum $n
    }
      set avg [expr $sum/$i]
    puts "输入的数和为$sum,平均值为$avg"
}
getavg 2 4 6 8 10

4.要求输入的参数的格式为 小明 22 小李 37 张华 54 李梅 8 返回其中年龄最大的姓名

#要求输入的参数的格式为 小明 22 小李 37 张华 54 李梅 8 返回其中年龄最大的姓名
proc getmax {args} {
    set i 0
    set name ""
    foreach {n a} $args {
        if {$a>$i} {
            set i $a
              set name $n
        }
    }
    return $name
}
puts [getmax 小明 22 小李 99 张华 54 李梅 8]