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

《tcl脚本语言的笔试题-很简单的.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、tcl脚本语言的笔试题很简单的一．填空题(每题3分，共30分)1.regexp{([0-9]+)*([a-z]+)}thereis100applestotalnumwordputs$total,$num,$word最后输出结果为___________________.参考：100apples,100,apples2.regsubthereTheylivetherelivestheirxputs$x最后输出结果为___________________.参考：Theylivetheirlives3.（每空一分）TCL提供三种形式的置换：_________，_____________和____

2、________.参考：变量置换、命令置换和反斜杠置换4.setx10Sety$x+100最后输出结果为___________________.参考：10+1005.（每空1分）Setx100Sety“$xddd”此句输出内容为__________sety{/n$x}此句输出内容为__________Sety[expr{$x+10}]此句输出内容为__________参考：100ddd/n$x1106.建立一个数组day，它有两个元素Monday,Tuesday,值分别为12创建语句为：______________________________参考：setday(monday)1set

3、day(tuesday)27.lindex{12{34}}2输出结果为_______________参考：348.linsert{12{34}178{910}输出结果为_______________参考：178{910}2{34}9.stringfirstabdefabc输出结果为_______________参考：310.catch{return“alldone”}stringSetstring输出结果为_______________参考：alldone二．简答题（每题10分，共30分）1．#!/usr/bin/tclsh##Demonstrateoperatorsand#mathfu

4、nctionssetPI[expr2*asin(1.0)]if{$argc==3}{setX[lindex$argv0]setY[lindex$argv1]setRad[lindex$argv2]setDist[exprsqrt(($X*$X)+($Y*$Y))]setCir[expr2*PI*$Rad]setArea[expr$Rad*$Rad]putsstdout“Distance=$Dist”putsstdout“Circumference=$Cir”}else{putsstdout“Wrongargumentcount!”putsstdout“NeedsX,Y,andRadius

5、”}提示，asin(1.0)值为1.Linux下以上脚本程序输出内容为：______________________________________参考：Wrongargumentcount!NeedsX,Y,andRadius2.#!/usr/bin/tclsh##Demonstateglobalvariables#andbackslashsubstitutionif{$argc>=1}{setN1foreachArg$argv{putsstdout$N:$ArgsetN[expr$N+1]if{$Arg==ring}{putsstdouta}}}else{putsstdout$

6、argv0onXDisplay$env(DISPLAY)}Linux中以上脚步命名为hello3，则运行脚本以下结果为：$./hello3.tcl______________________$./hello3.tclring_______________________3.当y值分别为abc时以下程序运行结果是什么？为什么会是这个结果setx10switch$y{a{incr$x}b{incr$y}default{incr$x}}_________________参考:均出错，incr表达式应为incr变量数值三．编程题(每题20分，共40分)编写一个过程，使用递归方法，实现阶乘运算

7、参考代码：procmain{x}{if{$x==0}{return1}else{setsum1for{seti0}{$isetsum[expr$sum+[expr$sum*$i]]}return$sum}}不用format命令，编写一个过程实现二进制数转为十进制数参考代码：proc2to10{x}{setsum0proclength{x}{stringlength$x}setn[length$x]for{seti0}{$iproca