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

day02$cat 04.tcl 

#!/usr/bin/tclsh

####################################################
#如果输入一个不大于10的整形值，计算0到输入整形值的累加和；如果输入一个大于10的
#整型值，计算到10截止
####################################################
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>10) break;
set j [expr $j+$i]
}

puts $j

day02$ns 04.tcl 
Please input a number: 10
55

day02$ns 04.tcl 
Please input a number: 15
55