DIF
ENDSCAN
USE
?XM,YX,CJ
SET TALK ON
RETURN
5、下面程序运行的结果是 2
SET TALK OFF
?S(2)*S(4)/S(5)
SET TALK ON
RETURN
FUCTION s(N)
T = 0
FOR I = 1 TO N
T =T+I
NEXT
RETURN T
ENDFUNC
四、 编程题(第1、2题各6分,第3题8分,共20分)
1、 从键盘输入一个数,如果这个数非负,输出其平方根,否则输出“该数无平方根”。
input “请输入一个数” to x
if x>=0
?sqrt(x)
else
?“该数无平方根”
endif
2、利用循环编程计算输出1×2+3×4+5×6+…+21×22的值。
s=0
for i=1 to 21 step 2
s=s+i*(i+1)
endfor
?s