数据库填空.docx

数据库填空.docx

《数据库填空.docx》由会员分享，可在线阅读，更多相关《数据库填空.docx（16页珍藏版）》请在冰豆网上搜索。

数据库填空

1、程序的功能是：

在在学生表中查找并输出指定学生的所有信息。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

CLEAR

USE学生

---1----&&此处填空

ACCEPT"请输入指定的学生学号:

"TOXH

SEEKXH

IF---2----&&此处填空

?

"查无此人!

"

ELSE

----3----&&此处填空

ENDIF

USE

SETTALKON

2、给定程序的功能是：

判断给定的正整数值表达式的值是否为素数。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

CLEAR

DOWHILE.T.

INPUT"请输入一个正整数:

"TOX

----1----&&此处填空

IFINT（X/I）=X/I

EXIT

ENDIF

ENDFOR

IF----2----&&此处填空

?

X,"是素数!

"

ELSE

?

X,"不是素数!

"

ENDIF

WAIT"是否继续输入（Y/N）"TOYN

----3-----&&此处填空

LOOP

ELSE

EXIT

ENDIF

ENDDO

SETTALKON

3、给定程序的功能是:

输入边长，如果能构成三角形，则计算三角形面积。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

---1----&&此处填空

CLEAR

INPUT"输入第一边长:

"TOX

INPUT"输入第二边长:

"TOY

INPUT"输入第三边长:

"TOZ

IFX=0.OR.Y=0.OR.Z=0.OR.X+Y<=Z.OR.Y+Z<=X.OR.X+Z<=Y

?

"尺寸有误,重新输入!

"

---2----&&此处填空

ENDIF

EXIT

ENDDO

U=（X+Y+Z）/2

---3-----&&此处填空

?

"AREA="+ALLTRIM（STR（M，19，2））

SETTALKOFF

4、给定程序的功能是:

在屏幕上显示输出一个乘法九九表。

显示格式如下:

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

CLEAR

----1---&&此处填空

DOWHILEX<=9

Y=1

DOWHILEY<=X

----2------&&此处填空

Y=Y+1

ENDDO

----3----&&此处填空

X=X+1

ENDDO

SETTALKON

5、给定程序的功能是:

根据输入的数据,计算不大于该数的所有奇数累加和。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

CLEAR

YN="Y"

DOWHILE---1----&&此处填空

INPUT"请输入两位以内的正整数：

"TON

STORE0TOX,Y

DOWHILEX

X=X+1

IF---2-----&&此处填空

Y=Y+X

ENDIF

ENDDO

?

"不大于该数的奇数累加和="+STR（Y,4）

---3---"继续计算否？

（Y/N）"TOYN&&此处填空

ENDDO

?

"再见！

"

SETTALKON

6、给定程序的功能是:

根据输入的数据，判断该数是否为偶数,可以循环输入。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

CLEAR

YN="Y"

----1----&&此处填空

INPUT"请输入一个自然数：

"TON

IF---2-----&&此处填空

?

"不是偶数!

"

ELSE

?

"是偶数!

"

ENDIF

----3----"继续否？

（Y/N）"TOYN&&此处填空

ENDDO

?

"再见！

"

SETTALKON

7、给定程序的功能是:

显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

DOWHILE.T.

CLEAR

ACCEPT"请输入表名（扩展名略）：

"TOTBN

IFFILE（"&TBN..DBF"）

----1-----&&此处填空

ELSE

WAIT"指定的表不存在!

"

LOOP

ENDIF

?

"表中的全部字段名列表:

"

FORN=1TO---2----&&此处填空

?

FIELD（N）

ENDFOR

ACCEPT"请输入显示表信息的条件：

"TOEXPR

LIST---3-----&&此处填空

WAIT"是否继续（Y/N）?

:

"TOYN

IFUPPER（YN）!

="Y"

EXIT

ENDIF

ENDDO

USE

SETTALKON

8、给定程序的功能是：

接收从键盘输入的任意10个数，输入的数字可以是负数，但包括符号位最多三位。

程序的功能是，找出其中最大的数和最小的数字，最后显示出来。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

CLEAR

INPUT"请输入第一个数字：

"TOX

ZD=X

----1----&&此处填空

N=10

----2----&&此处填空

INPUT"请输入下一个数字：

"TOX

IFZD

