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