资源描述：
《程序复习及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、程序设计复习一、写出以下程序结果1.写出下列程序运行结果（程序结果1.PRG）settalkoffk=1&&K为循环变量a1=10a2=A1+5&&a2的值为15a3=a1-5&&a3的值为5a4=a1+a2&&a4的值为25s=100dowhilek<5k循环次数MS=S+2*&M11A1S=100+2*A1=12032A3S=120+2*A3=1305跳出循环store"A"+str(k,1)toM&&将表达式“"A"+str(k,1)”的值赋给变量Ms=s+2*&Mk=k+2enddo?sreturn运行结果：1302．写出下列程序运行结
2、果Test3.DBFTest2.DBFTest1.DBFcleaselea&&打开1号工作区usetext1&&打开子表文件text1.DBFseleb&&打开2号工作区usetext2&&打开父表文件text2.DBFsetrelationtorecno()intoa&&以记录号与子表关联selec&&打开3号工作区usetext3&&打开父表文件text3.DBFsetrelationtorecno()intb&&以记录号与子表text2.DBF关联seleb&&打开2号工作区go8&&记录指针指向第8条记录?recno(),recno(1
3、),recno(3)&&recno()测试当前工作区记录号,recno(1)测试1号工作区记录号,recno(3)测试3号工作区记录号closedatabase结果：881说明：父表的指针移动，子表的指针会跟着移动，子表的指针移动不会带动父表移动。3.写出下列程序运行结果SETTALKOFFSTORE0TOS,T,PFORK=1TO10DOCASECASEINT(K/2)=K/2&&满足条件的数的偶数：2、4、6、8、10T=T+KCASEINT(K/5)=K/5&&满足条件能被5整除的数：5S=S+KOTHERWISE&&不满足上面条件余下的
4、数：1、3、7、9P=P+KENDCASEENDFOR?S,T,P执行以上程序，运行结果是：53020说明：如果一个值满足多个CASE语句中的条件，只执行最先满足条件的CASE语句，不会重复执行。比如5能被5整除，也是奇数，它只能加在S变量中，不能加在P变量中。10也能被5整除，但10也满足第一个偶数的条件，故10只能加在装偶数的变量T中，且不会执行第二个CASE语句。4.设表文件XSK.DBF的内容如下：记录号学号姓名性别出生日期四级通过否奖学金120020101李小飞男07/08/82.T.400.00220020201王美英女05/01/
5、83.T.500.00320020102张欣女09/20/83.F.200.00420020303王小平男08/06/84.T.500.00520020204赵丽娟女08/02/81.F.300.00620020301高军男10/25/83.T.600.00阅读下列程序，写出程序的运行结果：SETTALKOFFCLEARUSEXSKCOPYTOCK1FOR出生日期>CTOD("01/01/84")USECK1APPENDFROMXSKFOR学号<"19980200"GOBOTTOM?RECNO(),学号,姓名USESETTALKONRETURN
6、运行结果是：120020303王小平说明：出生日期大于84年1月1日的记录只有一条记录(注意：出生日期大，年龄就小)，即84年8月6日出生的王小平，因此COPY命令只复制了一条记录。而追加的记录没有学号小于“19980200”的记录，实际上CK1中仍然只有王小平一条记录，所以最后的结果是CK1中王小平的记录号、学号、姓名。N——被除数S——要进行转换的数Y——16进制的数码X——转换后的16进制数B——商A——转换过程中的余数，也是下一次的被除数N。一、程序填空1．下面程序的功能：从键盘输入一个十进制的数N，将N转换成相应的十六进制整数表示。请
7、填空。cleainput"输入一个正整数："TOns=ny="0123456789ABCDEF"x=""doWHILEn<>0b=INT(n/16)a=n-b*16(①)&&x=substr(y,a+1,1)+x(②)&&n=bENDDO?S,"-->",x,"h"return说明：(1)取数从a+1位置取数是因为Y="0123456789ABCDEF"，当余数为0时应取第1位数，余数为1时应取第二位数，以此类推，故取数位置就从a+1处开始。(2)如将上述程序中对应16的地方换成2或8就可进行2进制和8进制的转换。若换成任意数R，也可以完成十进
8、行到R进制的转换。2．下面程序的功能是：输入10个非零整数(至少要有一个正整数)，对其中的正整数计算阶乘。请填空完善该程序。CLEARK=10&&K为