ZD=X

ENDIF

IF----3----&&此处填空

ZX=X

ENDIF

N=N-1

ENDDO

?

"最大数：

"+STR（ZD,3,0）,"最小数：

"+STR（ZX,3,0）

SETTALKON

9、程序的功能是,显示输出学生表中每个班级的男女同学的奖学金总金额。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

CLEAR

USE学生

INDEXON学号TOINN0

?

"**********各班男女奖学金总额统计************"

?

"班级男同学奖学金总额女同学奖学金总额"

----1----&&此处填空

CLASS=LEFT（学号,3）

STORE0TOBOYS,GIRLS

DOWHILE----2-----&&此处填空

IF性别

BOYS=BOYS+奖学金

ELSE

GIRLS=GIRLS+奖学金

ENDIF

----3----&&此处填空

ENDDO

?

CLASS+STR（BOYS,19,2）+STR（GIRLS,19,2）

ENDDO

USE

SETTALKON

10、给定程序的功能是：

返回给定的字符串表达式的倒置字符串。

如:

输入字符串"ABCD",倒置后输出的字符串为"DCBA"。

填空要求：

程序中共有三个填空，请在“---n---”处填空（注意：

不能删除“&&此处填空”，以便于检查），并调试运行。

不得增加或删减程序行。

SETTALKOFF

CLEAR

ACCEPT"请输入一个字符串:

"TOX

---1----&&此处填空

L=LEN（X）

---2-----&&此处填空

Q=SUBSTR（X,L,1）

C=----3----&&此处填空

L=L-1

ENDDO

?

"倒置字符串是:

"+C

RETURN

SETTALKON

11、本程序实现:

利用公式ex=1+X+X2/2!

+X3/3!

+…+Xn/n!

，输入X和N，计算ex的近似值。

SETTALKOFF

CLEAR

INPUT'X='TOX

INPUT'N='TON

A=1

B=1

S=1

---2---&&此处填空

A=A*X

B=B*I

---3---&&此处填空

ENDFOR

?

'S=',S

SETTALKON

12、本程序实现:

输入一个正整数M，判断并显示1~M中有哪些数可以分为两个相等的素数。

（如M=10，有3个数符合，即2+2=4，3+3=6和5+5=10）

SETTALKOFF

CLEAR

INPUT'M='TOM

IFINT（M）!

=MORABS（M）!

=M

?

'输入数据不符合题目要求！

'

----1----&&此处填空

S=0

FORI=2TOM/2

FOR----2-----&&此处填空

IFI%J=0

EXIT

ENDIF

ENDFOR

-----3----&&此处填空

S=S+1

?

ALLTRIM（STR（J*2,19））+"="+ALLTRIM（STR（J,19））+"+"+ALLTRIM（STR（J,19））

ENDIF

ENDFOR

?

ALLTRIM（STR（M,19））+"中共有：

"+STR（S,3）+"个数满足条件"

SETTALKON

13、本程序实现口令验证。

输入次数在3次以内，给予重输的提示，超过3次，则进入死循环。

SETTALKOFF

CLEAR

I=1

DOWHILE.T.

?

"请输入口令="

SETCONSOLEOFF

ACCEPTTOKL

SETCONSOLEON

IFKL=="ABC"

?

"欢迎使用本系统！

"

----1----&&此处填空

ENDIF

----2-----&&此处填空

?

"无权使用本系统！

"

DOWHILE.T.

ENDDO

ENDIF

?

"口令第"+STR（I,1）+"次错，再试一次！

"

----3----&&此处填空

ENDDO

SETTALKON

14、本程序显示学生表中的获得奖学金的学生姓名和奖学金数额

SETTALKOFF

CLEAR

USE学生

------1------&&此处填空

IF----2----&&此处填空

?

姓名,奖学金

SKIP

ELSE

----3----&&此处填空

ENDIF

ENDDO

USE

SETTALKON

15、本程序显示学生表中1971年或以前出生的学生姓名和出生年月（日期型）。

SETTALKOFF

CLEAR

USE学生

LOCATE----1----&&此处填空

----2----&&此处填空

?

姓名,出生年月

----3----&&此处填空

ENDIF

ENDDO

USE

SETTALKON

16.本程序计算一个十进制正整数N的各位数字之和。

SETTALKOFF

CLEAR

