计算机vfp答案

实验2
一、题目: 下面程序是计算1+3+5+…+99之和的程序，请在【】处添上适当的内容，使程序完整。

SET TALK OFF
***********SPACE**********
STOR 0 TO I,S
DO WHILE I<=99
S=S+I
I=I+2
ENDDO
?"结果="
***********SPACE**********
?? S
SET TALK ON
二、题目：求1到50的累加和（S=1+2+3+...+50）并显示，请在【】处添上适当的内容，使程序完整。

***********SPACE**********
H=0
I=1
***********SPACE**********
DO WHILE
I<=50
H=H+I
***********SPACE**********
I=I+1
ENDDO
? H
三、【程序改错】题目：输入N个数值，要求求出这N个数值之和，其中N由用户通过键盘输入。

注意：不可以增加或删除程序行，也不可以更改程序的结构。

SET TALK OFF
CLEA
INPUT 'N=' TO N
***********FOUND***********
STOR 0 TO I,S
DO WHIL I<N
INPUT 'X=' TO X
I=I+1
S=S+X
***********FOUND**********
? 'S=',S
SET TALK ON
四、【程序填空】题目：下面程序是求满足不等式X + 2X^2 + 3X^3 + ......+ N*X^N < 1000 的最大N 值的程序。

（X 为大于等于 1 的实数, 由键盘输入。

）请在【】处添上适当的内容，使程序完整。

SET TALK OFF
CLEAR
INPUT "X=" TO X
N=1
S=X
***********SPACE**********
DO WHILE S<1000
N=N+1
***********SPACE**********
A=N*X^N
***********SPACE**********
S=S+A
ENDDO
? "满足不等式的最大N 值是:",N-1
SET TALK ON
五、【程序填空】题目：以下程序通过键盘输入5个数字，找出其中最小的数。

SET TALK OFF
SET TALK OFF
***********SPACE**********
I=0
INPUT "请输入第一个数字" TO X
M=X
DO WHILE I<=3
INPUT "请输入数字" TO X
***********SPACE**********
IF M<X
M=X
ENDIF
***********SPACE**********
i=i+1
ENDDO
? "最小的数是",M
SET TALK ON
六、【程序填空】题目：键盘输入成绩，判断成绩等级。

SET TALK OFF
CLEAR
INPUT "CJ=" TO CJ &&__________1
CASE CJ>=90 &&__________ 2
DC="优"
CASE CJ>=80 &&__________ 3
DC="良"
CASE CJ>=70 &&__________ 4
DC="中"
CASE CJ>=60 &&__________ 5
DC="及格"
OTHERWISE &&__________ 6
DC="不及格"
ENDCASE &&__________ 7 ? CJ,DC
SET TALK ON
七、【程序填空】题目：键盘输入数据，通过类型判断，输出其数据类型的汉字说明。

例如：A的值为“OK！”，那么输出：OK！—字符型数据。

SET TALK OFF
CLEAR
inpu "a= " to a &&__________1
DO CASE type("a")="c" &&__________2
? A,"是字符型数据。

"
CASE TYPE("A")="N"
? a,"是数值型数据." &&__________3
CASE type("a")="L" &&__________4
? A,"是逻辑型数据。

"
CASE type("a")="D" &&__________5
? A,"是日期型数据。

"
ENDCASE
SET TALK ON
实验3
一、【程序改错】题目：判断输入的年份是否是闰年(能被4整除但不能被100整除，或能被100整除且能被400整除) 注意：不可以增加或删除程序行，也不可以更改程序的结构。

SET TALK OFF
CLEAR
***********FOUND**********
INPUT "Y=" TO Y
IF (Y%4=0 AND Y%100!=0) OR (Y%100=0 AND Y%400=0)
?Y,"是闰年！"
***********FOUND**********
ELSE
?Y,"不是闰年！"
ENDIF
SET TALK ON
二、【程序填空】题目：下面程序是计算2*1+2*2+…+2*n之和的平方根的程序。

SET TALK OFF
CLEA
INPUT TO N
***********SPACE**********
S=0
FOR I=1 TO N
***********SPACE**********
S=S+2*I
ENDFOR
***********SPACE**********
?"结果是",SQRT (S)
RETURN
SET TALK ON
三、【程序改错】题目：从键盘输入一个数值（０～９），要求输出其对应的中文大写数字（零～玖）注意：不可以增加或删除程序行，也不可以更改程序的结构。

SET TALK OFF
CLEAR
C="零壹贰叁肆伍陆柒捌玖"
***********FOUND**********
INPUT "N=" TO N
***********FOUND**********
?N,"-->"+ SUBSTR(C,2*N+1,2)
SET TALK ON
四、【程序填空】题目：计算N个实数（从键盘输入）去掉最大值和最小值后的平均值。

P=N-2
FOR I=2 TO N
INPUT "B=" TO B
S=A+B
IF X<B
X=B
ENDIF
IF Y>B
Y=B
ENDIF
ENDFOR
R=S-X-Y
?R/P
SET TALK ON
五、【程序设计】题目：输出10到50之间所有能被7整除的数。

（用do while ……enddo语
句实现）并将这些数的和存入所给变量OUT中。

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

CLEA
S=0
X=10
DO WHILE X<=50
IF INT(X/7)=X/7
S=S+X
?X
ENDIF
X=X+1
ENDDO
?S。