ex-tcl.tcl

来自「相关搜索: ns2仿真结果分析 all-awk ns2 ns2 无限网络中awk」· TCL 代码 · 共 18 行

# Writing a procedure called "test"
proc test {} {
    set a 43
    set b 27
    set c [expr $a + $b]
    set d [expr [expr $a - $b] * $c]
    for {set k 0} {$k < 10} {incr k} {
	if {$k < 5} {
	    puts "k < 5, pow = [expr pow($d, $k)]"
	} else {
	    puts "k >= 5, mod = [expr $d % $k]"
	}
    }
}

# Calling the "test" procedure created above
test