C语言经典算法16-26

【程序16】
7 ^; R6 `# V4 V$ g7 f: o7 n题目：输入两个正整数m和n，求其最大公约数和最小公倍数。
# a% Z% w6 {7 L" `6 g1 T- s6 [& i5 [) D! k% p

7 u% b$ G( f  \3 V: _0 z5 D: l. Q+ ?7 l
作者： zhlei81 2005-1-22 11:30 回复此发言
! g; h! x5 q5 V1 ]5 c2 T( w  c! s& Q( a; d, Y/ R7 T( ]8 N, \7 h. a
-------------------------------------------------------------------------------- $ ?' s. l. L) U

& }# r$ n- {& ^; d/ d( ^4 回复：经典C源程序100例 ; y* c- ?9 c2 y- f  N: l
1.程序分析：利用辗除法。
7 Z  y, Y" Y, G- I, O
. _7 b' H/ l% h+ c* B3 M2.程序源代码： 1 q, R9 ]/ |) x5 I
main()
6 a9 H$ x6 {* H- I, k{ ( O) e- s" P0 [
int a,b,num1,num2,temp;   v1 E- O% t* Q6 t4 P# z
printf("please input two numbers:\n"); 4 F( H3 T) h% j, F& n
scanf("%d,%d",&num1,&num2);
4 \* M) C- P* X4 c  I: sif(num1 { temp=num1; # @! L/ j9 b: s9 u: A
num1=num2;
- }- {' T* Q+ Z9 tnum2=temp;
+ J1 z7 A" s! n3 e6 E}
$ c, a3 A5 b4 q3 B" Va=num1;b=num2;
8 E4 [& B, j0 I3 l, `# Uwhile(b!=0)/*利用辗除法，直到b为0为止*/
( v3 n0 ^1 i4 `{ . b3 b, c/ j3 D. }2 c! ?
temp=a%b; 2 D8 u: m/ P% W# }% _. ^
a=b;
9 \5 q4 ]+ c/ ?0 gb=temp; 0 ?2 z5 R4 W& _6 G$ U- x0 M
} 2 w/ w' `( D& I
printf("gongyueshu:%d\n",a); / e* x8 K; e0 a) t( {! X
printf("gongbeishu:%d\n",num1*num2/a); & F' g- T& N9 y2 G3 D
} + F& W! T' z" ]; V6 c) \
==============================================================
& r- Y) W5 F' J7 L- M. y. R* V【程序17】
$ ~6 P6 r  f" h0 m" U题目：输入一行字符，分别统计出其中英文字母、空格、数字和其它字符的个数。
( Y* U! [% B" J+ D  n: i& e1.程序分析：利用while语句,条件为输入的字符不为'\n'.
( g, b; h  U9 x/ |; M
/ X! d# \1 Z) @2.程序源代码： 1 j5 ?# C+ z! z" A
#include "stdio.h" ; C; j+ `: }; O" X7 {! A- `" n
main() ! m8 n* A4 }( l6 O+ {* \( X
{char c; # x) [7 l1 y" m: P2 k
int letters=0,space=0,digit=0,others=0; / S2 N8 P# l  \# t
printf("please input some characters\n"); % ?' R5 y) _9 z: G1 i+ U# O9 S
while((c=getchar())!='\n') : t) C; a( M$ f0 o
{
4 D8 e4 a( N# ?- eif(c>='a'&&c<='z'||c>='A'&&c<='Z')
" M: v, }$ n( H+ e& jletters++; 8 N' W3 C% Q) B3 u! q# J" [
else if(c==' ') 3 g1 Z0 U6 w5 Q4 p" B! r/ _3 L& a
space++;
9 o  w' x$ i* g( @0 p# a5 Oelse if(c>='0'&&c<='9') 8 ^' M% {' q( {3 ]0 a4 k; w; I& F
digit++;
$ Z* ?7 U  \, r  Y. }. Y2 W. pelse
  l  p7 c, S6 }# fothers++; + [8 \  u2 J. D% y/ u9 Q) c5 }8 ]3 E) Z
} 2 x2 Q* x( L7 |5 F3 J
printf("all in all:char=%d space=%d digit=%d others=%d\n",letters, 5 t1 l( I( ]! ~  ^: y; r- u$ H. ~
space,digit,others);
6 a9 T& k( J' b/ A- w3 G+ `; X5 t8 D1 ^}   B8 l7 g4 R5 ?$ J1 X! ]" u  v+ U
==============================================================
$ h$ X( N3 a6 v【程序18】
: T/ F5 ^9 }8 O) @8 o题目：求s=a+aa+aaa+aaaa+aa...a的值，其中a是一个数字。例如2+22+222+2222+22222(此时
+ J# d- p0 L( p共有5个数相加)，几个数相加有键盘控制。 $ a, A! M5 Q3 Q0 m
1.程序分析：关键是计算出每一项的值。 & w& Z- }5 B2 ]- V/ Y
2.程序源代码： 8 m) _! G. a- Q) e# g" S  X
main()
! @6 Z8 ~/ |. Z- k+ B$ ^9 q) ^4 f{ 0 D! T2 y9 R! K3 ~7 ~4 p
int a,n,count=1; 5 {. _! m0 w# C2 f- B8 }
long int sn=0,tn=0;
) ]4 [! a) }; A# t4 dprintf("please input a and n\n"); * i1 z7 R5 v8 N2 e/ A5 U) e5 C. V  t
scanf("%d,%d",&a,&n);
6 @. W( @7 V( m  l2 I9 ?* g. mprintf("a=%d,n=%d\n",a,n);
, I! @0 Q" W* k! nwhile(count<=n)
5 e4 Q# L# Z, E' S9 ~! g8 U{
8 _% N6 V) J% Z: C/ {5 f5 n2 ]tn=tn+a; : N' H- z+ s3 ?# X5 B
sn=sn+tn;
! j& c' v. @" c1 \a=a*10; ( |1 {: v8 m( z3 B  N3 l/ v
++count; 0 K, t! D8 _# Z2 [" R7 D3 S& l3 S
}   B( K' l! F; `( h. K+ w
printf("a+aa+...=%ld\n",sn); / B% V% V8 t& |- D! t0 y
}
( f( A1 N2 Q+ ?$ u, H& F/ I============================================================== % d0 o1 V1 {+ O( L5 I
【程序19】 / S6 p% }3 V, {' ~9 G6 m( [) @
题目：一个数如果恰好等于它的因子之和，这个数就称为“完数”。例如6=1＋2＋3.编程 $ E1 t& H# P, n# [2 C
找出1000以内的所有完数。
) Z  N" m) x. O1. 程序分析：请参照程序<--上页程序14. . {- {! F, @0 g* V& b/ z* ~( Y$ w
2.程序源代码： ! \: \7 T! H! j9 p
main() ; p4 E( `, V8 j) `/ {& V
{
' z2 q3 t3 a$ C0 Pstatic int k[10]; 3 ?! Z$ \) T* t, x
int i,j,n,s; 3 Q7 f1 `5 z+ s$ z3 ?3 X" {5 I: ?
for(j=2;j<1000;j++) 8 k4 D# c( w0 Z0 P
{
/ t% ?1 B  _& J* I( J1 dn=-1;
( O# x% H3 `6 `s=j; $ \& i6 u& S1 `1 J' L  B/ V
for(i=1;i { 2 e& \% |" w9 Q4 d9 m5 G
if((j%i)==0) ! X  m) L* w5 z& M( s
{ n++;
  `4 q- U" k5 l5 V1 r+ \: Ss=s-i;
7 M6 T* a9 u, C6 W8 Y" I& ]3 Ik[n]=i;
& m( s- k* d$ ]" y% M0 ]5 O} & s% {  a& Y# h
} ' q1 F9 X0 B6 H: p) |- n$ v
if(s==0)
5 d, J" A+ M9 m' j" x{
. D) c' v3 Z% Oprintf("%d is a wanshu",j);   B1 B# P, s5 l/ l# x9 q" M' E
for(i=0;i printf("%d,",k); 8 i& C4 I6 @8 N
printf("%d\n",k[n]); * B8 S3 q" F" V0 H2 J( ]$ ]
} : h9 V) Q; i. [4 M! R% _. I
} 8 ]) d* l3 A8 P% I3 S
}
% G  v! X, n1 H7 r$ v============================================================== ; H2 l7 B4 |' s% f  r
【程序20】 & R8 i4 _2 ]( N/ ~; D
题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在
4 E/ X% k# q# }2 E" `第10次落地时，共经过多少米？第10次反弹多高？ . J  ]( _, h, D$ A8 k, M3 G- }  ^7 R
1.程序分析：见下面注释 / t. }$ z# ^' `: ~
2.程序源代码： ' `" y+ u% K& \# m
main()
  W. {" M1 @) n- @1 x8 R0 V6 w{ . I, _1 ]) z2 S" z  }
float sn=100.0,hn=sn/2; # k% M" |9 f1 ^$ ^2 J8 m" K. E
int n;
( }! b5 O1 V" X2 ?' ^* d% t1 _4 Kfor(n=2;n<=10;n++) . e& B" Q+ G3 F6 k! h
{
/ u1 d: y& [7 F+ i, Vsn=sn+2*hn;/*第n次落地时共经过的米数*/
7 w& f% |$ O/ z3 F6 i1 E+ L" t7 Khn=hn/2; /*第n次反跳高度*/ 1 ?) G- y, `2 T$ b5 t+ C/ y
}
0 r# H  [3 {$ J/ ^. n. X2 A, Mprintf("the total of road is %f\n",sn);
. t4 S+ Q9 W" X: X9 J2 w2 W2 {printf("the tenth is %f meter\n",hn); ; x' A# Q4 ]7 N+ H8 U, m
}