查看: 3315|回复: 1

[求助]C做的一个程序，读不进去数据哦~~~

字体大小: 正常放大

lavender

1 主题	0 听众	17 积分

升级 12.63%

该用户从未签到

电梯直达

1^#

发表于 2005-5-8 22:14 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

<

>这是求矩阵的列的平均值的程序
<

>#include<stdio.h>
#define N 100
#define M 20
<

>void main()
{
FILE *fa,*fb;
char filename[30];
int n,m,i,j;
double a[N*M]={0.0},b[M]={0.0};
<

> printf("

lease input the number of columns and lines of matrix:n,m\n",N,M);
scanf("%d%d",&n,&m);
<

> while(n>N||n<=0||m>M||m<=0)
{
printf("

lease input number of matrix:n(0<n<N),m(0<m<M)again!\n",N,M);
scanf("%d%d",&n,&m);
}
<

> printf("

lease input a filename:\n");
printf("\n");
scanf("%s",filename);
<

> if((fa=fopen(filename,"r"))==NULL)
{
 printf("File is not exist.Please creat a file.\n");
 exit(0);
}

 while(!feof(fa))
 {
for(i=0;i<m;i++)
fscanf(fa,"%f",&a);
$ t& E( w! w, T. n$ q printf("%f",a);
5 z9 s" T- g. o/ I6 _& z }9 {. O* {# u1 ]: R+ y: m' U* b# `
<> for (i=0;i<n;i++)3 V. A( a( U( `2 X2 ?* I S
for (j=0;j<m;j++)
, k( w% v, y5 L2 k L if (j==m-1) printf("%15.2f\n",a[i*m+j]);
) H0 V, W7 `( B, w6 D else printf("%15.2f",a[i*m+j]);
" e* F3 [. i9 B! }" p8 h( u<> for(i=0;i<m;i++)7 e& I; J, ^3 p. r( B2 h
 {
* d" L k; l2 z- ?+ I5 \ for(j=0;j<n;j++)4 |* }& d9 v) L! ~$ b
b+=1.0/n*a[i+j*m];9 C2 l" | Z( s0 G
 }
+ I1 x: x8 e& f+ I. u% c- R<>
5 y, L, b) h2 `1 M6 P+ F fclose(fa);
* y" h W4 O. \+ W W& C<> if((fb=fopen("result.txt","w"))==NULL)5 {1 H5 l+ w, x( z' `0 f f
 {) j6 I& V) @6 \7 R; x/ @( a$ ~) q/ C
printf("Result file do not exist.\n");5 q! u/ o7 P: q: c M8 g. c( E) S
exit(0);
; i1 `* G4 a4 p& j v }- _% k1 R. J4 n$ p/ I; m! T5 t) V
<> else5 W7 v6 P; f, B4 K* O4 f. Z# z8 c
 {
( S4 H1 G4 k5 Z& _ g# Y) t fprintf(fb,"The average of matrix:\n");
: X" i5 C# t7 y' b; U fprintf(fb,"\n");% q. s0 v) {/ |7 `$ M2 A
for(i=0;i<m;i++)
, H# J) L; t! l2 ~5 d% } fprintf(fb,"%15.3f",b);/ ]0 q4 H% j8 k( J6 Z4 I' `) c
fprintf(fb,"\n");
+ J9 V( p! Y5 H) q/ ~ }$ r- n' a# E9 Y7 L% o
 fclose(fb);
5 N* r# d$ E& g0 w0 x printf("Have done!The result in file:result.txt\n");5 t V& d' ?$ f: |; B
<>}