NS 网络模拟和协议仿真黄化吉教材的修正——continue用例P24

day02$cat 05.tcl

#!/usr/bin/tclsh
############################################################
#计算0到输入整形值的累加和；如果输入值大于11，不把11累加进去
###########################################################
puts -nonewline "Please input a number: "
flush stdout;
set x [gets stdin]
set j 0
for {set i 0} {$i<$x} {incr i} {
if ($i==11) continue;
set j [expr $j+$i]
}
puts $j

day02$ns 05.tcl 
Please input a number: 15
109
day02$ns 05.tcl 
Please input a number: 12
67