Solución primer punto del Segundo parcial de Computadores en Física

1. Primer punto para un grupo
• Primera solución

#include "stdio.h"
#include"math.h"
#include"time.h"
#include"stdlib.h"
main()
{//genera nums. aleatorios entre 0 y 2 pi
  int i;
  time_t t;
  float r, numero,pi;
  srand48((unsigned)time (&t));
  pi=3.141592;
 for(i=0;i<200;i++){
    r=drand48();
    numero=2*pi*r;
    printf("%lf \n",numero);
  }//for  
}

• Segunda solución

#include"stdio.h"
#include"math.h"
#include"time.h"
#include"stdlib.h"
main()
{//genera nums. aleatorios entre 0 y 2 pi
  int i;
  time_t t;
  int r;
  double numero,pi;
  srand((unsigned)time (&t));
  pi=3.141592;
  for(i=0;i<200;i++){
    r=rand()%10000;
    numero=(double)2*pi*r/10000;
    printf("%lf \n",numero);
  }//for  

}

2. Primer punto segundo grupo

#include"stdio.h"
#include"stdlib.h"
#include"time.h"

main()
{//para verificar si los numeros aleatorios son uniformes
  int i;
  time_t t;
  float x,y;
  FILE *pf;
  srand48((unsigned)time (&t));
  pf=fopen("aleat.dat", "w");
  for(i=1;i<10000;i++){
    x=drand48();
    y=drand48();
    fprintf(pf," %f %f\n",x,y);  
  }  
  fclose(pf);
}

3. Segundo punto segundo grupo

#include"stdio.h"
main()
{ //procesa notas
  FILE *pf;
  float not[500],suma,prom;
  int i;  
  pf=fopen("estudiantes.dat", "r");
  for(i=0;i<500;i++){
    fscanf(pf, "%f",¬[i]); //lee las notas
    printf("%f \n",not[i]);
  }
  suma=0.0;
  for(i=0;i<500;i++){
    suma=suma+not[i];//suma las notas
  }
  prom=suma/500.0;//halla el promedio
  for(i=0;i<500;i++){

    if(prom*1.0<not[i])printf(" %f  A\n",not[i]);
    if((not[i]<prom+1.0)&&(not[i]>=prom+0.5))printf(" %f  B\n",not[i]);        
    if((not[i]<prom+0.5)&&(not[i]>=prom-0.5))printf(" %f  C\n",not[i]);    
    if((not[i]<prom-0.5)&&(not[i]>=prom-1.0))printf(" %f  D\n",not[i]);

    if(not[i]<prom-1.0)printf(" %f  F\n",not[i]);

  }

  fclose(pf);

}

4. Tercer punto

#include"stdio.h"
main(){
 //calcula el consumo del estrato 5
  int i;
  float c[200][3],consu,usuar,prom; 
  FILE *pf;
  pf=fopen("consumo.dat","r");
  consu=0.0;//para sumar el consumo
  usuar=0; //para sumar los usuarios
  for(i=0;i<200;i++){
    fscanf(pf,"%f %f %f ",&c[i][0],&c[i][1],&c[i][2]);
    printf("%.0f %.0f %.0f\n",c[i][0],c[i][1],c[i][2]);
    if(c[i][2]==5){
      consu=consu+c[i][1];
      usuar=usuar+1;  
    }
  }
   prom=consu/usuar;
  printf("promedio del estrato 5 %f \n",prom);
  fclose(pf);
}