*题目：编程求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