第10周程序设计上机题II
7、运行下列程序譬如噢乖prog7.prg后，屏幕显示的数据为。
CLEAR
STORE “qcw” TO c
cc=SPACE(0)
DO WHILE LEN(c)>0
cc=CHR(ASC(LEFT(c,1))+2)+cc
c=SUBS(c,2)
ENDDO
?cc
答案：
8、下列程序prog8.prg（由17行程序语句组成）的功能是找出101～10000之间所有符合下列条件的数：该数等于其各位数字的阶乘之和。
但程序运行时提示程序的第4行有错，第4行语句应修改为。
如数145=1！+4！+5！
For i=101 to 100000
P=0
C=allt(str(i))
For j=1 to I && i是几位数j就循环几次，j的循环次数是i的位数
P=p+jc(val(substr(c,j,1)))
Endfor
If i=p
?i
Endif
Endfor
Function jc &&该函数的功能是求X的阶乘
PARAMETER x
S=1
For n=1 to x
S=s*n
Endfor
Return s
endfunc
答案：
9、完善下列程序prog9.prg，其功能是统计一个文本文件（内容为英文文章）中各个英文字母（不区分大小写）出现的次数。
提示upper() 将所有字母都换成大写字母。
CLEAR
Cfile=getfile(”txt”,”文件名”)
cc= (filetomem(cfile)) &&文本文件内容,全部变为大写字母
Dimension abc(26) &&定义一个有26个元素的一维数组
abc=0
Do while len(cc)>0
C=left(cc,1)
Cc=substr(cc,2)
If !(c>=’A’ and c<=’Z’) && 如果变量c的值不是字母，返回下一个循环。
Endif
I=asc(c)-asc(’A’)+1
abc(i)=
Enddo
For i=1 to 26
?chr(asc(’A’)-1+i)+’的个数为’,abc(i)
Endfor
Function filetomem &&该函数的功能是将文件内容读到内存变量中
PARAMETER cfilename
Fhandle=fopen(cfilename)
Ctext=space(0)
If fhandle>0
Nsize=fseek(fhandle,0,2)
=fseek(fhandle,0)
Ctext=fread(fhandle,nsize)
=fclose(fhandle)
Endif
Return ctext
Endfunc
答案：
提示： abc(i)=abc(i)+1按字母统计个数，放于abc数组的各个对应元素之中
10、下列程序prog10.prg的功能是求0—100之间的偶数之和，请将它完善。
【程序清单】
STORE 0 TO N
S= 0
DO WHILE .T.
IF N>100
______________
ELSE
S=S+N
ENDIF
N=N+2
ENDDO
? N
程序运行完成后，N的值为。
答案：
解析：DO WHILE .T.
……
ENDDO
上述是永“真”循环，n=? 时，必须用EXIT退出循环。
11．本题程序prog11.prg 求以下正项级数的近似值：
Sn=1/(1*2*3) +1/(2*3*4) +1/(3*4*5) +……+1/(n*(n+1)*(n+2)) +……
计算结果精度小于0.0000001，请完善以下程序：
[程序清单]
Clear
I=0
Sn1=0
Do while .T.
I=i+1
Sn1=Sn1+1/(i*(i+1)*(i+2))
If_______________ <0.0000001
_______________
Endif
Enddo
?sn1
答案
12．下列程序prog12.prg用来计算数列2/1，3/2，5/3，8/4……，155/18，173/19，192/20，……的前20项之和。
阅读程序并完善，使它能实现要求的功能。
【程序清单】
CLEAR
m=2
s=0
FOR i=1 TO 20
?m,i
s=s+m/i
m= ______________-
ENDFOR
?
?s
答案：m+i
13．执行下列prog13.prg程序后，输出到屏幕的结果为________。
【程序清单】
CLEAR
cstring="VisualFoxPro"
nresult=0
m=LEN(cstring)
FOR n=1 to m
c=SUBSTR(cstring,n,1)
IF !BETWEEN(ASC(c),ASC("A"),ASC("Z"))
LOOP
ENDIF
nresult=nresult+1
ENDFOR
?nresult
答案：
14执行下列PROG14.PRG程序后，输出到屏幕的结果为________。
【程序清单】
CLEAR
STORE 5TO ml,m2
STORE 1TO m3,m4
DO PA WITH ml,m2,m3,m4 &&调用自定义过程PA
?m4
PROCEDURE PA &&自定义过程PA
PARAMETER a,b,c,d
d=b^2-4*a*c
DO CASE
CASE d<0
d=100
CASE d=0
d=200
CASE d>0
d=300
ENDCASE
ENDPROC
答案：
15．一只球从100米的高度自由落下，每次落地后反弹回原高度的一半。
下列PROG15.PRG 程序的功能是：计算并显示当它在第10次落地时，总共经过的距离和第10次反弹的高度。
【程序清单】
CLEAR
S=100
h=50
FoR i=1 TO 9
?s,h
s=s+h*2
h=__________
ENDFOR
?
?"球在第10次落地时，共经过了："+ALLT(STR(s,10,2))+"米"
?"球第1O次反弹的高度是:"+ALLT(STR(h,10,2))+"米"
答案：
16、下列自定义函数abk的功能是计算一个整数的各位数字之和：如数145，1+4+5=10
FUNCTION abk
Parameter x
s=0
DO WHILE x>0
s=s+MOD(x,10)
________________
ENDDO
RETURN s
ENDFUNC
答案：。
