毛笔书法笔顺:程序设计的题目，大家帮忙，急！！！！！！！

*1．求S=1+1/1!+1/3!+……+1/9!的值.
set talk off
s=0
for i=1 to 9
s=s+1/fact(i)
endfor
?'s='+str(allt(s))
return

function fact
paramete mdata
n=1
for i=1 to mydata
n=n*i
endfor
return n
endfunc

*2．车站从甲地到乙地托运行李。收费规定：若行李重量≤50公斤，每公斤收费0.50元；若行李重量＞50公斤时，其超重部分加收0.40元，编写计算运费的程序。
set talk off
input '输入行李重量：' to nxl
do case
case nxl<= 50
yf=nxl*0.5
case nxl>50
yf=nxl*0.5 +(nxl-50)*0.4
endcase

?'运费为：'+ str(yf)
return

*3．从键盘输入1个班（人数不固定）学生成绩，如果输入的值为负数，则停止输入，求出其中的最高分、最低分，并计算平均成绩。

set talk off
dime c(100)
i=1
n=1
do while .t.
input "成绩:" to cj
c(i)=cj
if cj <0
exit
endif
i=i+1
n=i
enddo
for i=1 to n
for j=i to n
if c(i)>c(j) then
m=c(i)
c(i)=c(j)
c(j)=m
endif
endfor
endfor
?'最高分：'+str(c(n)) +'最低分：' + str(c(1))
s=0
for i=1 to n
s=s+c(i)
endfor
sp=s/n
?'平均成绩：'+str(sp)
return

用什么语言？