HUC VFP 程序设计1

*【程序设计1】

*题目：利用循环程序输出图形：

* 1

* 222

* 33333

* 4444444

*并将第三行字符串存入变量S中。

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

SET TALK OFF

SET LOGERRORS ON

S=""

**********Program**********

N=1

FOR N=1 TO 4

? SPACE(4-N)

FOR M=1 TO 2*N-1

?? STR(N,1)

ENDFOR

ENDFOR

SET TALK ON

S”33333”

********** End **********

DO YZJ13 WITH S

RETURN

*【程序设计2】

*题目：求3到20之间（含3和20）所有的素数之和。将结果存入变量Y中。* 素数是只能被1和本身整除的数。

* 请按照题目要求，使用FOR…ENDFOR循环在下面编写程序代码。CLEAR

SET TALK OFF

SET LOGERRORS ON

Y=-1

**********Program**********

Y=0

FOR I=3 TO 20

FOR J=2 TO I-1

IF INT(I/J)=I/J

EXIT

ENDIF

ENDFOR

IF J=I

Y=Y+1

ENDIF

ENDFOR

********** End **********

DO YZJ7 WITH Y

RETURN

*【程序设计3】

*题目：编程求一组数中大于平均值的数的个数。

* 例如：给定的一组数为1,1,1,1,1,2,2,2,2,2 时，结果值为5。

* 将结果存入变量OUT中。

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

SET TALK ON

SET LOGERRORS ON

dime array(10)

array(1)=1

array(2)=3

array(3)=6

array(4)=9

array(5)=4

array(6)=23

array(7)=35

array(8)=67

array(9)=12

array(10)=88

OUT=-1

**********Program**********

S=0

FOR I=1 TO 10

IF ARRAY(J)>S

N=N+1

ENDIF

ENDF

OUT=N

?OUT

********** End **********

DO YZJ WITH OUT

SET LOGERRORS OFF

SET TALK OFF

*【程序设计4】

*题目：求1到200之间（含1和200）的所有偶数的和，结果输入变量OUT中。*请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

SET LOGERRORS ON

OUT=-1

**********Program**********

S=0

FOR I=1 TO 200

IF I/2=INT(I/2)

S=S+I

ENDIF

ENDFOR

?S

OUT=S

********** End **********

DO YZJ24 WITH OUT

SET TALK ON

RETURN

*【程序设计5】

*-------------------------------------------------------

*题目：计算并在屏幕上显示直角三角形“九九”乘法表。显示格式如下：

* 1×1= 1

* 1×2= 2 2×2= 4

* 1×3= 3 2×3= 6 3×3=9

* ………………………………

* 将各部分的结果相加（1+2+4+3+6+9+...+81）存入变量Z中。*请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

SET LOGERRORS ON

CLEAR

Z=0

**********Program**********

X=1

?

DO WHILE X<=9

Y=1

DO WHILE Y<=X

??STR(Y,1)+’X’+STR(X,1)+’=’+STR(X*Y,2)+’‘

Z=Z+X*Y

Y=Y+1

ENDDO

?

X=X+1

ENDDO

********** End **********

DO YZJ23 WITH Z

SET TALK ON

RETURN

*【程序设计6】

*题目：输出下面图形：（要求使用双重循环语句）

* *

* **

* ***

* ****

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

*要求：将输出第三行的所有字符存入变量S中

*-------------------------------------------------------

CLEAR

SET TALK OFF

SET LOGERRORS ON

S=""

**********Program**********

FOR I=1 TO 4

FOR J=1 TO I

??”*”

ENDFOR

?

ENDFOR

S=”***”

********** End **********

DO YZJ6 WITH S

CANCEL

*【程序设计7】

*-------------------------------------------------------

*题目：判断一个三位数是否为"水仙花数",并输出判断结果。

* 是为1，否为0。

* 所谓"水仙花数"是指一个3位数，其各位数字立方和等于该数本身。* 已知变量n，计算n是否为水仙花数。

* 将结果存入变量OUT中。

SET TALK ON

SET LOGERRORS ON

OUT=-1

n=153

**********Program**********

BW=INT(N/100)

BW=INT((N-BW*100)/10)

GW=N%10

IF N=BW*BW*BW+SW*SW*SW+GW*GW*GW

OUT=1

ELSE

OUT=0

ENDIF

?OUT

********** End **********

DO YZJ WITH OUT

SET LOGERRORS OFF

SET TALK OFF

*-------------------------------------------------------

*【程序设计8】

*-------------------------------------------------------

*题目：编一程序打印一个数列，前两个数是0、1第三个数是前* 两个数之和，以后的每个数都是其前两个数之和。编程* 求出此数列第20个数,将结果存入变量OUT中。

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

*-------------------------------------------------------

SET LOGERRORS ON

OUT=-1

**********Program**********

********** End **********

DO YZJ28 WITH OUT

RETURN

*【程序设计9】

*题目：编程求出并显示3!+4!+5! 的值。

* 将结果存入变量OUT中。

SET TALK OFF

SET LOGERRORS ON

OUT=-1

**********Program**********

S=0

FOR I=3 TO 5

P=1

FOR J=1 TO I

P=P*J

ENDFOR

S=S+P

ENDFOR

?”3!+4!+5!的值是:”,S

OUT=S

********** End **********

DO YZJ2 WITH OUT

*-------------------------------------------------------

*【程序设计10】

*-------------------------------------------------------

*题目：编程求sum=3-33+333-3333+33333的值。* 要求使用for...endfor语句来完成。

* 将结果存入变量OUT中。

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

SET TALK ON

SET LOGERRORS ON

OUT=-1

**********Program**********

S=0

T=0

D=3

FOR I=1TO 5

T=T+D

S+S+T*(-1)^(I+1)

D=D*10

ENDIF

OUT=S

?OUT

********** End **********

DO YZJ WITH OUT

SET LOGERRORS OFF

SET TALK OFF

*【程序设计11】

*题目：编程求P=1x(1x2)x(1x2x3)x …x(1x2x …xN)，N由键盘输入。* 将结果存入变量OUT中。

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

SET TALK ON

SET LOGERRORS ON

INPUT "请任意输入一个数字:" TO N

?FUN(N)

YZJ()

FUNCTION FUN(N)

OUT=-1

**********Program**********

P=1

FOR I=1 TO N

Q=1

FOR J=1 TO I

Q=Q*J

ENDFOR

P=P*Q

ENDFOR

OUT=P

********** End **********

RETURN OUT

FUNCTION YZJ()

USE IN

LOCA FOR TIHAO=3

IF FOUND()

N=N1

O=FUN(N)

DO YZJ3 WITH O

ELSE

?"考试输入文件错误，请重新配置考试环境"

ENDIF

RETURN

*【程序设计12】

*题目：将10到50之间（含10和50）所有能被7整除的数的和存入所给变量OUT中。* (用DO WHILE ……ENDDO语句实现)

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

SET TALK ON

SET LOGERRORS ON

OUT=-1

**********Program**********

I=10

S=0

DO WHILE I<=50

IF I%7=0

S=S+I

ENDIF

I=I+1

ENDDO

OUT=S

********** End **********

DO YZJ4 WITH OUT

USE

RETURN