- 在线时间
- 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 s2 d2 I8 Y4 D- g/ L, e< >#include<stdio.h>% T' a/ x* X. F. q! c
#define N 100
0 C2 i& \% F- C1 A, ~#define M 20</P>
$ M6 u9 \. N1 t- v5 z< >void main()& Q$ g4 P1 @) w# I: v0 d( E- u
{
7 d1 R0 I$ W" q+ B1 v2 K FILE *fa,*fb;( W* `9 D/ w" Y# G6 A7 l
char filename[30];8 L: V! K' |( X3 M3 l, _
int n,m,i,j;
; x0 N; s) p9 `* A! S/ w double a[N*M]={0.0},b[M]={0.0};</P>
+ |- E' [) ~, L* X& o/ T" b< > printf(" lease input the number of columns and lines of matrix:n,m\n",N,M);
: \* |& c1 Z8 Y3 ~4 x; }- s+ { scanf("%d%d",&n,&m);</P>! P. e9 [: N% `. t: ~
< > while(n>N||n<=0||m>M||m<=0)
# U f$ ~' _( w6 q {# e" o, z' I p( I5 Z) Q3 P* K
printf(" lease input number of matrix:n(0<n<N),m(0<m<M)again!\n",N,M);
& F. n" j5 Z0 z3 M7 _! H8 J" { scanf("%d%d",&n,&m);
8 s u9 B3 I# \' G: n7 ?5 A& s5 d' K6 G }</P>( I$ t6 K! ?( I( L0 h3 H
< > printf(" lease input a filename:\n");
2 S3 G5 p" X1 }7 M1 J' A printf("\n");
' s! B. _3 ~6 H7 m scanf("%s",filename);</P>7 w% H! h1 _, V5 g
< > if((fa=fopen(filename,"r"))==NULL)
4 Z0 y4 S1 z; F: D; L {+ d8 \! P# t2 \$ R
printf("File is not exist.Please creat a file.\n");6 S8 Q h" s% q# N1 U
exit(0);
2 }4 \+ Z$ A: p( U" @8 C }
; s# h* Q3 j8 m0 S) J8 h
! o. F! x& r( }" h, a while(!feof(fa))1 f3 ^- Q l8 G: I
{( e5 ~1 g& Q$ S% V; O( t
for(i=0;i<m;i++) a% t# L9 b) K2 v% v* B
fscanf(fa,"%f",&a);$ L! J6 S* _. k; d9 j, @
printf("%f",a);8 J" r& m& b* _2 d. x- O* q
}</P>& @4 @- g1 m; U1 U3 d) Z. ^
< > for (i=0;i<n;i++)
; d; e7 S5 f. s for (j=0;j<m;j++)
2 _( S1 p0 g# f, U0 {8 r if (j==m-1) printf("%15.2f\n",a[i*m+j]);8 d) ]6 D7 T: r) C# ?. k( d
else printf("%15.2f",a[i*m+j]);</P>
3 ^6 h z( I/ [3 D, e2 N< > for(i=0;i<m;i++)
% ~6 r) y: J5 @1 ]4 V) B. x6 j9 ~ {
) y/ ~1 A* e# u7 \3 ^1 D+ S k for(j=0;j<n;j++)
3 M+ G" S5 A" E% X+ u, [ N0 Z b+=1.0/n*a[i+j*m];
& i4 P7 k u, ^: J }</P>
, t) ~3 O$ a0 ], \7 G. _+ l< >
! J2 [/ v; {1 O, Q( G% ? fclose(fa);</P>
g# L3 [5 L5 u7 g9 a/ M" w* q< > if((fb=fopen("result.txt","w"))==NULL)2 e2 [: Z/ B( i9 ]5 G' `+ `
{1 d' |& i$ W \- O4 u9 `8 e
printf("Result file do not exist.\n");1 F2 A0 g: Z- J. Q% ~
exit(0);
- b/ g1 n$ h$ @5 C }</P>
9 n7 i" F8 Z/ N1 W) I8 F1 ~2 |< > else9 U) B+ n& z2 ^' ?
{* h9 r" f4 Y; Y/ G6 h
fprintf(fb,"The average of matrix:\n");4 E6 I4 m5 E8 g
fprintf(fb,"\n");: E4 i3 B( d& n
for(i=0;i<m;i++)* N/ p# c) U3 e! Q/ m
fprintf(fb,"%15.3f",b);
2 @' N" R0 `: e5 @ fprintf(fb,"\n");
* H0 H, F) Q6 ~0 B, H% }0 m" W/ T }0 n( m) R- E/ i" s
fclose(fb);
: z% g+ Y# q9 b" S M% R printf("Have done!The result in file:result.txt\n");</P>
# O. h7 h' |% ?; `) D9 f< >}</P> |
zan
|