C语言经典算法67-76

【程序67】
. r# R2 Y3 K; L题目：输入数组，最大的与第一个元素交换，最小的与最后一个元素交换，输出数组。
! |9 G1 r( d; x1 W  b  m% o/ _1 w1.程序分析：谭浩强的书中答案有问题。
$ z4 _" b1 s% n7 |) `2.程序源代码： ! ?' z6 B4 y/ W: l$ j! p. f
main() - G7 O, L6 i$ F* f) r8 V
{
* h& F* T1 ^1 V1 wint number[10]; . ?- ]+ @0 Q4 r' k/ i, \- w
input(number); ' t3 |# C0 I- A" G
max_min(number); + ^9 Y* }# W  N4 Q& g" E
output(number);
# F; c9 l3 f- ?6 X2 H} ' _7 u! R, G% X  O5 o* X
input(number) : o. F2 P' m- E. f! p/ P
int number[10]; ' ^" G% |+ x6 X' Q5 |
{int i; * S, j1 l6 C( l3 w2 e9 m
for(i=0;i<9;i++) # W9 P/ {0 V4 ?" i' u. l; ^; C" W, \" J
scanf("%d,",&number);
' {* p+ ~5 A: @* M( b; Kscanf("%d",&number[9]);
* f+ n6 ], K% @, c- M) V}
9 z/ _( B( A5 z1 D; `6 O: xmax_min(array)
# a' N; x2 z$ z: x% hint array[10]; $ R4 S( u: y, S- M6 L0 Z2 F- x/ d
{int *max,*min,k,l;
$ }: W6 t* g% |# ^; fint *p,*arr_end;
! q& L- R, k& Xarr_end=array+10; # v( K; A" [6 w, ?, O/ E6 R
max=min=array; $ c& \+ p. L: Q: M; S( w$ B8 a
for(p=array+1;p if(*p>*max) max=p;
* [. H, n+ t: L2 ^else if(*p<*min) min=p;
. R9 h/ X' w  S$ yk=*max; # P+ X8 M( [. g+ e& v
l=*min; & Z- J" T- Y" d6 e7 v" p+ n
*p=array[0];array[0]=l;l=*p; : Y& C# Q- _. [; W% ^- D9 j
*p=array[9];array[9]=k;k=*p;
5 h* }& V. F4 L% r/ z& J# freturn;
1 P  b+ u  }& ?1 w7 v0 o$ o5 r0 r/ @}
5 x+ k* V  ]" z* r- poutput(array) $ o4 z( q5 p% }5 x: i7 |- X. i* ^
int array[10]; : M9 H" F4 t- R% M
{ int *p; 1 I1 P$ ^  F9 }- m" F. J' P
for(p=array;p printf("%d,",*p);
1 u1 |* c! O1 ]5 [6 j% L! C( f5 N3 _printf("%d\n",array[9]);
# e& W$ _& g- E! x. g} 7 w  ?( O5 }* y! ~
============================================================== % G0 ~+ U! [5 x) ]7 s8 H6 ^7 ]
【程序68】 " l8 Z3 f7 w! W9 w3 K  E( G, t; W1 s
题目：有n个整数，使其前面各数顺序向后移m个位置，最后m个数变成最前面的m个数 3 z9 a6 ]# Q( S& o
1.程序分析：
  d0 E+ ^6 T! _8 k2.程序源代码： & o$ S% _& C2 M4 h. h$ b/ Y' H
main() 2 L0 ?) O; d$ e
{
/ X7 _% F& H. M2 Pint number[20],n,m,i;
" @( V( D2 e9 n. G4 O4 pprintf("the total numbers is:");   `' l" b& P/ v/ G1 a( r3 E0 w
scanf("%d",&n);
! _) Z; v* ^* l; P# Iprintf("back m:"); ; r' X* C8 n9 G) [7 l
scanf("%d",&m); ' V" `3 O3 h8 u. B) u$ a0 W  ^
for(i=0;i scanf("%d,",&number); " g9 P- K+ l6 I+ @4 e, I
scanf("%d",&number[n-1]);
: t% v. h. a# d4 B5 ?+ @: Lmove(number,n,m);
0 ^5 P- }+ a0 I7 [. j& Q; k5 ]for(i=0;i printf("%d,",number);
; ]& H# x1 D. y% W! {- u  vprintf("%d",number[n-1]); * \/ H7 e; j+ j
} 7 s. t& I# K3 _- H
move(array,n,m) ! h" v+ l! K% S. i+ N. ]. c. \
int n,m,array[20];
7 L/ j- J8 R3 Z! E* P2 M3 `9 q3 Z{ / B: ^- v6 g' w2 T6 T8 W/ o
int *p,array_end;
6 K0 k* L; K+ yarray_end=*(array+n-1); 5 E' x- L; R3 {4 }( a
for(p=array+n-1;p>array;p--)
0 r* v/ }0 a- c" ]*p=*(p-1);
6 w9 b3 Q' j! c" Z1 ?- p*array=array_end; ! B, a/ f" U! V; _
m--;
% J* T% R3 Y. W# Oif(m>0) move(array,n,m);
4 h! A0 J( p9 i) S' r} ' b# E8 W9 ^, g: m  w7 p: X3 [! u
============================================================== 1 T) e9 }4 u2 W$ n8 D' l$ E
【程序69】 ( _9 e* V; i& N+ J# n: g, i
题目：有n个人围成一圈，顺序排号。从第一个人开始报数（从1到3报数），凡报到3的人退出 ; n- U; _8 u1 g
圈子，问最后留下的是原来第几号的那位。信盈达嵌入式企鹅要妖气呜呜吧久零就要
/ L+ F# a! O! n( b+ F" q4 ?1. 程序分析：
) f8 q. Z0 q1 ~' t2.程序源代码： ; |  q" L7 u! N! w8 H0 ^4 a
#define nmax 50 * F4 c+ _. |% O! g9 u0 k
main() & y( N! I. v) w( t) L8 a
{ ' D6 K; b& x1 w& O6 T' v
int i,k,m,n,num[nmax],*p;
% I7 R3 `8 ^7 f1 K" _1 V& cprintf("please input the total of numbers:"); ! Q7 b+ U3 M9 W& n
scanf("%d",&n);
- P$ l! W5 v3 l/ h) A. M: `$ Up=num;
2 m3 ?1 `& w. ?0 rfor(i=0;i *(p+i)=i+1;
3 Y- R% J& p7 ~i=0; 5 X  @2 [: {0 S: x# p, C
k=0; # c( t7 @; J% r7 \; c+ Y, `4 d8 u
m=0;
9 _7 B1 T2 t: hwhile(m {
  I$ t: Z" Y3 f- q' Q( ^if(*(p+i)!=0) k++; 1 M/ G! ^) P7 X) l7 n6 t/ ~
if(k==3)
, B' V) H8 M* A" F+ S{ *(p+i)=0; " d/ Z3 x8 e& `
k=0;
7 G. U2 L" |+ S' y6 u: K7 N: P& tm++; 8 l6 V, X" d' a8 l% ~
}
# R! |' w" Y0 M7 o# Y% ei++; 3 o; y; i" g# S* D8 ?) {9 u
if(i==n) i=0; 1 J1 z0 _& O7 p2 e4 B  s- O
} 4 L( A6 P( [2 x9 V
while(*p==0) p++; " f/ w; w  B# T! T) ?
printf("%d is left\n",*p);
$ c: e1 k- i" W# F0 u8 x# q7 r}
7 p, w; A% B& z: ~' R4 v: G3 l, W============================================================== , b8 i9 \' `7 \% H
【程序70】 . ^: Z; ?! i; |# Z
题目：写一个函数，求一个字符串的长度，在main函数中输入字符串，并输出其长度。
& }/ J6 a& m5 T1 _! w1.程序分析： " v) H, w' u9 P' U
2.程序源代码： # v, W8 u( W/ K. E6 W. X/ L
main()
2 Z5 C. [- f/ K  _& y1 U9 z{ 6 G+ B  ?% b  {  G
int len; ; Y0 |1 Y2 r. ^( q
char *str[20]; 1 `+ z4 L3 W) W$ X* \
printf("please input a string:\n");
; M5 Y7 e3 m/ e1 }( K8 ?; ]scanf("%s",str);
  x: m& b3 P% m# c- U  olen=length(str); - L3 K. f6 R% [( h9 ]
printf("the string has %d characters.",len); - |9 _3 L/ j" r, j
} 9 o4 r8 [& R& z: g. u$ h& {
length(p)   H5 }1 X8 ?" s; `. E1 c
char *p; 1 h7 ?6 w" V/ T1 \, M
{
1 G/ k: ^7 k0 zint n; 0 B* \, d7 \/ E. a5 P: [; v
n=0; 8 U1 z1 U# G3 d8 G, f1 ]
while(*p!='\0') ; \6 C" u& k2 k7 M* k$ S7 X! c
{
7 }$ T$ ^6 ?4 E% P0 v3 I: ~n++; $ C" ]# u( G9 p
p++; 7 `3 P* Y" e1 I
}   s. N1 S& U: ?4 ^1 `/ x
return n;
' t0 O' S8 I2 I; w3 U$ B}
$ F4 S  B, C% L4 Y7 q【程序71】
. d$ m3 u7 ]  s$ X题目：编写input()和output()函数输入，输出5个学生的数据记录。 ) K% Q8 `/ Y( h& j; W- c4 Q1 b0 B$ H
1.程序分析：
* ]) R, A8 P) \* ?) }$ W2.程序源代码： 2 n  v3 D8 w+ {2 f
#define N 5 / d1 P' Q. [. U  I- Q. C) |
struct student % A1 ~" t5 u, f8 t# |7 `% f) P
{ char num[6]; ; T( w0 i' y) l. o: L6 X# k
char name[8]; ; \0 j+ n* e& z, Q
int score[4]; 4 `6 u8 J% Y# z
} stu[N]; ; d8 v, s3 \, g; U" n
input(stu)
6 T) A  ]* S# K( H' Kstruct student stu[];
+ P9 a  J' U& q{ int i,j; 8 I, }) A; G# ~
for(i=0;i { printf("\n please input %d of %d\n",i+1,N);
+ |; N! i/ `; M% \printf("num: ");
+ U- ~# {6 G0 t9 F# Iscanf("%s",stu.num);
  I& y8 t- E, Z! tprintf("name: ");
0 _7 Z& p, R) X3 L/ Q) `scanf("%s",stu.name);
* t+ H5 e  J, N2 a" {! nfor(j=0;j<3;j++)   O* u# `/ `6 w8 o* k' u7 E  {
{ printf("score %d.",j+1); 8 z1 _$ o. T9 d  e+ c' f4 \
scanf("%d",&stu.score[j]);   e2 i9 G' q9 h& z6 g, V
}
3 F7 b: E6 U' b9 ~printf("\n"); ) ~9 D9 S! t! b0 \/ Q9 \$ _
} ! s  ?/ W& A. [$ X3 O
} 7 R7 l: U, r+ c+ P  R9 M' V" a- V
print(stu) ( p( f2 ^! t3 s% k7 N3 Q# O
struct student stu[];
! z3 z+ Y% H% C# S1 r3 R{ int i,j; 6 K: C6 Q' s5 Q8 E  A7 d
printf("\nNo. Name Sco1 Sco2 Sco3\n");
, e6 r" E4 {$ u7 Pfor(i=0;i{ printf("%-6s%-10s",stu.num,stu.name); 7 ~' A& b* ?6 j8 Z
for(j=0;j<3;j++)
6 D5 x7 K' B) l7 p0 s% iprintf("%-8d",stu.score[j]);
- d) ^7 j8 N0 Cprintf("\n");
  S, i/ u1 x3 I( k7 y. T}
* ~5 k1 D0 {6 P' L8 w8 B} ( w4 |. l5 {% v5 p4 p
main()
6 q% t3 W( v& R& E{ ' K, H/ x. ^: G% d- ?; f5 K
input();
! n5 r" }" a; e% ?6 `# ~$ j% Cprint();
8 g7 c7 L' _0 o: g' M}
+ E' ^& C9 W% ]8 k$ A============================================================== ' _! y7 H2 H8 G1 }* F5 B
【程序72】
1 |/ S( N* a: L7 ~6 p题目：创建一个链表。
. F: M% d6 D$ d9 F& _1 o* C1.程序分析：
2 \* d$ j5 u9 m' d& _2.程序源代码： + Y+ l5 a+ E% N; D& d) l+ I
/*creat a list*/
) y% N2 i( R/ d#include "stdlib.h"
* G- Q! W3 a2 e#include "stdio.h"
/ X! H. O% E% i, V! O' Istruct list % t- P  e1 x+ }5 t$ h& @
{ int data; $ S* W. X: [% @) p' q, ]
struct list *next; * w" T- E% r, m3 E
};
3 i% {2 j5 V* N* @( b  l! T$ U9 Otypedef struct list node;
4 l7 k  g9 G7 k9 M% Ntypedef node *link;
" q& i. a' [4 U; ~' z8 Cvoid main() ! ^4 w, Y! \& o. M: v4 x- t# I; k
{ link ptr,head;
7 u1 }8 n+ l# O6 E& m% Sint num,i;
8 k4 ?$ L8 C# Z8 o( F" Wptr=(link)malloc(sizeof(node));   R# F$ x' H7 Z) q& X, U) M
ptr=head;
6 K2 E( K  O- Q) x+ \( sprintf("please input 5 numbers==>\n");
2 Z" ^! w+ S3 ?for(i=0;i<=4;i++) " T$ Q* \) A4 r. p
{
9 U4 W* i; F8 J" a" }* pscanf("%d",&num); 6 T7 Q7 D/ J) \3 m- ^" u
ptr->data=num;
0 ~3 K6 _  k' V/ e, N6 }ptr->next=(link)malloc(sizeof(node));
# I6 c8 T* C) `if(i==4) ptr->next=NULL; 5 }/ s8 z' a3 v: ?- a
else ptr=ptr->next;
( Q7 }2 H. T) p/ n3 Y} % P/ g! ~# S3 C  M0 L" Q& b
ptr=head; 5 E) Y7 J/ j1 M; F8 n
while(ptr!=NULL) 6 v8 V$ R% W8 s/ D- |3 \& [
{ printf("The value is ==>%d\n",ptr->data);
4 v$ Y; J0 r3 Vptr=ptr->next;
) h3 I/ K9 X- e& n}
  K! x9 c, I' V( }' H! b# o}
) N! g" M+ U5 w9 _$ E9 i==============================================================
- s: q0 S$ g# D) K  K【程序73】 * k' T$ T, z, A
题目：反向输出一个链表。 # k) y: y; u8 s( P
1.程序分析： 5 d/ z, H$ W+ c" a1 P) _2 Z
2.程序源代码： / n0 o6 \% p1 R! ]' F
/*reverse output a list*/ 9 X6 ^: ^( F& j5 Q( k# A1 Z2 K9 h
#include "stdlib.h"
% p6 [- l4 e: e#include "stdio.h"
- W# G- y6 H9 R. zstruct list
) M0 N  K- X* J: M6 a# X6 A5 B{ int data; ( @: e# M1 Y! @7 L
struct list *next;
- f# k# L& _9 O' W}; 7 H: [. N- Q9 u3 H
typedef struct list node;
: [" y! m6 Q$ c" t$ q- b0 Atypedef node *link;
  g# v$ D. E; g  x! @void main() ( h) K8 d8 N3 Z+ S* [) ^# W  A
{ link ptr,head,tail;
* \' \# l; h; \; `! H1 S# Rint num,i;
4 }5 O7 a% A' ?0 Xtail=(link)malloc(sizeof(node)); 2 d. Y  c; E  N* }
tail->next=NULL;
1 |3 B9 O" r* j* b1 mptr=tail; ' l; [! w- K! L6 Q
printf("\nplease input 5 data==>\n");
8 q3 ], V. k& R5 afor(i=0;i<=4;i++) 1 b' \% K  J* H# ]8 M
{
% {7 y7 f( x$ ^. d7 t) T" b1 _1 ?scanf("%d",&num); " k, V# P$ V# w3 W
ptr->data=num;
# a7 j# k) _: t4 vhead=(link)malloc(sizeof(node)); : B+ ?  o/ {. y: r
head->next=ptr; 5 ~2 C* D. Y' X: Y4 ^. }3 [4 ]2 U
ptr=head;
  ~9 z* R, Y# }} 0 q8 r7 l+ w, n' y: d* W% T, g
ptr=ptr->next; ; y+ \/ a# _0 E( [! o
while(ptr!=NULL)
0 U# ^# {8 R7 w! u; P" M: _{ printf("The value is ==>%d\n",ptr->data);
* o! n8 K0 f5 G8 Cptr=ptr->next; & m& g+ Z/ S# t+ q
}} 9 {+ h, p, }( _5 U) B( U
============================================================== # P& o+ P& H8 q" G
【程序74】
. `5 M4 g$ C0 s: N) ^$ H题目：连接两个链表。 # o- {& X. V4 X6 \* ]' c' w6 B4 L9 O
1.程序分析： 2 H5 h. Q' l) ^6 I
2.程序源代码：
' Q5 l3 s% ^. p. G( L2 |#include "stdlib.h"
1 Z/ @# N' N+ b$ Q9 b+ S, E- t4 f( C#include "stdio.h" : ], e7 `, J: h
struct list
% a5 v/ [# E! ^1 `{ int data;
2 P# Y, L8 K# E8 @9 E; L2 _, gstruct list *next; ! w+ U( w- U( w/ X8 h8 f
};
0 N+ M0 A/ }( w0 I0 u" Atypedef struct list node;
+ ?1 Y! \" `4 R- Q! p- utypedef node *link; 7 A& f9 t( K2 v" F1 j
link delete_node(link pointer,link tmp)
; J# z$ v( @* g8 s8 i3 B{if (tmp==NULL) /*delete first node*/
2 \$ d5 T* E. `1 s$ S0 y$ Oreturn pointer->next; 1 |0 U/ A  A; t- f
else " R2 e  C  N6 n' l7 ]- I: _" |9 P
{ if(tmp->next->next==NULL)/*delete last node*/ & {, l9 C* t' w9 k
tmp->next=NULL; & [- p  T- x: H9 J$ _
else /*delete the other node*/
) z) H- G1 ]. X8 |0 Gtmp->next=tmp->next->next; 3 a6 b  r( G( c( h
return pointer; 6 L4 A) ]1 S+ W1 Q' F
} 2 K, C+ z5 _% F5 t" Q* w9 g' c
}
5 B8 m5 x0 D' \) b8 H# }4 xvoid selection_sort(link pointer,int num) ) {8 h; Z* {& L1 y1 m
{ link tmp,btmp; & C1 m; G6 E, V  e) m5 P& L
int i,min; 4 {& V2 g- \& y
for(i=0;i {
; W" T# `# ^; J6 x/ J0 W7 vtmp=pointer;   K. W5 G1 m8 X. [* T  y) `' Y0 x
min=tmp->data; ; q9 Y# z& V$ F; K7 T4 x/ h  Y' T
btmp=NULL; 8 x  J. d, H" ^7 a) f( U2 E
while(tmp->next)
0 Q  r/ T. N: P3 R  ?- [9 `# U1 |* H{ if(min>tmp->next->data)
# T% O5 b0 ?7 D) y/ b{min=tmp->next->data;
: g2 q( f* J& Ibtmp=tmp;
. ]4 c7 G& ?+ F) ]" u3 o& ]}
* Y8 l) n- y9 {& z2 E( j' o7 v- \tmp=tmp->next; # |' X( g6 V# Y! |: S% M
}
8 g, x/ |3 P2 k9 \- dprintf("\40: %d\n",min);
0 j4 s# m" @- C7 [! V9 G6 F! Mpointer=delete_node(pointer,btmp); 8 L* K9 B$ d% ^/ S
}
0 S% h' e: P2 v9 w0 e$ b} 7 Y: x' a4 K. e* e4 x0 P
link create_list(int array[],int num) 1 u# U2 H9 c5 k; I! p% l4 I5 _
{ link tmp1,tmp2,pointer; ! m' J# ?, g: f, ?+ y5 w. v
int i;
* d3 P! a) }  g: N% \pointer=(link)malloc(sizeof(node)); 1 D# C+ x& U' c/ s  a' c1 l5 u
pointer->data=array[0];
5 y1 f2 H2 d, A3 e2 W  Q  jtmp1=pointer;
2 h1 ?- C' G5 x$ H& b; v. [1 Cfor(i=1;i{ tmp2=(link)malloc(sizeof(node));
  v" ?5 a: K) ]6 i% Vtmp2->next=NULL;
6 P9 v) y7 X1 L: I1 `! u  y2 Utmp2->data=array;
0 O0 s, [- C: ^" a; Stmp1->next=tmp2;
0 }: z" M' I, s& W' \tmp1=tmp1->next;
8 H& i4 m8 m, F7 p! {( d} : T2 B, w  r2 y& Q5 }. C
return pointer;
5 l" r1 A+ H! @6 e} 0 K) i5 Q6 w( I; j
link concatenate(link pointer1,link pointer2)
" ^/ Q5 q- b; I$ O+ y$ @! Q{ link tmp; " V; K. e5 m; ^$ k
tmp=pointer1; 3 k' W5 r: p+ U. V
while(tmp->next)
- Q' ^! H! p6 Y  @% w" R& [tmp=tmp->next;
6 m3 h) I9 {! Z! M2 T; c( |tmp->next=pointer2; ) _" Z2 I2 G$ J( P
return pointer1; ' o& j: L7 [* ?. a4 m% D) v& [
}
: B4 g- B0 D* J2 Gvoid main(void)
8 j! F1 S1 _7 p/ O{ int arr1[]={3,12,8,9,11}; / y  F- `6 ], l. A# K
link ptr;
7 g! C; m% E6 H( K! J1 f2 g& Pptr=create_list(arr1,5); % _8 |6 [' L1 \6 |! U% |3 y* n& P1 A
selection_sort(ptr,5); 8 j) T# Y. s$ g5 M9 n! n
}
' U7 R2 G2 T  i, v6 c4 Q- C' W============================================================== * h% j1 @+ V7 N) T' H& n
【程序75】
1 i* [% T% B9 j3 d/ p) {  e题目：放松一下，算一道简单的题目。
1 T, A7 N0 f% q: C) ?9 Y, G6 H1.程序分析： : ^$ @2 C( X9 P
2.程序源代码： 8 E7 {3 H! s8 u1 ?
main()
6 R% e5 |% D" F{
' f  R" c4 p3 S+ {" Lint i,n; / ~7 \/ M& r" ~) @% s. W
for(i=1;i<5;i++) 2 E. r3 N) s  V
{ n=0;
* }" k1 x: @( A& Z5 ]- oif(i!=1)
6 Y( @& ?, E' c4 [7 U, Dn=n+1; " _/ h* z0 @4 r- G% _7 K
if(i==3) ) O! j0 u5 @! W2 E: r8 C
n=n+1; 4 O8 p# `" a* V2 K
if(i==4)
/ k" _/ y; @0 H7 T* v, Y, _* O5 qn=n+1;
$ Z; G/ X* P7 Sif(i!=4) 6 X& J3 V* C2 n" z& Y% p7 N
n=n+1; : \" C; q) T. V6 I
if(n==3) 8 v4 Z' n* o1 \5 j" g
printf("zhu hao shi de shi:%c",64+i); $ @9 v8 P1 {  m' U; [. I2 R
} ) M( {) ^9 [6 b) Y6 p6 e0 Z
} 3 A' W( q) W2 `
==============================================================
' N: U& }+ B8 S/ t8 U+ u. V【程序76】
% G# n0 R) [0 V( U: y题目：编写一个函数，输入n为偶数时，调用函数求1/2+1/4+...+1/n,当输入n为奇数时，调用函数 ) _$ y5 A* g5 q. A
1/1+1/3+...+1/n(利用指针函数)
. o9 b+ U; G$ P0 S* _5 Y- I. \3 G1.程序分析：
7 b1 W+ A( T! J/ k" d  F  K* O2.程序源代码：
2 I5 r6 a, W/ ymain() 1 f& W0 Q& b, a
#include "stdio.h"
0 l. m% X& s* {  s/ p; bmain()
' E3 t* M: M: B8 k8 x! y5 W, y+ a- E% J{ , @* d) u' r+ R: K- N
float peven(),podd(),dcall();
5 j6 q& e7 q9 ?% K7 cfloat sum;
! ^5 k* ^, R2 H3 g! v. M% [int n;
. ^, l# A  H8 \0 I, M& M% mwhile (1) 5 K' C6 s2 O/ S* Q2 o6 n
{ 5 }% P, H$ ?* a! r
scanf("%d",&n);
8 z% B* ?/ u% [9 Zif(n>1)
: ]4 b1 M) F5 B5 ~7 c( M  b0 Fbreak; 8 h+ c3 C$ B% e
} ; h+ K# ~( a' g2 N
if(n%2==0) 1 J' V( v! e5 j* K
{ % k8 z' V) W* ^- E3 w/ X# X8 M
printf("Even="); $ L8 ~% I0 y8 B
sum=dcall(peven,n); 8 M# W' R( I  y% Q) I
} * P6 A$ I* x2 b3 x1 Z
else - V5 h% B% _6 w8 w% M% c
{
1 K9 P7 g% S; \) B6 d8 u* b1 Nprintf("Odd=");
# }- [8 D( N" |7 k0 usum=dcall(podd,n); % w9 C' L# k, {! p. c* |; l
} 1 q" o5 O- n1 n- t% s5 {$ W2 @
printf("%f",sum);
6 l9 E0 g# p, `- d5 x}
. {) ^# K- H! |, S; Ffloat peven(int n)
  {; l# a& `! J{ 9 ^3 {% i/ p# O! M) a
float s; , p, q6 f& ]) p8 o0 E7 i
int i; 8 D) T3 q  K2 m( n' `# b) E
s=1; , s' N  s9 K# ^2 c
for(i=2;i<=n;i+=2)
8 ~# z0 z8 Y: I# o: S; ]s+=1/(float)i; 1 j- n+ U% d4 R/ R/ L
return(s);
4 o. J& y+ S- f) }} * g+ x# J7 f& a" e
float podd(n) ! P1 p' v" s/ X, |
int n;
+ z8 J/ w; f/ r4 D! P{
$ L/ }+ |# c& _1 kfloat s;
& g% ^# L( h- Q- N) x6 Pint i;
1 y6 N4 Y; x, c3 j, w1 z- E; Es=0;
1 D, V0 e5 k& y1 ifor(i=1;i<=n;i+=2) ( A6 @+ G, T( n
s+=1/(float)i;
9 O9 J" O4 R+ E- h4 C. G9 Nreturn(s); 2 I6 G; H9 t( g0 n; k8 E2 t
}
9 ?  g  |& I+ kfloat dcall(fp,n) / O3 c0 G+ _3 \
float (*fp)(); & `9 p8 u$ K/ d( ?$ r
int n;
, y  E. w& ]6 z1 E: e{
* J% g6 c. U0 Y+ R$ e4 Dfloat s;
" I5 m7 Z4 D/ c& z$ a' u, \: n, ss=(*fp)(n);
- m1 a. |' b# R# greturn(s);
' O( ]8 P: D9 f' E, [} * i$ p  O$ G" x0 |' u% ^+ n$ }
============================================================== 4 h! S; n0 ^5 @: I7 E5 k