计算机期末操作Word格式文档下载.docx
- 文档编号:18816640
- 上传时间:2023-01-01
- 格式:DOCX
- 页数:16
- 大小:18.10KB
计算机期末操作Word格式文档下载.docx
《计算机期末操作Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《计算机期末操作Word格式文档下载.docx(16页珍藏版)》请在冰豆网上搜索。
SETTALKON
RETURN
*【程序填空3】
求1到50的累加和(S=1+2+3+...+50)并显示。
请在【】处添上
*适当的内容,使程序完整。
h=0
I=1
DOWHILEi<
=50
H=H+I
i=i+1
?
H
*【程序填空4】
实现:
求0-100之间的奇数之和,超出范围则退出。
请在【】处
*添上适当的内容,使程序完整。
本题中,不允许使用不等于运算符
X=0
Y=0
DOWHILE.T.
X=X+1
CASEmod(x,2)=0&
&
int(X/2)=X/2
LOOP
CASEX>
=100
exit
OTHERWISE
Y=Y+X
enddo
"
0-100之间的奇数之和为:
Y
*【程序填空5】
依次显示XSDB5.DBF数据表中的记录内容。
请在【】处添上适当
*的内容,使程序完整。
不允许使用逻辑常量.T.和.F.
USEXSDB5
DOWHILE
DISP
wait
USE
*【程序填空6】
下面程序为求阶乘,请在【】处添上适当
CLEAR
STORE0TON,S
@10,10SAY"
N="
GETN
******************SPACE***************
read
DOSUB1WITHN,S
N!
="
S
PROCSUB1
PARAMETERSb,a
STORE1TOB,T
DOWHILET<
=A
B=B*T
T=T+1
*【程序填空7】
下列程序是计算1~30之间能够被3整除的奇数的阶乘和,请在【】处添上适当
*主程序
S=0
FORI=1TO30STEP2
IFMOD(I,3)=0
DOP1withi
S=S+N
ENDIF
ENDFOR
S="
+STR(S)
*过程P1.PRG
PARAMETERSM
publicn
N=1
FORJ=1TOM
N=N*J
*【程序填空8】
下面程序从键盘输入10个数,然后找出其中的最大值与最小值,最大值存放在变量MA中,最小值存放在变量MI中,请在【】处添上适当的内容,使程序完整。
INPUT"
X="
TOX
storextoma,mi
I=2
DOWHILEI<
=10
INPUT"
IFX>
MA
MA=X
ENDIF
IFX<
MI
MI=X
MA,MI
*
*【程序填空1】
在XSDB.DBF数据表中查找学生王迪,如果找到,则显示:
*学号、姓名、英语,生年月日,否则提示"
查无此人!
"
。
Usexs
XM="
王迪"
Locatefor姓名=XM
IFFOUN()
?
学号,姓名,英语,生年月日
ELSE
程序改错
*【程序改错3】
*题目:
接收键盘输入的任意5个整数(不超过3位数),找出其中的最
*大数并显示。
程序中共有2个错误。
不可以增加或删除程序行,也不可以更改程序的结构。
请输入第一个数:
TOX25
STOREXTOMA
N=5
***********FOUND**********
DOWHILEN>
=2
请输入下一个数:
IFMA<
X
N=N-1
最大数="
+str(MA,3)
*【程序改错4】
打开XSDB4.DBF数据表,分别统计男、女生的人数。
USEXSDB4
STOR0TOB,G
DOWHILE.NOT.EOF()
IF性别="
男"
B=B+1
else
G=G+1
SKIP
男生人数是:
+STR(B)
女生人数是:
+STR(G)
*【程序改错5】
求1+5+9+13+…+97的和
**********FOUND**********
N=0
DOWHILEN<
=97
S=S+n
N=N+4
ENDdo
S
*【程序改错】8
查找RSH8.dbf中女职工的最高工资,并显示其姓名和工资。
*“性别是女”的条件,不允许使用“性别不是男”表示
USERSH8
MGZ=0
IFMGZ<
工资
MGZ=工资
MXM=姓名
skip
MXM,MGZ
*【程序改错】9
表XSDA9.DBF结构为:
学号(C,6),姓名(C,6),
*性别(C,2),入学成绩(N,6,2)。
*本程序实现按学号查找记录,直到输入"
#"
为止。
USEXSDA9
ACCEPT"
请输入要查找的学号"
toXH
DOWHILEXH!
="
LOCATEFOR成绩=xh
IFFOUND()
学号,姓名,入学成绩
ELSE
无此学号"
ACCEPT"
请继续输入要查找的学号"
TOXH
谢谢使用本查找系统"
*【程序改错】12
在XSDB12.DBF表中统计法律和中文两个系的总人数和奖学金总额。
USEXSDB12
STORE0TOR,S
IF系别="
法律"
.or.系别="
中文"
STORES+奖学金TOS
R=R+1
ENDIF
SKIP
IF.eof()&
found和locatefor配套
EXIT
S,R
-------------------------------------------------------
*【程序改错】13
显示XSDB12.DBF中每个学生的姓名、计算机成绩和等级;
等
*级划分如下:
计算机成绩大于等于90显示"
优秀"
;
60到89
*(包括60和89)之间显示"
及格"
60分以下显示"
补考"
*如显示:
张丽娜90优秀。
USEXSDB13
DOWHIL.NOT.EOF()
姓名,计算机&
list只能看到成绩
'
优秀'
=60
及格'
补考'
skip&
移到下一个为skip
*【程序改错】14
计算出1到50以内(包含50)能被2和3整除的数之和。
STOR0TOX,Y
DOWHILE.t.()&
mei打开表,谈不上这个,用无条件真
CASEMOD(X,2)=0ANDMOD(X,3)=0
CASEX<
loop
50
EXIT
Y
*【程序改错】20
用户选择菜单中的功能序号,程序将根据序号对数据表
*XSDB20.DBF进行对应的操作。
USEXSDB20
1-追加记录2-修改记录3-显示记录0-结束程序"
请选择(1,2,3,0):
TOANS
IFANS>
3.or.ANS<
WAIT"
输入错误,按任意键重新输入!
LOOP
DOCASE
CASEANS=1
APPE
CASEANS=2
BROW
CASEANS=3
LIST
*【程序改错】21
从键盘上输入5个数,将其中奇数求和,偶数求积。
S1=0
S2=1
FORI=1TO5
请输入第"
+STR(I,1)+"
数"
TOM
***********FOUND**********IFmod(M/2)=0
S1=S1+M
S2=S2*M
奇数和是"
S1
偶数积是"
S2
*【程序改错】22
计算1!
+3!
+9!
的结果并输出。
M=1
DOWHILEM<
=9
STOR1TOI,P
P=1
DOWHILEI<
=M
P=P*I
I=I+1
ENDDO
S=S+P
M=M*3
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 期末 操作
![提示](https://static.bdocx.com/images/bang_tan.gif)