CERTAMEN #1 ICI-142
                              Pauta Correccion

(1) 
   (a) (5 ptos.)

       main                        f                 
    +--------+                +---------+           salida (printf): 6,6
  a | 4-6    | 200          p |  200    |  500       
    +--------+                +---------+ 
  b | 5-6    | 300
    +--------+
  p | 300    | 400
    +--------+

 (b) (5 ptos.)

      main                        f                   global             
    +--------+                +---------+            +----------+     
  x | 4-11   | 200          p |  200    |  500     n |  6-7     |  100
    +--------+                +---------+            +----------+ 
  y | 11     | 300                
    +--------+                                     salida (printf): 7,11
  
(3) 
    (a)  uso de funciones: 3 ptos.
         calculo de pi: 7 ptos.

    float pi(int n){
    
          float mult=2;
          int i=1;
               
          while (i<=n){
              if (i%2==0)
                 mult = mult*i/(i+1); 
              else
                 mult = mult*(i+1)/i;
          }
          return(mult);
     }     

    (b)  uso de funciones: 3 ptos.
         calculo de pi: 12 ptos. 
  
    float pi(float epsilon){
      
          float pi1,pi2=2;
          int i=1;

          do{
             pi1 = pi2;
             if (i%2==0)
                 pi2 = pi1*i/(i+1); 
             else
                 pi2 = pi1*(i+1)/i;
          }while (fabs(pi1-pi2)>epsilon);
          return(pi2);
    } 

(2)
    validacion : 6 ptos.
    circularidad : 15 ptos.
    uso de funciones : 4 ptos.


    
    /**** idea: ingresar el numero en un arreglo bidimensional ****/
    /**** de 2 filas, en la primera fila van sus digitos y en  ****/
    /**** la segunda un numero que indica la cantidad de veces ****/
    /**** que el digito ha sido originador de un conteo        ****/
     
    int circular(lng int num){
       int A[2][m], aux=0;
       int N=0,indice=0,x=0;
       int n,cont;
       
       while (num>0){
          aux = aux + num%10;
	  num /=10;
	  if (num>0)
	     aux *=10;
          N++;
       }
       
       i=0;
       while (aux>0){
         A[1][i]=0;
         A[0][i++]=aux%10;
	 aux /= 10;
       }
       
      /* validar digitos no repetidos */
       for(i=0;i<N-1;i++)
          for(j=i;j<N;j++)
	     if (A[0][i]==A[0][j])
	         return 2;
		 
      while (A[1][indice]!=2){
            
	    n = A[0][indice];
	    cont = 0;
            
	    while (cont<n){
	        if (indice == N-1)
		   indice = 0;
		else
		   indice++;
		cont++;
	    }
	    
	    if ((A[1][indice]==1) && (indice!=0))
	          return 0;
	    else
	        if ((A[1][indice]==0) && (indice!=0)){
		     A[1][indice]=1;
		     x++;
		}else 
		    A[1][indice]=2;
      }
      if (indice !=0)
         return 0;
      else 
         if (x == N-1)
	     return 1;
   }	     
   Valores de retorno :
       2: no es circular (digitos repetidos)
       1: es circular
       0: no es circular (sin digitos repetidos)