NS2 Tcl語言基礎知識加深強化

1 if和輸入輸出

puts -nonewline "Please input a number: "     ;#-nonewline表示不換行

flush stdout      ;#清空輸出緩沖區

set x [gets stdin]     ;#把輸入的數字指派給x

if { $x<0 } then {

puts "The input number $x less than 0"

} elseif { $x == 0 } {

puts "The input number $x equal 0"

} else {

puts "The input number $x bigger than 0"

}

2 break

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 } {     ;# 特别注意這一點的括号啊 一個也不能少啊，少一個就運作錯誤 continue也是一樣的

continue

}

set j [expr $j + $i]

}

puts $j

3 continue

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