3、从键盘输入一个正整数,判断其所含5的个数。(如:输入数值2345105,其中包含5的个数为2)/ j3 f- z# ?, z" s2 m
程序代码:
' H# Y/ r. t# x; i: B, E SET TALK OFF
5 ~3 E1 u+ E1 X! I/ W( l clear
( _; }! m# l) j0 `/ ?8 o INPUT "请输入一个正整数X:" TO X
- r% }* s6 l1 ~# P6 u* ^9 d S=0- C8 t9 N/ P" ~4 ^ Q
DO WHILE .T.
5 Q& n% l' `: l* t/ N N=MOD(X,10) &&第一次求X的个位数N,第二次求X的十位数N,…, M+ H4 ^! L5 Q) j* D3 Q: f! u; Y# ^
IF N=5. q' o' r8 W, `5 M
S=S+1
" t5 @% v+ I8 \4 i* a. A) V7 Y. _& D ENDIF
7 Z% K& R E5 k3 z% h8 U" ~3 P X=INT(X/10)& S: \: D1 a* h- Q1 q3 E. F, I; a
IF X=0
6 m+ L+ D# L0 ]4 d" s EXIT3 _, T0 `3 u! V1 Z- l
ENDIF' g. h J \8 u/ @4 G, h
ENDDO! {# O0 y% Z, f. R, V
?"X中5的个数为:",S
" A5 R5 Z8 x8 d% r" L* T5 K SET TALK ON
2 i: e0 [1 k8 Q5 l, W; V8 L; V: P) ^ 4、从键盘输入20个数,去掉20个数中的最大值和最小值,然后求平均值。
0 t' L) P' N) C8 j 程序代码:- P9 C; X$ F1 u+ W
SET TALK OFF
" q. A, v6 @6 J7 ] CLEAR4 p$ V; y1 o0 r/ p' i! d5 ]
S=0/ F* Z- { h) l& q+ U) K( P) O! M
N=18 q4 z, F3 V e" _/ g. I; B. G$ F
STORE 0 TO MAX,MIN
7 X3 s3 N: r! H: D3 r3 { f! U- Z) D' }
DO WHILE N |