1、 tcl腳本語言的筆試題 很簡(jiǎn)單的一填空題(每題3分，共30分)1. regexp (0-9+) *(a-z+) there is 100 apples total num wordputs $total ,$num,$word 最后輸出結(jié)果為_.參考：100 apples ,100,apples2. regsub there They live there lives their xputs $x最后輸出結(jié)果為_.參考：They live their lives3.（每空一分）TCL提供三種形式的置換：_，_和_.參考：變量置換、命令置換和反斜杠置換4. set x 10Set y $x+1

2、00最后輸出結(jié)果為_.參考：10+1005.（每空1分）Set x 100Set y “$x ddd” 此句輸出內(nèi)容為_set y /n $x 此句輸出內(nèi)容為_Set y expr $x+10此句輸出內(nèi)容為_參考：100 ddd/n $x1106.建立一個(gè)數(shù)組day，它有兩個(gè)元素Monday,Tuesday,值分別為1 2創(chuàng)建語句為：_參考：set day(monday) 1set day(tuesday) 27. lindex 1 2 3 4 2輸出結(jié)果為_參考：3 48. linsert 1 2 3 4 1 7 8 9 10輸出結(jié)果為_參考：1 7 8 9 10 2 3 49.string

3、 first ab defabc輸出結(jié)果為_參考：310. catch return “all done” stringSet string輸出結(jié)果為_參考：all done二簡(jiǎn)答題（每題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下以上腳本程序輸出內(nèi)容為：_參考： 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，則運(yùn)行腳本以下結(jié)果為：$ ./hello3.tcl_$ ./hello3.tcl ring_3.當(dāng) y值分別為 a b c時(shí)以下程序運(yùn)行結(jié)果是什么？為什么會(huì)是這個(gè)結(jié)果set x 10swi

6、tch $y a incr $xb incr $ydefault incr $x_參考:均出錯(cuò)，incr表達(dá)式應(yīng)為 incr 變量 數(shù)值三編程題(每題20分，共40分)編寫一個(gè)過程，使用遞歸方法，實(shí)現(xiàn)階乘運(yùn)算參考代碼：proc main x if $x=0 return 1 else set sum 1for set i 0 $iset sum expr $sum+expr $sum*$ireturn $sum不用format命令，編寫一個(gè)過程實(shí)現(xiàn)二進(jìn)制數(shù)轉(zhuǎn)為十進(jìn)制數(shù)參考代碼：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