- 在线时间
- 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>
$ `# c$ s, ^+ \$ }+ m7 _< >#include<stdio.h>
. S6 l' z7 L0 x. C$ B, C$ `#define N 100
- S T9 R2 Z) T5 p# v% @8 x#define M 20</P>
* {, V- D" _$ B$ T< >void main()
5 w5 H& `2 [# E{
+ h4 W5 u0 Z2 y' V' Q" ? FILE *fa,*fb;! j( o* z' ]' v, i, I8 g) i2 E
char filename[30];4 _% s- T2 k& L- n/ E3 w
int n,m,i,j;* d) D7 `3 f8 V3 P; y. J2 J
double a[N*M]={0.0},b[M]={0.0};</P>
3 y' r, }' j/ ?0 j- E$ m! y& E< > printf(" lease input the number of columns and lines of matrix:n,m\n",N,M);" O" I8 x# @$ L: D% A/ h
scanf("%d%d",&n,&m);</P>
" f+ V' n" O( u< > while(n>N||n<=0||m>M||m<=0)
4 x) T! N+ a9 k {2 n% I) q6 x' U( M& z* A
printf(" lease input number of matrix:n(0<n<N),m(0<m<M)again!\n",N,M);( m: c* P6 B7 W6 E2 ?. O+ m
scanf("%d%d",&n,&m);
" G$ D; p+ i, @ }</P>
2 O6 m5 P+ D# _! y- z< > printf(" lease input a filename:\n");; z4 ]2 p3 F7 B- {# j) w; W
printf("\n"); w* v7 a+ H0 ?# o# z* E8 y
scanf("%s",filename);</P>
( ]( x* C) ]8 I) l$ f< > if((fa=fopen(filename,"r"))==NULL)" I9 Z! q: p5 @0 ?7 Y7 V0 U# m- P+ v
{
W: Q, T! m4 t6 d+ d printf("File is not exist.Please creat a file.\n");2 P' |3 N4 O f+ v2 Q- i3 ?
exit(0);
, w4 ]. I, r$ C2 { }9 D8 l/ o8 _" C, y2 w5 j; V3 T0 Y
4 P/ z4 |. j$ _) M( r3 S- A$ W while(!feof(fa))
9 P1 C$ y& e8 Q# ?1 V {
3 D" L L s9 `! W7 M" T, b for(i=0;i<m;i++)
2 l) V6 {7 |2 r8 g% F. t( x9 l( v fscanf(fa,"%f",&a);) c9 n g- P3 S& y3 `2 f+ ~
printf("%f",a);3 M( m- e% Y% w3 e7 U% [: K
}</P>
, _9 z q: y' I2 p< > for (i=0;i<n;i++)# i9 c2 ]% n/ B
for (j=0;j<m;j++)
/ G( Z, H2 C. S% n% b! W if (j==m-1) printf("%15.2f\n",a[i*m+j]);/ o9 q8 ^0 v+ Q1 ~* L
else printf("%15.2f",a[i*m+j]);</P>
8 @( l: G4 C U7 a< > for(i=0;i<m;i++)
5 y; K6 V2 B& ~ S {
" L- |% c1 {! M0 V) X- c* N& h for(j=0;j<n;j++), K A( \7 g. y( N1 f" v( q% Y' V
b+=1.0/n*a[i+j*m];
) o# L' I& k, i! P' w: } }</P>9 M7 q G& R0 |! s( ]* l5 ]! l8 e
< >3 S- }' D* ^$ t9 x- J
fclose(fa);</P>
2 ^0 E. S* K2 v( M/ \& z7 o< > if((fb=fopen("result.txt","w"))==NULL)
2 ~0 j3 i: N; K& P9 Z1 L( o5 T3 ^ {
' T5 a) O0 \' R- U& \. Y' e% Z printf("Result file do not exist.\n");: Q5 l. x9 j1 G p9 w
exit(0);6 ?6 S6 J. B1 [$ X: {/ W5 e ~9 E7 `
}</P>6 r8 Z7 `% Z6 |" N% Y+ B: W! g
< > else
/ Q2 X! r \, R- I3 n {
. m/ X3 M* {$ f9 ^' I) \$ O fprintf(fb,"The average of matrix:\n");8 o$ O' N8 z# h# p# I, Q
fprintf(fb,"\n");2 S( [8 N$ ^# j$ H: Y% x* l7 R2 n5 F
for(i=0;i<m;i++)& Z. _! L- C- _/ F
fprintf(fb,"%15.3f",b);
' ]2 [1 ~2 z& y; T fprintf(fb,"\n");8 R F. Q0 {% E( G( ~; s
}
k3 U7 z. N$ f fclose(fb);* T" y# i0 h: r5 J9 O: x9 [- l
printf("Have done!The result in file:result.txt\n");</P>7 i9 ?: ]3 J/ A
< >}</P> |
zan
|