INPUT"M="TOM

IFINT（M）!

=MORABS（M）!

=M

?

"输入的数据不符合题目要求！

"

---1----&&此处填空

S=0

DO---2----&&此处填空

T=MOD（M,10）

S=S+T

M=---3----&&此处填空

ENDDO

?

S

ENDIF

SETTALKON

17.本程序实现从键盘中输入5个数，去掉一个最大数和一个最小数，然后求平均值。

SETTALKOFF

CLEAR

INPUT'N='TON

STORENTOA，B，S&&此处填空

FORI=1TO4

INPUT'N='TON

IF---2----&&此处填空

A=N

ENDIF

IFB>N

B=N

ENDIF

---3----&&此处填空

ENDFOR

?

'平均值=',（S-A-B）/3

SETTALKON

18．程序1：

求1!

+3!

+5!

+…+N!

，N由键盘输入。

SETTALKOFF

CLEAR

---1----&&此处填空

STORE0TOS,T

FORI=1TONSTEP2

DOSUB

---2----&&此处填空

ENDFOR

?

S

SETTALKON

PROCSUB

T=1

FORJ=1TOI

---3----&&此处填空

ENDFOR

19．设变量N的输入值为5，字符A的ASCII码为65。

程序的运行如下图所示：

SETTALKOFF

CLEAR

INPUT"N="TON

FORI=1TON

？

---1----&&此处填空

FORJ=1TO---2----&&此处填空

?

?

---3----&&此处填空

ENDFOR

ENDFOR

SETTALKON

20.将表“学生.DBF”中指定学生（由键盘输入）的奖学金加60，并显示该学生的记录。

SETTALKOFF

CLEAR

USE学生

ACCEPT“输入学号=”TOM

---1----&&此处填空

IF!

EOF（）

---2----&&此处填空

DISP

ELSE

?

”没有找到！

”

---3----&&此处填空

USE

SETTALKON

21．下面程序统计指定学生的平均成绩及该成绩的档次。

SETTALKOFF

CLEAR

USE成绩

ACCEPT"请输入学生的学号：

"TOXH

---1----&&此处填空

IF!

FOUND（）

?

"查无此人!

"

ELSE

---2----&&此处填空

DOCASE

CASEPJCJ>=90

DC="优"

CASEPJCJ>=80

DC="良"

CASEPJCJ>=70

DC="中"

CASEPJCJ>=60

DC="及格"

---3----&&此处填空

DC="不及格"

ENDCASE

?

"学号","平均成绩","档次"

?

XH,STR（PJCJ,8,2）,DC

ENDIF

USE

SETTALKON

22．程序输出的结果如下图所示：

SETTALKOFF

CLEA

A="*"

---1----&&此处填空

FORK=1TOH

?

---2----&&此处填空

FORT=1TO---3----&&此处填空

?

?

A

ENDFOR

ENDFOR

SETTALKON

23．编一将日期转换成中文星期的自定义函数。

---1----&&此处填空

n=---2----&&此处填空

docase

casen=1

c="星期日"

casen=2

c="星期一"

casen=3

c="星期二"

casen=4

c="星期三"

casen=5

c="星期四"

casen=6

c="星期五"

casen=7

c="星期六"

other

c="输入有错!

"

endcase

---3----&&此处填空

24．本程序实现“百钱买百鸡”的计算（取自《算经》：

“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。

百钱买百鸡，问鸡翁、母、雏各几何？

）

SETTALKOFF

CLEAR

FORX=0TO20

FOR---1----&&此处填空

Z=100-X-Y

IF---2----&&此处填空

?

"X="+STR（X,2）,"Y="+STR（Y,2）,"Z="+STR（Z,2）

ENDIF

ENDFOR

---3----&&此处填空

SETTALKON

25．输入一个自然数，判断该数是否为完数。

（完数的定义：

若该数除本身之外的所有因子之和等于该数，则为完数。

如：

1+2+3=6，6为完数；1+2+4#8，8不是完数。

）

SETTALKOFF

CLEAR

INPUT"M="TOM

N=1

---1----&&此处填空

FORN=1TOM-1

IF---2----&&此处填空

S=S+N

ENDIF

ENDFOR

IF---3----&&此处填空

?

M,"是完数！

"

ELSE

?

M,"不是完数！

"

ENDIF

SETTALKON