- 在线时间
- 0 小时
- 最后登录
- 2005-5-8
- 注册时间
- 2005-5-8
- 听众数
- 0
- 收听数
- 0
- 能力
- 0 分
- 体力
- 55 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 17
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1
- 主题
- 1
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级   12.63% 该用户从未签到
 |
< >这是求矩阵的列的平均值的程序</P>+ E5 G# H$ K8 R% {$ A
< >#include<stdio.h>
/ g ^$ s0 ~3 `0 e/ X: y8 `$ c#define N 100" O8 B) U/ F4 B$ r# W9 c
#define M 20</P>
3 y* O- {+ L% q9 d+ Z0 B g/ K, T( o$ h< >void main()
" E l7 M1 z' f3 N& I9 L{
( `) ~8 O& a# r FILE *fa,*fb;; X |6 D: z" i; y* p. ]" I$ v
char filename[30];1 s2 {9 a9 z l3 r3 A3 M) D2 m; v
int n,m,i,j;
7 ^& Q& Z! \2 T' k double a[N*M]={0.0},b[M]={0.0};</P>
8 G" L; @6 ^: }< > printf(" lease input the number of columns and lines of matrix:n,m\n",N,M);
0 ~1 M' ^. L! L/ o; ~. m( @ scanf("%d%d",&n,&m);</P>
/ X) n3 W% b, P1 A& }( B< > while(n>N||n<=0||m>M||m<=0)
& o) x7 I% {. J9 M {
h! B6 d" E! D* C, S- e printf(" lease input number of matrix:n(0<n<N),m(0<m<M)again!\n",N,M);5 |, o. v" h. M3 ^
scanf("%d%d",&n,&m);
}2 x& u" x, C' h* n4 ^/ q6 R4 y" x }</P>
/ j8 ^9 P3 f6 ~< > printf(" lease input a filename:\n");
4 V1 v; O2 u y printf("\n");
( B E% U+ R& u# D scanf("%s",filename);</P>
/ B" T$ V! E- d2 _5 R- ?; B8 q< > if((fa=fopen(filename,"r"))==NULL)
* w- x, w/ j: L' d! V1 ~ {# g& o' Q) t" n+ W
printf("File is not exist.Please creat a file.\n");4 x, i: }. U$ k
exit(0);: B9 x) }3 F: f* f
}. i; M' J1 y7 L" L7 Q( S8 Q
" i' e1 X/ y' y: G
while(!feof(fa)): Y( @( C f' `, {* Z' u5 _# c( A
{. B- |4 u7 D5 }4 i
for(i=0;i<m;i++)9 g f1 {2 K9 g
fscanf(fa,"%f",&a);
' ~) w# H8 j5 a- G3 E6 k' j printf("%f",a);
" P' \( Y2 Y9 D* I4 { }</P>1 F' N/ o! E5 P" [; M9 v7 \0 u& y
< > for (i=0;i<n;i++)
& @1 h# X5 N: C for (j=0;j<m;j++)& y, V7 S4 q7 w" J; X/ U
if (j==m-1) printf("%15.2f\n",a[i*m+j]);$ z+ }: [& i1 n; {% k$ I
else printf("%15.2f",a[i*m+j]);</P>% l4 q! F& b3 n: B5 F. C0 M+ K
< > for(i=0;i<m;i++)
1 |& m& v4 U& b- M# F0 \9 _ {
/ W/ C" |; ^6 g. C$ J for(j=0;j<n;j++)" p+ `9 G: M- ~! Z- k4 u% Z
b+=1.0/n*a[i+j*m];9 H; @8 v( V/ a, W8 S4 k# B
}</P>
) T* R! V" c4 y' Y< >) e. o& d" \5 E" k4 b* \$ U1 f$ W
fclose(fa);</P>
2 T9 ^4 k( f" o$ x< > if((fb=fopen("result.txt","w"))==NULL)3 b0 P' j! S/ V( v+ {- o
{
2 s$ ~, q6 q1 X5 ^% l9 T printf("Result file do not exist.\n");
$ [ _8 a* E8 k% o4 W- [! t. Q exit(0);! a3 \8 P) s/ I V- u9 K2 v
}</P>! R2 E0 E) {1 D- Q2 [8 Y
< > else. o- K+ }( i6 m& x+ P2 \
{ j4 j4 P: h: {1 h/ _" {+ |, E
fprintf(fb,"The average of matrix:\n");
' M- U) F9 {3 g7 w: q! ~. H7 H4 D) d fprintf(fb,"\n");
" c7 [5 s b. ~3 O% h4 G+ U: k for(i=0;i<m;i++); |' M$ R8 o3 A* m: g( k# o
fprintf(fb,"%15.3f",b);
0 y/ i3 f8 C) Q7 m5 ~ f fprintf(fb,"\n");5 ~7 J& _) Q; I
}7 t: \+ v3 W1 ]4 N9 c: S
fclose(fb);
1 T4 ^% r) s, K printf("Have done!The result in file:result.txt\n");</P>
6 w# k7 {% w. L! g" w< >}</P> |
zan
|