#include <stdio.h>
#include <stdlib.h>
#include <math.h>

/*Variables globales*/
int ndatos,base,precision;


/*Funciones de conversión*/
void conv_ent(int *p,int num,int base);
void conv_frac(int *p,double num,int base,int pre);


/*Funciones de lectura y escritura*/
int datload(FILE *file,double *t);
int datwrite(FILE *file,int **t,int Cuanto)

int main(){
	
	/*Dos apuntadores tipo FILE para los archivos a leer y a escribir*/
	FILE *file_in,*file_out;

	/*Variable para nombrar al archivo de salida*/
	char archivo1[50];

	/*Variables para calculos*/
	double *x,pfrac,pentera,cuantos;
	
	/*Variables de conversion a enteros y triple apuntador para almacenar los digitos de todos
	los números a convertir */
	int parte_ent,***digitos,cuanto,i;

	printf("¿Cuantos numeros quiere leer\?\n");
	scanf("%d",&ndatos);

	/*Se dimensiona el apuntador para almacenar los numeros que se quieren leer*/
	x=(double*) malloc(ndatos*sizeof(double));
	
	/*Lectura de datos*/
	datload(file_in,x);
	
	/*Se dimensiona las ndatos estructuras que se van a necesitar*/
	digitos=(int***) malloc(ndatos*sizeof(int**));

	printf("Introduzca la base a la que quiere convertir los numeros\n");
	scanf("%i",&base);

	printf("Diga cuantos digitos se calcularan para la parte fraccionaria\n");
	scanf("%i",&precision);
	
	printf("Introduzca el nombre del archivo donde se escribiran los datos\n");
	scanf("%s",archivo1); 


	file_out = fopen (archivo1,"w");
	/*Si el archivo se pudo crear se procede a hacer los cálculos*/
        if(file_out){
		fprintf(file_out,"La representacion en base %i de los numeros es:\n",base);
		
	for (i=0; i< ndatos; i++){
    digitos [i]=(int ***) malloc (2* sizeof (int*));
    pfrac=modf ([i], &pentera);
    cuantos= ceil (log (pentera)/log (base));
    cuanto= (int) cuantos;
    parte_ent= (int)pentera;
    digitos [i][0]= (int *) malloc (cuanto* sizeof (int));
    conv_ent (digitos [i][0], parte_ent, base);
    digitos [i][1]=(int*) malloc(precisión* sizeof (int));
    conv_frac (digitos [i][1], pfrac, base, precisión);
    datwrite(file_out,int digitos[i],int cuanto);
}
}
}


/*Definición de Funciones*/

int datload(FILE *file,double *t){
     char archivo[50];
     int i;
     printf("Introduzca el nombre del archivo desde donde se leeran los datos\n");
     scanf("%s",archivo); 
     file = fopen(archivo,"r");
     
     if(file){
              for (i=0;i<ndatos;i++)
                  fscanf(file,"%lf\n",t+i);
              printf("El archivo ha sido cargado\n");
             }               
     else{
            printf("\nEL archivo no existe\n");
            system("pause");
            return 0;
         }
     
      
     fclose(file);
     return 0;
     
}

int datwrite(FILE *file,int **t,int Cuanto){
     
	int j,k;

     	for(j=Cuanto-1;j>0;j--)
		fprintf(file,"%i",t[0][j]);
	fprintf(file,".");
	for(k=0;k<precision;k++)
		fprintf(file,"%i",t[1][k]);
	fprintf(file,"\n");
     	
	return 0;
     
}


void conv_ent(int *p,int num,int base){
	int i;
	for(i=0;num>0;i++){
		p[i]=num%base;
		num/=base;
	}
}

void conv_frac(int *p,double num,int base,int pre){
	int i,k;
	double h=0.0;
	for(i=1;i<=pre;i++){
		for(k=0;k<base;k++){
			if(num>(h+(k/pow(base,i))) && num<=(h+((k+1)/pow(base,i)))){
				p[i-1]=k;
				h+=(k/pow(base,i));
				break;
			}
		}
	}
}