全国计算机等级考试二级VFP习题及答案：第七章5

会计考友

　　7、从键盘任意输入N个数，去掉其中最大值和最小值，然后求平均值。
　　程序代码：
　　SET TALK OFF
　　CLEAR
　　S=0
　　INPUT "N=" TO N
$ h$ k3 O1 V1 C' V+ H5 ?　　STORE N TO MAX,MIN
5 `" ], \% u: B' |# _/ V, ]/ D　　FOR I=1 TO N
7 M, G3 [7 F& s9 x) O6 c( F& P　　INPUT "B=" TO B
/ f" q+ X) B' s: i' K  z　　S=S+B
　　IF MAX<B p　　MAX=B/pp　　ENDIF/pp　　IF MIN>B
: S3 m* a+ m( [: P　　MIN=B
　　ENDIF
# ]) D. Y/ W' j　　ENDFOR
　　?"AVERAGE="+STR((S-MAX-MIN)/(N-2),19,2)
　　SET TALK ON
4 V2 i+ Q! l) g9 P# ?, l　　8、利用参数传递和过程文件，求(M!+N!)/(M-N)!
5 ?: h8 U& Y; P4 f　　程序代码：
　　SET TALK OFF
& c5 G, \6 h8 Q9 C+ K7 k　　CLEAR
* j- Z# C: m: z7 f. r) W　　SET PROC TO 程序20
　　INPUT "M=" TO M
　　INPUT "N=" TO N
　　STORE 0 TO SM,SN
1 q. H0 t. Z) H( E6 G　　DO JC2 WITH M,SM
2 C. J# l/ s* y2 q! A. B: f　　DO JC2 WITH N,SN
　　DO MC2 WITH M-N,N
- Y6 P- Q: {5 d$ B0 K0 Y　　?"表达式结果为S="+STR((SM+SN)/N,10,2)
　　SET PROC TO
　　SET TALK ON
　　PROC JC2
　　PARA X,Y
　　I=1
　　T=1
" T5 w, x" G: J. O+ g1 e8 M  v, t
　　DO WHILE I