〖第1题〗『程序设计』(15分)(题号:458)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程计算正整数num的各位上的数字之积。
* 例如，若输入：252，则输出应该是：20。
* 将结果存入变量OUT中，要求用Do While语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
?"输入正整数num=434"
num=434
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
s=1
do while num<>0
s=s*(num%10)
num=int(num/10)
endd
out=s
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:435)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求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
d=d*10
endf
out=s
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:69)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：从键盘输入三角形的边长，输入边长满足两边之和大于
* 第三边，且为正值。计算并输出三角形的面积S；若不满
* 足以上条件，显示输出"不能构成三角形"。
* 其中面积公式请参看(图1)。
* 将面积值存入变量AREA中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
INPUT TO A
INPUT TO B
INPUT TO C
? "三角形面积为",FUN(A,B,C)
YZJ()
SET TALK ON
RETURN
FUNCTION FUN(a,b,c)
AREA=-1
**********Program**********
********** End **********
RETURN AREA
FUNCTION YZJ()
USE IN
LOCAT FOR TIHAO=1
IF FOUND()
A=N1
B=N2
C=N3
O=FUN(A,B,C)
DO YZJ1 WITH O
ELSE
?"试题输入文件已损坏，请重新配置考试环境"
ENDIF
RETURN
答案：----------------------
s=(a+b+c)/2
if a+b>c and a+c>b and b+c>a and a>0 and b>0 and c>0
area=sqrt(s*(s-a)*(s-b)*(s-c))
else
? "不能构成三角形"
AREA=-1
endif
----------------------
〖第1题〗『程序设计』(15分)(题号:415)
*------------------
-------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：判断一个三位数是否为"水仙花数",并输出判断结果。
* 是为1，否为0。
* 所谓"水仙花数"是指一个3位数，其各位数字立方和
* 等于该数本身。
* 已知变量n，计算n是否为水仙花数。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
n=153
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
bw=INT(n/100)
sw=INT((n-bw*100)/10)
Gw=N%10
if n=bw*bw*bw+sw*sw*sw+gw*gw*gw
OUT=1
else
OUT= 0
ENDIF
? OUT
----------------------
〖第1题〗『程序设计』(15分)(题号:84)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：利用循环程序输出图形：
* 4
* 333
* 22222
* 1111111
* 并将最后一行存入变量S中
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
S=""
**********Program**********
********** End **********
DO YZJ15 WITH S
SET TALK ON
答案：----------------------
FOR N=1 TO 4
? SPACE(4-N)
FOR M=1 TO 2*N-1
?? STR(4-N+1,1)
ENDFOR
ENDFOR
S="1111111"
----------------------
〖第1题〗『程序设计』(15分)(题号:73)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：输出10到50之间所有能被7整除的数。
* (用do while ……enddo语句实现)
* 并将这些数的和存入所给变量OUT中
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ4 WITH OUT
USE
RETURN
答案：----------------------
i=10
S=0
do while i<=50
if i%7=0
?i
S=S+I
endif
i=i+1
enddo
Out=S
----------------------
〖第1题〗『程序设计』(15分)(题号:416)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：过滤已存在字符串变量STR中的内容，只保留
* 串中的字母字符，并统计新生成串中包含的字母个数。
* 将生成的结果字符串存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS
ON
OUT=""
str="ab23 %^(u)"
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
N=LEN(STR)
L=0
S=""
FOR I=1 TO N
IF SUBSTR(STR,I,1)<='Z' AND SUBSTR(STR,I,1)>='A' OR SUBSTR(STR,I,1)<='z' and SUBSTR(STR,I,1)>='a'
l=l+1
s=s+SUBSTR(STR,I,1)
endif
endfor
? "s=",s
out=s
----------------------
〖第1题〗『程序设计』(15分)(题号:458)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程计算正整数num的各位上的数字之积。
* 例如，若输入：252，则输出应该是：20。
* 将结果存入变量OUT中，要求用Do While语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
?"输入正整数num=434"
num=434
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
s=1
do while num<>0
s=s*(num%10)
num=int(num/10)
endd
out=s
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:461)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：计算机等级考试数据表为STUDENT.DBF,凡笔试和上机成绩
* 均达到80分以上者,应在等级字段中填入"优秀"字样。
* 请用DO WHILE ...ENDDO语句编写。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
CLEAR
**********Program**********
********** End **********
CLOSE DATA
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
USE STUDENT
DO WHILE .NOT. EOF()
IF 笔试>=80 .AND. 上机>=80
REPL 等级 WITH "优秀"
ENDIF
SKIP
ENDD
LIST
----------------------
〖第1题〗『程序设计』(15分)(题号:414)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求P=1+1/(2x2)+1/(3x3)+ … 1/(10x10)。
* 将结果存入变量OUT中，要求用Do While语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
P=0
M=1
DO WHILE M<=10
P=P+1/(M*M)
M=M+1
ENDDO
? "P=",P
OUT=P
----------------------
〖第1题〗『程序设计』(15分)(题号:91)
*-------------------------------------------------------
*【程序设计】
*-----------------------
--------------------------------
*题目：输入一个三位数，将个、十、百位顺序拆开
* 分别存入变量S中，用加号分隔。
* 如输入345分开后为3+4+5
* 要求用Do While语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
?FUN(345)
YZJ()
RETURN
FUNC FUN(N)
S=""
**********Program**********
********** End **********
RETURN S
SET TALK ON
FUNC YZJ()
DO YZJ22 WITH FUN(785)
RETURN
答案：----------------------
do while n>0
a=n%10
S="+"+STR(INT(A),1)+S
n= n-a
n=n/10
enddo
S=SUBS(S,2,LEN(S))
----------------------
〖第1题〗『程序设计』(15分)(题号:457)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求P=1-1/(2×2)+1/(3×3)-1/(4×4)+1/(5×5)。
* 将结果存入变量OUT中，要求用Do While语句实现。
*-------------------------------------------------------
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
? "P=",P
OUT=P
----------------------
〖第1题〗『程序设计』(15分)(题号:431)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求一分数序列2/1,3/2,5/3,8/5,13/8,
* 21/13…的前20项之和,将结果存入变量OUT中,
* 要求用For循环语句实现。
*-------------------------------------------------------
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 20
f3=f1+f2
f1=f2
f2=f3
s=s+f2/f1
endf
out=s
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:430)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程找出一批正整数中最大的偶数。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
dime array(10)
array(1)=1
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
答案：----------------------
max=array(1)
for i=1 to 10
if array(i)%2=0
if max
max=array(i)
endif
endif
endf
out=max
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:82)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：利用循环程序输出图形：
* 1
* 222
* 33333
* 4444444
*并将输出第三行存入变量S中
*请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
S=""
**********Program**********
********** End **********
DO YZJ13 WITH S
RETURN
答案：----------------------
N=1
FOR N=1 TO 4
? SPACE(4-N)
FOR M=1 TO 2*N-1
?? STR(N,1)
ENDFOR
ENDFOR
SET TALK ON
S="33333"
----------------------
〖第1题〗『程序设计』(15分)(题号:80)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：从键盘输入一个数，如果该数字大于0，通过子程序输出
* 该数字作为半径的圆面积；如果该数字小于等于0，则输
* 出"不能作为圆的半径"。(PI=3.14)
* 将结果存入变量OUT中.
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
INPUT TO A
SET TALK ON
?FUN(A)
YZJ()
RETURN
FUNCTION FUN(R)
OUT=-1
**********Program**********
********** End **********
RETURN OUT
FUNCTION YZJ()
USE IN
LOCA FOR TIHAO=11
IF FOUND()
O=FUN(N1)
DO YZJ11 WITH O
ELSE
?"试题输入文件已损坏，请重新配置考试环境"
ENDIF
RETURN
答案：----------------------
IF A>0
Out=A*A*3.14
ELSE
Out=-1
ENDIF
----------------------
〖第1题〗『程序设计』(15分)(题号:439)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求出1*1+2*2+......+n*n<=1000中满足条件
* 的最大的n，将结果存入变量OUT中。
* 要求用Do While语句实现。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
s=0
n=1
do while s<=1000
n=n+1
s=s+n*n
enddo
out=n-1
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:429)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求一组数中大于平均值的数的个数。
* 例如：给定的一组数为1,1,1,1,1,2,2,2,2,2
* 时，结果值为5。
* 将结果存入变量OUT中。
* 请按照题
目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
dime array(10)
array(1)=1
array(2)=3
array(3)=6
array(4)=9
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
答案：----------------------
s=0
for i=1 to 10
s=s+array(i)
endf
s=s/10
n=0
for j=1 to 10
if array(j)>s
n=n+1
endif
endf
out=n
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:72)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求P=1x(1x2)x(1x2x3)x … x(1x2x … xN)，N由键盘输入，
* 将结果存入变量OUT中。
* 要求用For...EndFor编程。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
INPUT "请任意输入一个数字:" TO N
?FUN(N)
YZJ()
FUNCTION FUN(N)
OUT=-1
**********Program**********
********** End **********
RETURN OUT
FUNCTION YZJ()
USE IN
LOCA FOR TIHAO=3
IF FOUND()
N=N1
O=FUN(N)
DO YZJ3 WITH O
ELSE
?"考试输入文件错误，请重新配置考试环境"
ENDIF
RETURN
答案：----------------------
p=1
for i=1 to n
q=1
for j=1 to i
q=q*j
endfor
p=p*q
endfor
Out=p
----------------------
〖第1题〗『程序设计』(15分)(题号:79)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：用子程序求出1~15 之间的能被3整除的整数的平方和。
* 将结果存入变量OUT中，要求用For循环实现。
*请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ10 WITH OUT
RETURN
答案：----------------------
N=1
S=0
FOR N=1 TO 15
IF N%3=0
S=S+N*N
ENDIF
ENDFOR
? S
SET TALK ON
Out=S
----------------------
〖第1题〗『程序设计』(15分)(题号:72)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求P=1x(1x2)x(1x2x3)x … x(1x2x … xN)，N由键盘输入，
* 将结果存入变量OUT中。
* 要求用For...EndFor编程。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
INPUT "请任意输入一个数字:" TO N
?FUN(N)
YZJ()
FUNCTION FUN(N)
OUT=-1
**********Program**********
********** End *******
***
RETURN OUT
FUNCTION YZJ()
USE IN
LOCA FOR TIHAO=3
IF FOUND()
N=N1
O=FUN(N)
DO YZJ3 WITH O
ELSE
?"考试输入文件错误，请重新配置考试环境"
ENDIF
RETURN
答案：----------------------
p=1
for i=1 to n
q=1
for j=1 to i
q=q*j
endfor
p=p*q
endfor
Out=p
----------------------
〖第1题〗『程序设计』(15分)(题号:456)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程将一个由四个数字组成的字符串转换为每两个数字间
* 有一个字符“*”的形式输出。例如输入"4567"，应输出
* "4*5*6*7"。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
str="4567"
OUT=""
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
spc="*"
s=""
for i=1 to len(str)-1
s=s+subs(str,i,1)+spc
endf
s=s+subs(str,i,1)
out=s
? out,len(out)
----------------------
〖第1题〗『程序设计』(15分)(题号:419)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求一个大于10的n位整数的后n-1位的数。
* 将结果存入变量OUT中，使用Do While语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
? "输入一个大于10的整数：w=8765"
w=8765
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
n=0
i=1
do while(w>10)
n=n+i*(w%10)
w=int(w/10)
i=i*10
enddo
? n
out=n
----------------------
〖第1题〗『程序设计』(15分)(题号:97)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编一程序打印一个数列，前两个数是0、1第三个数是前
* 两个数之和，以后的每个数都是其前两个数之和。编程
* 求出此数列第20个数,将结果存入变量OUT中，要求用For
* 循环语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ28 WITH OUT
RETURN
答案：----------------------
a=0
B=1
For I=3 to 20
C=a+b
A=b
B=c
Endfor
?"c=",c
Out=C
----------------------
〖第1题〗『程序设计』(15分)(题号:71)
*-------------------------------------------------------
*【程序设
计】
*-------------------------------------------------------
*题目：编程求出并显示 3!+4!+5! 的值，将结果存入变量OUT中。
* 要求用For...EndFor编程。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ2 WITH OUT
答案：----------------------
S=0
For I=3 to 5
p=1
For j=1 to I
p=p*j
endfor
s=s+p
endfor
?"3！+4！+5！的值是:",s
Out=S
----------------------
〖第1题〗『程序设计』(15分)(题号:450)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求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
----------------------
〖第1题〗『程序设计』(15分)(题号:437)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程计算正整数num的各位上的数字之和。
* 将结果存入变量OUT中，要求用Do While语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
?"输入正整数num=434"
num=434
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
s=0
do while num<>0
s=s+num%10
num=int(num/10)
endd
out=s
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:86)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：用循环程序求出1~15之间能被3整除的整数的阶乘和
* 存入变量OUT中，要求用For循环语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
OUT=0
**********Program**********
********** End **********
SET TALK ON
DO YZJ17 WITH OUT
RETURN
答案：----------------------
T=1
FOR N=1 TO 15
T=T*N
IF N%3=0
Out=Out+T
ENDIF
ENDFOR
? Out
---
-------------------
〖第1题〗『程序设计』(15分)(题号:166)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：计算下列分段函数：如(图1)
* 当输入任意X值时，显示输出Y值，要求用Do Case语句实现。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
INPUT TO X
?FUN(X)
SET TALK ON
YZJ()
RETURN
FUNCTION FUN(X)
Y=-1
**********Program**********
********** End **********
RETURN Y
FUNC YZJ()
USE IN
LOCA FOR TIHAO=30
IF FOUND()
O=FUN(N1)
DO YZJ30 WITH O
ELSE
?"试题输入文件已损坏，请重新配置考试环境"
ENDIF
RETURN
答案：----------------------
do case
case X<1
y=x*3
case x>=1 and x<10
y=x^2
otherwise
y=7*x-4
endcase
?y
----------------------
〖第1题〗『程序设计』(15分)(题号:428)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程计算如下表达式的值：
* y=1-1/2+1/4-1/6+1/8-1/10。
* 要求使用for...endfor语句来完成。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
s=1
for i=1 to 5
s=s+(-1)^i/(2*i)
endfor
out=s
? out
----------------------
〖第1题〗『程序设计』(15分)(题号:78)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：设表RSDA.DBF结构为：学号（C，5），姓名（C，6），
* 职称（C，6）统计出RSDA.DBF表中职称为"工程师"的
* 人数。（利用DO WHILE……ENDDO循环语句实现）。
* 将人数存入变量Y中
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
Y=-1
**********Program**********
********** End **********
DO YZJ9 WITH Y
SET TALK OFF
RETURN
答案：----------------------
use rsda
store 0 to s
locate for 职称="工程师"
do while not eof()
s=s+1
continue
enddo
?"共有工程师"+str(s,3)+"名"
use
Y=S
----------------------
〖第1题〗『程序设计』(15分)(题号:444)
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程已知下列各项：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**********
********** 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
endfor
out=s
? out
----------------------