历年考试程序设计题.doc

1、编写程序：
从键盘上任意输入10个整数，将这10个数在屏幕上显示成一行，并在下一行显示其最接近平均值的数。
set talk off
clear
dimen a(10)
s=0
for i=1 to 10
input"请输入10个整数：" to a(i)
s=s+a(i)
next
save=s/10 &&平均值赋值为save
x=abs(save-a(1))
for i=2 to 10
if abs(save-a(i))<x
x=abs(save-a(i))
n=i
endif
next
for i=1 to 10
?? a(i)
next
?"最接近平均值的数是：",a (n)
cancel
set talk on
2、（2004年真题）编写程序：
有五个人的学习成绩，分别为91，87，86，71，97，要求设计如下程序：
（1）在键盘上输入N个成绩值（例输入5个），放入名为a的数组中
（2）显示出a数组中成绩的值
（3）对数组中的成绩从大到小排序
（4）显示出排序后a数组中成绩的值
clear
input"请输入成绩的数量：" to N
dimen a(N)
for i=1 to N
input"请依次输入成绩：" to a(i)
next
for i=1 to N
?? a(i),","
next
?
for i=1 to N-1
for j=1 to N-i
if a(j)<a(j+1)
t=a(j)
a(j)=a(j+1)
a(j+1)=t
endif
next
next
for i=1 to N
?? a(i),","
next
cancel

set talk off
clear
a=-2
b=1
do while b-a>=10^(-6)
m=(a+b)/2
if (3*m^3-4*m^2-5*m+13) >0
b=m
else
a=m
endif
enddo
strtofile(str(x0,10,2),“result.c”,.t.)
return
set talk on
一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。求1000以内的所有完数之和。   530
set talk off
clear
s=0
for i=1 to 1000
m=0
for j=1 to i/2
if i%j=0
m=m+j
endif
next
if m=i
s=s+i
endif
endfor
?"s= ",s
set talk on