数据库改错Word格式文档下载.docx
《数据库改错Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《数据库改错Word格式文档下载.docx(18页珍藏版)》请在冰豆网上搜索。
2、本程序在屏幕上显示如下图形:
1
12
123
1234
12345
CLEA
K=1
DOWHILK<
=5
C=1
******1******
DOWHILC<
C
C=C+1
ENDDO
******3******
K=K-1
3、本程序实现指定表指定条件的任意查询功能。
SETTALKOFF
CLEAR
ACCEPT"
(扩展名略)"
此表不存在!
USE(FNAME)
+STR(ZDSM)+"
FIELD(I)
请输入显示表信息的条件表达式:
TOEXP
LISTFOREXP
USE
SETTALKON
4、本程序将成绩表中成绩小于60分的学号、课程号及成绩显示出来。
USE成绩
'
------------------------------------------'
不及格学生名单'
学号课程号成绩'
GOBOTTOM
DOWHILE.NOT.EOF()
IF成绩<
60
学号+SPACE(5)+课程号+SPACE(5)+成绩
SKIP
---------------------------------------------'
当前日期'
+CTOD(DATE())
USE
5、本程序用于计算S=1+2+3+…+N的和。
ACCEPT“N=”TON
S=0
I=0
******2******
DOWHILEI<
=N
I=I+1
S=S+I
“1+2+3+…+”+N+”=”+S
6、本程序实现:
从键盘输入学生的学号,计算该生的平均成绩,并说明成绩的档次(优、良、中、及格和不及格)。
C="
不及格及格中良优"
INPUT"
输入学号="
TOXH
LOCATEFOR学号=XH
IFFOUND()
TOTAL成绩TOCJ
IFCJ<
R=0
R=INT(CJ/10)-5
DC=STR(C,6)
XH,CJ,DC
ELSE
查无此人!
'
ENDIF
7、本程序实现:
输入三个正数,判定是否构成一个三角形,如果构成一个三角形,则返回.T.,否则返回.F.。
另外通过参数的引用将三角形的面积传回。
*主程序
INPUT'
X1='
TOX1
X2='
TOX2
X3='
TOX3
IfTARER(X1,X2,X3)
三角形面积为:
+ALLTRIM(STR(X1,19,2))
endif
*自定义函数
FUNCTIONTARER
PARAMETERSA,B
IFA>
B>
C
S=(A+B+C)/2
A=SQRT(S*(S-A)*(S-B)*(S-C))
RETURN.T.
A=0
RETURN.F.
9、本程序输出一个对角线上元素为0,其它元素为1的6*6阶方阵。
输出时每个元素占2个字符。
CLEAR
FUNCTIONA(6,6)
FORI=1TO6
FORJ=1TO6
IFI=J
A(I,J)=0
A(I,J)=1
ENDFOR
A(I,J)
10、本程序实现:
对输入的正整数,判别其中包含指定数码的个数(如2312132中包含数码1的个数为2)。
输入数值='
TOM
输入数码='
TON
YSM=M
******1******
Y=MOD(M/10)
IFY=N
S=S+1
M=INT(M/N)
IFM=0
LOOP
ALLTRIM(STR(YSM,19))+"
中包含数码"
+STR(N,1)+"
共"
+ALLTRIM(STR(S,19))+"
个。
11、本程序实现:
对任意一个正数值型数据(该数可有小数若干位,整数部分不超过12位)自动进行小数部分四舍五入取2位,并将其转换为中文大写金额.
C1="
零壹贰叁肆伍陆柒捌玖"
C2="
分角元拾佰仟万拾佰仟亿拾佰仟"
INPUT'
输入一个正数='
TOY
Y=STR(Y,2)
Y=Y*100
I=1
D=SPACE(0)
DOWHILEY>
P=MOD(Y,10)
D=SUBSTR(C1,2*P-1,2)+SUBSTR(C2,2*I-1,2)+D
I=I+1
Y=INT(Y,10)
转换的结果是:
+D
12、本程序实现:
将给定的正整数的值分解因子,并输出各个质数因子(如24的质数因子有2、2、2和3)(如果一个质数是某个数的约数,那么这个质数是这个数的质数因子)
ACCEPT'
M='
IFINT(M)!
=MORABS(M)!
=M
输入的数据不符合题目要求!
I=2
STR(M)+'
的质数因子有:
DOWHILEI<
IFM%I=0
STR(I,6)
0
13、本程序是在屏幕上打印如下图形:
9876543
98765
987
9
DOWHILEK<
=4
DOWHILEC<
=4
STR(10-C,3)
C=C+1
K=K+1
14、本程序实现:
对成绩.DBF(其中包含"
学号"
字段,并且以"
为关键字建立了索引标识“学号”)中学号相同的重复记录进行逻辑删除。
SETDELETEDON
DOWHILENOTEOF()
XH=学号
DOWHILE.NOT.EOF()
DELETE
CONTINUE
LIST
15、本程序求S=K!
+…+M!
(K<
N<
M),并输出S的值。
K='
TOK
STORE0TOS,A
I=K
DOSUBWITHA,I
S=S+A
S
PROCSUB
PARAP,N
STOR1TOP,L
DOWHILEL<
=I
P=P*L
L=L+1
RETU
16、本程序输入一个一位数值(0-9),并把它转化为中文大写数字。
X='
零壹贰叁肆伍陆柒捌玖'
N='
S=STUFF(X,N,2)
STR(N,1)+"
--->
+S
WAIT'
是否继续(Y/N)'
TOT
IFUPPER(T)='
n'
17.本程序用以判断输入的字符串是否是回文(回文是从左到右和从右到左读时都一样的一个字符串,不论大小写字母)。
C=SPACE(0)
请输入字符串='
TOST
I=LEFT(ST,1)
J=1
DOWHILEJ<
Q=SUBST(ST,J,1)
C=C+Q
J=J+1
IFST=C
ST,'
是回文'
不是回文'
18.求3→200之间的素数。
FORM=3TO200
FORN=1TOM
******2******
IFM/2=INT(M/2)
EXIT
ENDIF
IFN>
M
?
M
19.本程序显示下列的九九乘法表
123456789
1
24
369
481216
510152025
61218243036
7142128354249
816243240485664
91827364554637281
FORI=1TO9
?
I
I=1
=9
FORJ=1TO9
STR(I*J,4)
20.程序是显示输出给定行数的对称菱形图案,如下图所示。
N="
TON&
&
输入5
FORI=1TON
*******1******
SPACE(N-I)
*******2******
FORJ=1TON
CHR(ASC("
A"
)+I-1)
FORP=N-1TO1STEP-1
SPACE(N-P+1)
FORK=1TO2*N-1
CHR(ASC('
A'
)+P-1)
21.统计显示“课程”表中所有不同学期考试课和考查课的总学分数。
输出格式如下:
学期考试课总学分考查课总学分
***************************************
1113
settalkoff
clear
use课程
indexon开课学期tokkxq
学期考试课总学分考查课总学分"
*******************************************"
dowhile.not.eof()
xq=开课学期
store0toks,kc
*******1******
dowhile.T.
if考查标志="
1"
kC=kC+学分数
else
kc=kc+学分数
endif
*******3******
CONTINUE
enddo
xq+str(ks,19,2)+str(kc,19,2)
enddo
use
22.输出3~M(M为正整数,从键盘输入)之间的素数和素数的个数。
M="
K=0
FORX=3TOM
FORN=2TOX-1
*******1******
IFX/N=INT(X/N)
IFN>
X
X
*******3******
K=K+X
+ALLTRIM(STR(K))+"
个素数"
23.用带参调用实现:
M!
/(M-N)!
*N!
M="
N="
MJ=M
DOJC
NJ=N
DOJCWITHNJ
*******2******
MNJ=0
DOJCWITHMNJ
S="
MJ/(NJ*MNJ)
PROCEDUREJC
PARAMETERSX
T=1
FORI=1TOX
T=T*I
*******3******
X=i
RETURN
24.求x1+x2+x3+x4++xn的值。
n,x从键盘输入。
input"
n="
ton
x="
tox
s=1
t=1
=n
t=s*x
s=s+t
endFOR
s="
s
25.求当1!
+3!
+5!
++n!
的值不超过1020时的临界值及n的值。
s=0
n=1
dowhileI<
N
t=1
fori=1ton
t=i*i
endfor
n=n+1
n-4
settalkon