#include <cstdlib>
#include <iostream>
#include <stdio.h>
#include <stdlib.h>

using namespace std;

void sortdata()
{   
    FILE*f;    
    int m, n, i, j, k;
    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 **mas=new float*[m];
    for (i=0; i<m; i++)
    mas[i] = new float[n];
    f=fopen("dat.txt","r");
    for (i=0; i<m; i++)
      for (j=0; j<n; j++) fscanf(f, "%f",&mas[i][j]);
    fclose(f);

    float *pos1=new float[m*n];
    k=0;
    for (j=0; j<n; j++)
    {
        if (j-j/2*2==0) {for (i=0; i<m; i++) {pos1[k]=mas[i][j]; k++;}}
        else            {for (i=m-1; i>=0; i--) {pos1[k]=mas[i][j]; k++;}};
    };  
    
    float *pos2=new float[m*n];
    int p,q,r;
    k=0;
    p=m; 
    q=n;
    i=m-1;
    j=0;
    while ((p>0) and (q>0))
    {
        for (r=1; r<=p-1; r++) {pos2[k]=mas[i][j]; k++; i--;}
        if (p<m) p--;
        for (r=1; r<=q-1; r++) {pos2[k]=mas[i][j]; k++; j++;}
        q--;
        for (r=1; r<=p-1; r++) {pos2[k]=mas[i][j]; k++; i++;}
        p--;
        for (r=0; r<q-1; r++) {pos2[k]=mas[i][j]; k++; j--;}
        q--;
    };
    
    float *pos3=new float[m*n];
    k=0;
    i=0;
    j=0;
    while ((i<m-1) or (j<n-1))
    {
      pos3[k]=mas[i][j]; 
      k++;
      if (i+j-(i+j)/2*2==0)
      {
          if (j==n-1) {i++;};
          if ((i==0) and (j!=n-1)) {j++;};
          if ((i!=0) and (j!=n-1)) {i--;  j++;};
      }
      else
      {
          if (i==m-1) {j++;};
          if ((j==0) and (i!=m-1)) {i++;}; 
          if ((j!=0) and (i!=m-1)) {i++; j--;};  
      };
      pos3[k]=mas[i][j];       
    }

    FILE*f1;
    f1=fopen("sort.txt","w");
    fprintf(f1, "Исходная таблица чисел\n\n");
    for (i=0; i<=m-1; i++ )
    {
        for (j=0; j<=n-1; j++ )
        {
           x=mas[i][j];
           fprintf(f1,"%11.5f     ",x);
        }
        fprintf(f1,"\n");
    }
    fprintf(f1, "\n\nПорядок №1\n\n");
    for (k=0; k<m*n; k++) fprintf(f1, "%f   ",pos1[k]);
    fprintf(f, "\n\nПорядок №2\n\n");
    for (k=0; k<m*n; k++) fprintf(f1, "%f   ",pos2[k]);
    fprintf(f, "\n\nПорядок №3\n\n");

    for (k=0; k<m*n; k++) fprintf(f1, "%f   ",pos3[k]);
    fclose(f1);
    
    printf("Data of file <dat.txt>: \n\n");
    for (i=0; i<m; i++)
    {
        for (j=0; j<n; j++) printf("%11.6f     ", mas[i][j]);
        printf("\n");
    }
    printf("\n\Newn data were ritten in file <sort.txt>: \n\n");
    printf("\nPerestanovka 1:\n\n");
    k=0;
    for (i=0; i<m; i++)
    {
        for (j=0; j<n; j++) {printf("%11.6f     ", pos1[k]); k++;}
        printf("\n");
    };
    printf("\nPerestanovka 2:\n\n");
    k=0;
    for (i=0; i<m; i++)
    {
        for (j=0; j<n; j++) {printf("%11.6f     ", pos2[k]); k++;}
        printf("\n");
    };
    printf("\nPerestanovka 3:\n\n");
    k=0; 
    for (i=0; i<m; i++)
    {
        for (j=0; j<n; j++) {printf("%11.6f     ", pos3[k]); k++;}
        printf("\n");
    };    
};

int main(int argc, char *argv[])
{
    sortdata();
    system("PAUSE");
    return EXIT_SUCCESS;
}