*------------------------------------------------------*
【程序设计】 *------------------------------------------------------*题目：编程求对某一正数的值保留 3 位小数，并对第 4 位 * 进行四舍五入。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
? \输入一个正数：h=234.5367\
OUT=-1
**********Program********** i=0
i=int((h*10000))
if i>=5
out=int(h*1000+1)/1000 else
out=int(h*1000)/1000
Endif
? Out
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
*------------------------------------------------------*
【程序设计】 *------------------------------------------------------*题目：编程已知下列各项：
a1=1,a2=1/(1+a1),a3=1/(1+a2), * ......an=1/(1+a(n-1))。当 n=10 时，计算如下表达式的值 * s=a1+a2+...+a10。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program********** a=1 s=1
for i=1 to 9
a=1.0/(1+a)
s=s+a
endfor
out=a
? Out
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
*------------------------------------------------------*
【程序设计】 *------------------------------------------------------*题目：编程已知下列各项：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********** a=1 s=1
for i=1 to 9
a=1.0/(1+a)
s=s+a*(-1)^i
endfor
out=a
? Out
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
*------------------------------------------------------*
【程序设计】 *------------------------------------------------------*题目：编程求序列 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********** 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
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
*------------------------------------------------------*
【程序设计】 *------------------------------------------------------*题目：编程求 fibonacci 数列第 28 项的值。 * 已知数列的第一项值为 1，第二项值也为 1，从第三项开始， * 每一项均为其前面相邻两项的和。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********
store 1 to f1,f2
f=f1+f2
for i=3 to 27
f1=f2 f2=f
f=f1+f2 endf
out=f
? Out
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
*------------------------------------------------------*
【程序设计】 *------------------------------------------------------*题目：编程求 sum=1/3+1/33+1/333+1/3333+1/33333 的值。 * (要求使用循环语句求解) * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********