程序填空[1]

----------------------

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

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

*题目：编程求序列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中。