----------------------
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：编程求序列s=2/1-3/2+5/3-8/5+13/8-21/13+34/21的值。 * 要求使用for...endfor语句来完成。 * 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- f1=1 f2=1 s=0
for i=1 to 7 f3=f1+f2 f1=f2 f2=f3
s=s+((-1)^(i+1))*f2/f1 endf out=s ? out
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：编程已知下列各项：a1=1,a2=1/(1+a1),a3=1/(1+a2), * ......an=1/(1+a(n-1))。当n=10时，计算如下表达式的值 * s=a1-a2+a3-a4...-a10。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- a=1 s=1
for i=1 to 9 a=1.0/(1+a) s=s+a*(-1)^i endfor out=a ? out
----------------------
------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：编程求对某一正数的值保留3位小数，并对第4位 * 进行四舍五入。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
? \输入一个正数：h=234.5367\h=234.5367 OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- i=0
i=int((h*10000)) if i>=5
out=int(h*1000+1)/1000 else
out=int(h*1000)/1000 endif ? out
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：编程计算并输出给定整数n的所有因子之积 * （不包括1与自身）。
* 将结果存入变量OUT中。