*题目：编程求P=1-1/(2x2)+1/(3x3)-1/(4x4)+1/(5x5)。 * (要求使用循环语句求解) * 将结果存入变量OUT中。

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

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

SET TALK ON

SET LOGERRORS ON

OUT=-1

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

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

DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- P=0 M=1 I=0

DO WHILE M<=5

P=P+((-1)^(M+1))/(M*M) M=M+1 ENDDO ? \OUT=P

*------------------------------------------------------- *【程序设计】

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

*题目：程序运行时输入一个不超过5位数的整数，求该整数各个 * 位数的乘积。例如输入1234，应输出24。该题目请使用

* FOR-ENDFOR结构编程，运行时务必输入1234，否则扣分。 * 将结果存入变量OUT中。

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

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

SET TALK ON

SET LOGERRORS ON

input to n OUT=-1

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

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

DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- t=1

s=ltrim(str(n)) for i=1 to len(s) x=val(subs(s,i,1)) t=t*x endf out=t ?out

*------------------------------------------------------- *【程序设计】

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

*题目：编程求sum=3-33+333-3333+33333的值。 * 要求使用for...endfor语句来完成。 * 将结果存入变量OUT中。

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

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

SET TALK ON

SET LOGERRORS ON

OUT=-1

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

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

DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- s=0 t=0

d=3

for i=1 to 5 t=t+d

s=s+t*(-1)^(i+1) d=d*10 endf out=s ? out

*------------------------------------------------------- *【程序设计】

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

*题目：编程求一批数中最大值和最小值的积。 * 将结果存入变量OUT中。

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

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

SET TALK ON

SET LOGERRORS ON dime array(10) array(1)=10 array(2)=3 array(3)=6 array(4)=96 array(5)=4 array(6)=23 array(7)=35 array(8)=67 array(9)=12 array(10)=88 OUT=-1

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

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

DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ----------------------

store array(1) to max,min

for i=1 to 10 if array(i)>max max=array(i) endif

if array(i)

out=max*min ? out

*------------------------------------------------------- *【程序设计】

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

*题目：编程求fibonacci数列第28项的值。

* 已知数列的第一项值为1，第二项值也为1，从第三项开始， * 每一项均为其前面相邻两项的和。 * 将结果存入变量OUT中。

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

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

SET TALK ON

SET LOGERRORS ON

OUT=-1

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

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

DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- store 1 to f1,f2 f=f1+f2

for i=3 to 27 f1=f2 f2=f f=f1+f2 endf out=f ? out