计算机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

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

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

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