7、从键盘任意输入N个数，去掉其中最大值和最小值，然后求平均值。 ! i) L% g% P" \$ o! n ?
程序代码：5 h8 \+ `# ` i3 i) q# h# S* Z
SET TALK OFF
4 u6 H% [( P, X$ A) C) U CLEAR% _7 V F7 V+ g: m1 n! T3 W! u
S=0
8 i% M+ E, ?+ U3 P5 R5 q. R8 F INPUT "N=" TO N6 v$ r5 B" }7 L$ i
STORE N TO MAX,MIN5 y4 {9 H! w, m* W, Q# m' a+ |
FOR I=1 TO N
1 ~$ _6 K7 w- }) v INPUT "B=" TO B
, R& d: u9 O7 A8 ~ S=S+B
$ E0 W3 s7 z4 X' [ z q IF MAX<B p MAX=B/pp ENDIF/pp IF MIN>B
$ j0 I( f3 z- Q3 a# P MIN=B
. V- O+ B$ \ e1 G ENDIF
; d% D- K, O% Z" a. ~7 G ENDFOR
/ O* i* [+ ` d/ f0 ], s ?"AVERAGE="+STR((S-MAX-MIN)/(N-2),19,2)$ w/ a$ s& e/ H ?3 B
SET TALK ON
% {. t. R! k: F) Z! Z 8、利用参数传递和过程文件，求(M!+N!)/(M-N)!, y; Z3 n( ]; Y
程序代码：
) A+ e- y" F8 z0 r `* b SET TALK OFF
# M0 p( e* `: d* p6 t" g CLEAR
5 d8 j: g. L4 p2 N% \8 G, B SET PROC TO 程序20* o! ]0 m: y& J( ^6 F1 ^
INPUT "M=" TO M
' T6 \1 t- G# l4 J4 r INPUT "N=" TO N+ N0 o( a+ O, ^# H2 N
STORE 0 TO SM,SN9 D& y s# T% T a& n8 z/ n9 {
DO JC2 WITH M,SM
- y! l: @% q7 x8 M# W DO JC2 WITH N,SN
7 y, y! f& O7 V9 Y9 @5 h. K# O DO MC2 WITH M-N,N. X1 r- `2 g b+ k, }& _# `, B6 \( \
?"表达式结果为S="+STR((SM+SN)/N,10,2)
- T: ~* n) C% y2 o SET PROC TO
3 f- Q$ H) B; d4 R- s SET TALK ON
! m# O& a/ x/ M# F PROC JC2
% B9 a# |5 J E% e, {% @2 O PARA X,Y7 F( H- Y; z7 Q
I=1
" z1 q* i( R& z, n5 L T=1
1 A+ X* C: H1 S, g; |
" ]8 \. |9 {9 d+ U: ~ DO WHILE I |
发表于 2012-7-31 22:22:49
