本文主要是介绍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
这篇关于NS2 Tcl语言基础知识加深强化的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!