#include <cstdlib>
#include <iostream>

using namespace std;

void cr2mf()
{
    int m, n, i, j;
    printf("create table of real numbers\n");
    printf("m=");
    scanf("%d",&m);
    printf("n=");
    scanf("%d",&n);
    srand(time(NULL));
    FILE*f;
    f=fopen("dat.txt","w");
    float p;
    for (i=0; i<=m-1; i++ )
    {
        for (j=0; j<=n-1; j++ )
        {
           p=(float) rand()*2000/RAND_MAX -1000;
           fprintf(f,"%11.6f     ",p);
        }
        fprintf(f,"\n");
    }
    fclose(f);
};

//проверка существовавния текстового файла dat.txt  
int experiment() 
{
    FILE *f;
    f=fopen("dat.txt", "r");
    if (f == NULL)  return 1;
    fclose(f);
};


void ordered()
{   
    FILE*f;    
    int m, n, i, j, k, l, min;
    m=0;
    n=-1;
    float x;
    f=fopen("dat.txt","r");
    while(!feof(f))
        {
           n++;
           fscanf(f,"%f",&x);
        };
    fclose(f);    
    char s[200];
    f=fopen("dat.txt","r");
    while ( NULL != fgets ( s, 200, f ) ) m++;
    fclose(f); 
    n=n/m;
    float **b=new float*[m];
    for (i=0; i<m; i++)
    b[i] = new float[n];
    f=fopen("dat.txt","r");
    for (i=0; i<m; i++)
    for (j=0; j<n; j++) fscanf(f, "%f",&b[i][j]);
    fclose(f);
    FILE*f1;
    f1=fopen("sort.txt","w");
    fprintf(f1, "Исходная таблица чисел\n");
    for (i=0; i<=m-1; i++ )
    {
        for (j=0; j<=n-1; j++ )
        {
           x=b[i][j];
           fprintf(f1,"%11.5f     ",x);
        }
        fprintf(f1,"\n");
    }
    float buf;
    for (k=0; k<n; k++)
    {
        fprintf(f1,"\n");
        fprintf(f1,"Таблица, упорядоченная по неубыванию %d  столбца:\n", k+1);
        for (i=0; i<m-1; i++)
         {
            min=i;
            for (j=i+1; j<m; j++)
              if (b[j][k] < b[min][k])  min=j;
            for (l=0; l<n; l++)
            {
                buf=b[i][l];
                b[i][l]=b[min][l];
                b[min][l]=buf;
            }  
         }
        for (i=0; i<=m-1; i++ )
        {
            for (j=0; j<=n-1; j++ )
            {
               x=b[i][j];
               fprintf(f1,"%11.5f     ",x);
            }
        fprintf(f1,"\n");
        }
    }            
  fclose(f1);  
  printf("Look textfile sort.txt\n");  
};


int main(int argc, char *argv[])
{   
    int v;
    v=experiment();
    if (v==1) 
      {
           printf("No textfile dat.txt. Create it\n ");
           cr2mf();
       }
    ordered();
    system("PAUSE");
    return EXIT_SUCCESS;
}