tcl脚本语言的笔试题-很简单的

1、 tcl脚本语言的笔试题 很简单的一填空题(每题3分，共30分)1. regexp (0-9+) *(a-z+) there is 100 apples total num wordputs $total ,$num,$word 最后输出结果为_.参考：100 apples ,100,apples2. regsub there They live there lives their xputs $x最后输出结果为_.参考：They live their lives3.（每空一分）TCL提供三种形式的置换：_，_和_.参考：变量置换、命令置换和反斜杠置换4. set x 10Set y $x+1

2、00最后输出结果为_.参考：10+1005.（每空1分）Set x 100Set y “$x ddd” 此句输出内容为_set y /n $x 此句输出内容为_Set y expr $x+10此句输出内容为_参考：100 ddd/n $x1106.建立一个数组day，它有两个元素Monday,Tuesday,值分别为1 2创建语句为：_参考：set day(monday) 1set day(tuesday) 27. lindex 1 2 3 4 2输出结果为_参考：3 48. linsert 1 2 3 4 1 7 8 9 10输出结果为_参考：1 7 8 9 10 2 3 49.string

3、 first ab defabc输出结果为_参考：310. catch return “all done” stringSet string输出结果为_参考：all done二简答题（每题10分，共30分）1#!/usr/bin/tclsh#Demonstrate operators and#math functionsset PI expr 2*asin(1.0)if $argc=3 set X lindex $argv 0set Y lindex $argv 1set Rad lindex $argv 2set Dist expr sqrt($X*$X)+($Y*$Y)set Cir ex

4、pr 2*PI*$Radset Area expr $Rad*$Radputs stdout “Distance = $Dist”puts stdout “Circumference = $Cir” else puts stdout “Wrong argument count!”puts stdout “Needs X,Y ,and Radius”提示，asin(1.0)值为1. Linux下以上脚本程序输出内容为：_参考： Wrong argument count!Needs X,Y ,and Radius2. #!/usr/bin/tclsh#Demonstate global varia

5、bles#and backslash substitutionif $argc =1 set N 1foreach Arg $argv puts stdout $N:$Argn set N expr $N +1 if $Arg= ring puts stdout a else puts stdout $argv0 on X Display $env(DISPLAY)n Linux中以上脚步命名为hello3，则运行脚本以下结果为：$ ./hello3.tcl_$ ./hello3.tcl ring_3.当 y值分别为 a b c时以下程序运行结果是什么？为什么会是这个结果set x 10swi

6、tch $y a incr $xb incr $ydefault incr $x_参考:均出错，incr表达式应为 incr 变量 数值三编程题(每题20分，共40分)编写一个过程，使用递归方法，实现阶乘运算参考代码：proc main x if $x=0 return 1 else set sum 1for set i 0 $iset sum expr $sum+expr $sum*$ireturn $sum不用format命令，编写一个过程实现二进制数转为十进制数参考代码：proc 2to10 x set sum 0proc length x string length $xset n length $xfor set i 0 $iproc a x i string index $x end-$iif a $x $i=0 elseif a $x $i=1 set a expr pow(2,$i)set b exp