- 在线时间
- 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>
* Y4 J! m9 t; n' q" _4 J< >#include<stdio.h>
% s- Q: l* z z" s; Y8 Z. ^: E1 w#define N 100
( p' t" h" W% j+ W#define M 20</P>
3 D9 T" [# X; A2 C$ K$ |< >void main()6 U1 N2 E, ^, l( O# c. U
{
' Q$ j$ C$ `: A! H% H+ V FILE *fa,*fb;1 ^4 U; Y& c* H2 O- ^$ W
char filename[30];, n& e7 `4 |5 c6 b% h
int n,m,i,j;% D, o/ g, ^) T6 [, t, t* p$ s
double a[N*M]={0.0},b[M]={0.0};</P>
) |" Y* I& j: E! f5 E6 w5 }* m: E< > printf(" lease input the number of columns and lines of matrix:n,m\n",N,M);3 l( D" D3 R: z; l
scanf("%d%d",&n,&m);</P>7 `% ^% M( M2 U! o3 L |5 d' G% t
< > while(n>N||n<=0||m>M||m<=0)
* u8 T* ~( c5 p: X- ]% i# L* K {
) [+ l" |8 D9 U( |4 X/ D printf(" lease input number of matrix:n(0<n<N),m(0<m<M)again!\n",N,M);
( H0 P4 K( d, q0 J( v E scanf("%d%d",&n,&m);/ S5 f6 c* p$ |; _' W& f$ A: j
}</P>8 C8 }+ c: g* s1 u: X
< > printf(" lease input a filename:\n");+ M# J- C* S# ~. [6 |" O
printf("\n");& g- S2 ^/ _7 w$ r* f1 ` E
scanf("%s",filename);</P>
3 Y6 z5 {4 q% E< > if((fa=fopen(filename,"r"))==NULL)* f# i; U; y7 P3 d5 |% V7 N% ]
{2 d5 B1 ]1 f: q0 G N
printf("File is not exist.Please creat a file.\n");
5 @; c* Q+ \( b& m/ w exit(0);
4 c) ^( ?. e3 j; v }
# ^$ P2 G. A. z$ ?: y* N
: S& t' {+ X {8 n6 u; j while(!feof(fa))
3 t- l1 }2 W# k; v7 W6 j {7 S& \6 D/ p5 x9 }1 {0 U. n
for(i=0;i<m;i++)4 V6 X; @! ^3 p; k _; G" x
fscanf(fa,"%f",&a);
+ M7 n3 f2 }4 \) E- f( a: K printf("%f",a);8 z: G- }4 `7 @& b2 W; i* i. O$ Z
}</P>
/ N% @/ f5 f1 v) O0 b% f< > for (i=0;i<n;i++)4 L/ F- p! R+ C6 E+ S O
for (j=0;j<m;j++)
* ^1 |; ?- B* t2 o* a6 O if (j==m-1) printf("%15.2f\n",a[i*m+j]);
0 F$ y% b7 |0 K1 u- Q" ]0 B! v else printf("%15.2f",a[i*m+j]);</P>
+ i- E9 F* i6 y< > for(i=0;i<m;i++)5 ]) \- ~# c3 q0 R+ D. L; V% ?: K. ?
{
, ]( a- V% [6 [4 e' R for(j=0;j<n;j++)5 [* O0 T1 ~, z- }, O
b+=1.0/n*a[i+j*m];9 x4 N8 k" _6 a2 }
}</P>
" a( L- N" X# b* Q6 s1 S< >
- I: b3 m- i3 B! S: O9 y fclose(fa);</P>
% C/ i6 M3 }/ }* y% \< > if((fb=fopen("result.txt","w"))==NULL). z2 I9 Q# y2 X- ~$ a( S1 ?/ F
{
( ~: D8 L; X* T# S7 g6 E# c printf("Result file do not exist.\n");
6 O; }9 ?" O0 f exit(0);
' z) r1 p o; H3 ] }</P>
/ U/ @& m$ B2 Q6 f< > else, f; q# Q% }6 N. ?% j
{& y* o- R7 m+ l# A) s$ n
fprintf(fb,"The average of matrix:\n");) i/ Q. e# ~6 Q* t i6 K8 Q
fprintf(fb,"\n");& z- j( m) ^& y2 B
for(i=0;i<m;i++)
8 L1 v; i, r6 ^: Y9 Q- i# V( i fprintf(fb,"%15.3f",b);
1 m8 E$ v4 M$ {% W! B3 s fprintf(fb,"\n");
2 h! X5 t. S& L) \ }
% z4 N2 F+ Q* c$ v; y fclose(fb);: j! S2 C# \" y
printf("Have done!The result in file:result.txt\n");</P>. n/ A$ G8 W# f6 r* j. b: E
< >}</P> |
zan
|