/* fichero cambio.c */
#include<stdio.h>
void main(void)
{
        int m, n, p, q;
        int i, j, k, l;
        double **a, **b;
        double **crear_matriz(int, int);
        
        printf("\nNúmero de filas y de columnas de la matriz: ");
        scanf("%d%d", &m, &n);
        a = crear_matriz(m,n);
        printf("\nIntroduzca los elementos de la matriz.\n");
        for (i=0; i<m; i++)
                for(j=0; j<n; j++){
                        printf("\nElemento (%d,%d): ", i+1, j+1);
                        scanf("%lf", &a[i][j]);
                }
        do {
                printf("\nNúmero de filas y columnas de la nueva matriz: ");
                scanf("%d%d", &p, &q);
        } while(p*q != m*n);
        b = crear_matriz(p, q);
        for (i=0, k=0; i<m; i++)
                for(j=0, l=0; j<n; j++){
                        k = (i*n+j)/q;
                        l = (i*n+j)-k*q;
                        b[k][l] = a[i][j];
                }
        
        for (i=0; i<p; i++){
                printf("\n");
                for(j=0; j<q; j++)
                        printf("%5.1lf", b[i][j]);
        }
}
double **crear_matriz(int m, int n)
{
        double **matriz;
        int i;
        matriz =c alloc(m, sizeof(double *));
        matriz[0] = calloc(m*n, sizeof(double));
        for(i=0; i<m; i++)
                matriz[i] = matriz[0]+n*i;
        return matriz;
}