程序填空[1]

*请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

SET LOGERRORS ON ?FUN(345) YZJ() RETURN

FUNC FUN(N) S=\

**********Program**********

********** End ********** RETURN S SET TALK ON

FUNC YZJ()

DO YZJ22 WITH FUN(785) RETURN

---------------------- sn=str(n,3) b=left(sn,1) s=subs(sn,2,1) g=right(sn,1) s=b+'+'+s+'+'+g

*------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：三个数据表分别为学生库(STUDENT.DBF)、选课程库(XK.DBF) * 和课程库(KC.DBF),将所有选必修课的记录内容生成新库

* STUDENT1.DBF,新库中包括学号、姓名、课程号、课程名称、 * 课程类型字段。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK ON

SET LOGERRORS ON CLEAR

**********Program**********

********** End **********

CLOSE DATA

SET LOGERRORS OFF SET TALK OFF ---------------------- SELE 1 USE XK SELE 2 USE KC

JOIN WITH XK TO XK1 FIELDS A.学号,课程号,课程名称,课程类型 FOR 课程号=A.课程号 .AND. 课程类型=\选修 \SELE 3 USE XK1 SELE 4

USE STUDENT

JOIN WITH XK1 TO STUDENT1 FIELDS 学号,姓名, C.课程号,C.课程名称,C.课程类型 FOR 学号=C.学号 SELE 5

USE STUDENT1 LIST

---------------------- SELE 1 USE XK SELE 2 USE KC

JOIN WITH XK TO XK1 FIELDS A.学号,课程号,课程名称,课程类型 FOR 课程号=A.课程号 .AND. 课程类型=\选修 \SELE 3 USE XK1 SELE 4

USE STUDENT

JOIN WITH XK1 TO STUDENT1 FIELDS 学号,姓名, C.课程号,C.课程名称,C.课程类型 FOR 学号=C.学号 SELE 5

USE STUDENT1 LIST

---------------------- USE STUDENT

DO WHILE .NOT. EOF()

IF 笔试>=80 .AND. 上机>=80 REPL 等级 WITH \优秀\ENDIF SKIP ENDD LIST

------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：有学生数据表student.dbf，其中编号字段的值从1开始 * 连续排列。欲按编号的1，4，7，10，...规律抽取学生 * 参加比赛，并将满足条件的记录保存到st1.dbf中，请编 * 程完成。

* （用do while ..endd和scatter、gather语句完成） * 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK ON

SET LOGERRORS ON clear sele 1

use student sele 2 use st1 zap

**********Program**********

********** End ********** sele 2 list

close data

SET LOGERRORS OFF SET TALK OFF ---------------------- sele 1

do while .not. eof()

if mod(编号,3)=1 scatter to arry sele 2 appe blan

gather from arry endif sele 1 skip endd

*------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：编程计算三位正整数num的各位上的数字之积。 * 例如，若输入：434，则输出应该是：48。 * 将结果存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK ON

SET LOGERRORS ON ?\输入正整数num=434\num=434 OUT=-1

**********Program**********

********** End **********

DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- b=int(num/100)

s=int((num-b*100)/10) g=num out=b*s*g ? out

------------------------------------------------------- *【程序设计】

*-------------------------------------------------------