程序设计题.doc

程序设计题：

1、编程求

S=0
For i=1 to 1000
S=S+1/i
Endfor
? s
retu

2、用循环结构编程输出如下图形

*
**
***
****
*****

Clea 或
For i=1 to 5
? space(10-i)
For j=1 to i
?? “*”
Endfor
Endfor
Retu

Clea
For i=1 to 5
X=repl(“*”,i)
? x
Endfor
Retu

3、编程打印如下九九乘法表（“…”表示有若干项类似，并非输出。。。）
1＊1＝1
1＊2＝2　2＊2＝4
…
1＊9＝9　2＊9＝18　…　9＊9＝81

Set talk off
clea
for i=1 to 9
for j=1 to i
?? str(j,6)+"*"+str(i,1)+"="+str(i*j,2)
endfor
?
endfor
Set talk on
Return

4、设有数据库xs.dbf（学号　C(8)，姓名　C(8)，入学成分 N(3)）,编程求出入学总分最高的同学。

Set talk off
Use xs
X=0
Y=0
Scan
If x<入学总分
X=入学总分
Y=recno()
endif
Endscan
Go Y
? “ 入学总分最高的同学：”
？ 学号，姓名，入学总分
Set talk on
Return

5、编一程序，在表xscj.dbf（表结构为：姓名C(8)、数学N(3)、语文N(3)、外语N(n)、总分N(3)、平均分N(4,1)、等级C(4)）中，根据数学、语文、外语成绩，计算每个学生的总分和平均分，并填写等级：平均分在90分以上（含90分）为优秀， 80分以上（含80分）为良好，70分以上（含70分）为中等，60分以上（含60分）为及格，否则为不及格。
Set talk off
Use xscj
Scan
Rple 总分 with 数学+语文+外语,平均分 with(数学+语文+外语)/3
X=平均分
Do case
Case x>=90
Y=”优秀”
Case x>=80
Y=”良好”
Case x>=70
Y=”中等”
Case x>=60
Y=”及格”
Case x<90
Y=”不及格”
Endcase
Repl 等级 with Y
Endscan

Endscan
Rerurn

6、编写一求n!的函数。
Func jc
Para n
If n<0
Retu 0
Endif
If n=0
Retu 1
Endif
T=1
For i=1 to n
T=t*i
Endfor
Retu t

7、求1!+2!+…+7!=？
S=0
T=1
For i=1 to 7
T=t*i
S=s+t
Endfor
? s
retu