- 在线时间
- 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>
0 Q- T6 F- u8 N3 m+ _< >#include<stdio.h>
. J. a* {- ]: L: w4 [' Z#define N 100
2 `5 n! v5 p, o- s#define M 20</P>
% |" F4 J& h5 p4 z< >void main()
6 }& B" z. G: P4 O+ j" \3 d{% k+ i! W- y$ q+ r
FILE *fa,*fb;2 N, P' C" I/ o P6 k
char filename[30];1 |% ?) f* m; D& `
int n,m,i,j;
' n# R3 e6 p) f& z/ O4 z$ K double a[N*M]={0.0},b[M]={0.0};</P>, X7 B& l$ N, b. X$ }
< > printf(" lease input the number of columns and lines of matrix:n,m\n",N,M);) t% h# |* ~) ^9 c+ M
scanf("%d%d",&n,&m);</P>- s& H: ?- z( D; `: F& M, M
< > while(n>N||n<=0||m>M||m<=0)) t& M" u) D! Q* M4 W: `% x* _
{5 Z% X9 h! s+ s' m, I, t+ V8 }
printf(" lease input number of matrix:n(0<n<N),m(0<m<M)again!\n",N,M);
2 W3 x6 D! D8 |. h: @3 V0 L scanf("%d%d",&n,&m);
/ B3 H* g! q# B2 r) h }</P>
! {# `5 z* }/ T: Y< > printf(" lease input a filename:\n");6 Q w4 t. k9 `4 D+ b) b4 B
printf("\n");% F# R7 O% I0 q4 D1 N0 y
scanf("%s",filename);</P>6 q- E F g: r% N6 e
< > if((fa=fopen(filename,"r"))==NULL)) C. J4 k4 B& V0 G5 i8 B6 Y: C1 [
{7 h1 S* d0 P( K. @5 R
printf("File is not exist.Please creat a file.\n");
5 a- w, l$ F" I. y+ [( M exit(0);9 m( s; j% L% R9 L0 Z* Z; ^
}2 O6 m: v6 Y* O9 R$ {* Q, j1 L
6 N5 r* k4 b& E$ k. k8 x) i
while(!feof(fa))
+ ]; s r2 s& s" w {
6 Z ^5 W8 v( i& a$ {$ p for(i=0;i<m;i++)
; ?1 y6 X, O! u fscanf(fa,"%f",&a);
- z8 e, r) \" S4 n% R Y- z printf("%f",a);
$ {; h) B/ I- U7 {7 b/ N5 B }</P>4 h+ ?# a; k. `( h8 H
< > for (i=0;i<n;i++)1 m: E, P! z/ F7 l/ r* x
for (j=0;j<m;j++)6 f" @, n$ Q6 w4 L f* x
if (j==m-1) printf("%15.2f\n",a[i*m+j]);
7 M! f' V6 X# U( y! M2 _, t& F _ else printf("%15.2f",a[i*m+j]);</P>5 D5 ~1 T f. F6 |$ i
< > for(i=0;i<m;i++)7 x, A5 m) N# u% g. b
{3 p6 ?3 a: J: Q: n# c- {3 ^
for(j=0;j<n;j++)
/ ? W. Y5 B q* G8 ^% J7 g! ]4 g. | b+=1.0/n*a[i+j*m];
. y& y, f( P; ^4 t }</P>
( r4 m' B, i9 ^) q* G< >$ m% l2 u, H. Y5 x8 M8 f
fclose(fa);</P>
( ^' k: n3 I, ^# e" z- \< > if((fb=fopen("result.txt","w"))==NULL)0 Q4 z8 i: D ^
{
5 X% Q) j8 c4 d o A% Y9 w& y printf("Result file do not exist.\n");
8 Q' {9 i- {5 p$ h) t( q) F% h exit(0);" }) ? {, S- L1 B! P8 N3 V% @( b
}</P>
X3 o. S+ V+ `3 f" q. }% W< > else
: p* f1 Q( S# f3 _! y {4 C" z0 L0 d& L* m5 S
fprintf(fb,"The average of matrix:\n");
; t7 H) h5 \4 s" E3 K fprintf(fb,"\n");
4 l/ [8 \" k0 @$ T* M0 ^& C9 u( P! @- a for(i=0;i<m;i++)
* B% {: J* l: {- X fprintf(fb,"%15.3f",b);: w$ R2 J8 Z4 J! H s/ z
fprintf(fb,"\n");
7 }9 t- N! r3 q! m$ f6 R A! b6 c }
1 {% M c' ~" x, r9 l) _* F fclose(fb);6 f( z# g( @5 [4 F" O5 q$ S9 N
printf("Have done!The result in file:result.txt\n");</P>
5 W8 ?/ b5 N; \ y* s: m( I, G< >}</P> |
zan
|