sanji111.c.txt

这里是有关材料力学的工程分析软件,是学习工程力学的学生的一个不可少的工具,欢迎大家的进入

#include <conio.d>
#include <stdio.h>
#define N 200

void read-dat(int xx[N])
{
 int i,j;
 FILE *fp;

  fp=fopen("stud1.dat","r");
    for(i=0;i<20;i++){
     for(j=0;j<10;j++){
      fsanf(fp,"%d,",&xx[i*10+j]);
      printf("%d",xx[i*10+j]);
    }
    printf("\n");
    }
    fclose(fp);
   }


 int FindMax(int *n,int xx[N])
 {int i;
  n=0;
  max=xx[0];
  for(i=0;i<200;i++)
  { if(max<xx[i])
     {max=xx[i];} }
 for(i=0;i<200;i++)
  { if(max=xx[i])
     n=n+1;}
     return(max);
   }

 float DLsum(int n,int xx[N],int max)
{int i,sum;
 float  a;
 sum=0;
 for(i=0;i<200;i++)
  { if(max=xx[i]) continue;
    sum=sum+xx[i];
  }  
  a=float(sum)/(200-n);
  return(a);
}

void main()
{
 int cnt,xx[N],max;
  float pj;
  FILE *fw;


fw=fopen("stud1.out","w");
 clrscr();
 read-dat(xx);
 max=FindMax(&cnt,xx);
 pj=DLsum(cnt,xx,max);
 printf("\n\max=%d,cnt=%d,pj=%6.2F\n",max,cnt,pj);
   fprintf(fw,"%d\n%d\n%6.2f\n",max,cnt,pj);
   fclose(fw);
}