程序复习及答案.docVIP

程序设计复习 一、 写出以下程序结果 1. 写出下列程序运行结果（程序结果1.PRG） set talk off k=1 K为循环变量 a1=10 a2=A1+5 a2的值为15 a3=a1-5 a3的值为5 a4=a1+a2 a4 的值为25 s=100 do while k5 k 循环次数 M S=S+2*M 1 1 A1 S=100+2*A1=120 3 2 A3 S=120+2*A3=130 5 跳出循环 store A+str(k,1) to M 将表达式“A+str(k,1)”的值赋给变量M s=s+2*M k=k+2 enddo ?s return 运行结果：130 2．写出下列程序运行结果 clea sele a 打开1号工作区 use text1 打开子表文件text1.DBF sele b 打开2号工作区 use text2 打开父表文件text2.DBF set relation to recno() into a 以记录号与子表关联 sele c 打开3号工作区 use text3 打开父表文件text3.DBF set relation to recno() int b 以记录号与子表text2.DBF关联 sele b 打开2号工作区 go 8 记录指针指向第8条记录 ?recno(),recno(1),recno(3) recno()测试当前工作区记录号, recno(1)测试1 号工作区记录号, recno(3)测试3号工作区记录号 close database 结果：8 8 1 说明：父表的指针移动，子表的指针会跟着移动，子表的指针移动不会带动父表移动。 3. 写出下列程序运行结果 SET TALK OFF STORE 0 TO S,T,P FOR K=1 TO 10 DO CASE CASE INT(K/2)=K/2 满足条件的数的偶数：2、4、6、8、10 T=T+K CASE INT(K/5)=K/5 满足条件能被5整除的数：5 S=S+K OTHERWISE 不满足上面条件余下的数：1、3、7、9 P=P+K ENDCASE ENDFOR ?S,T,P 执行以上程序，运行结果是：5 30 20 说明：如果一个值满足多个CASE语句中的条件，只执行最先满足条件的CASE语句，不会重复执行。比如5能被5整除，也是奇数，它只能加在S变量中，不能加在P变量中。10也能被5整除，但10也满足第一个偶数的条件，故10只能加在装偶数的变量T中，且不会执行第二个CASE语句。 4. 设表文件XSK.DBF的内容如下： 记录号 学号 姓名 性别 出生日期 四级通过否 奖学金 1 李小飞 男 07/08/82 .T. 400.00 2 王美英 女 05/01/83 .T. 500.00 3 张欣 女 09/20/83 .F. 200.00 4 王小平 男 08/06/84 .T. 500.00 5 赵丽娟 女 08/02/81 .F. 300.00 6 高军 男 10/25/83 .T. 600.00 阅读下列程序，写出程序的运行结果： SET TALK OFF CLEAR USE XSK COPY TO CK1 FOR 出生日期CTOD(01/01/84) USE CK1 APPEND FROM XSK FOR 学号GO BOTTOM ? RECNO( ),学号,姓名 USE SET TALK ON RETURN 运行结果是：1 王小平 说明：出生日期大于84年1月1日的记录只有一条记录(注意：出生日期大，年龄就小)，即84年8月6日出生的王小平，因此COPY命令只复制了一条记录。而追加的记录没有学号小于的记录，实际上CK1中仍然只有王小平一条记录，所以最后的结果是CK1中王小平的记录号、学号、姓名。 二、 程序填空 1．下面程序的功能：从键盘输入一个十进制