При передаче в функцию динамического массива, в массиве искажаются данные

Lsh=Shennon(p,N,CHAR_S,ws)

#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <math.h>
#include <stdlib.h>
#include <alloc.h>
 
#define n 94 //Є®«ЁзҐбвў® бЁ¬ў®«®ў ў  *Ј«Ё©бЄ®¬  «д ўЁвҐ 32 Ї® 126 Є®¤ бЁ¬ў®«   в Ў«Ёжл ASCII
 
 
void swap (long *w, char *CHAR, long i, long j) //®Ў¬Ґ* н«Ґ¬Ґ*в®ў ¬ ббЁў 
 {
  long t; char T;
  t=w[i];
  w[i]=w[j];
  w[j]=t;
  T=CHAR[i];
  CHAR[i]=CHAR[j];
  CHAR[j]=T;
 }
 
void shake (long *x, char *CHAR) //¤«п гЇ®а冷зҐ*Ёп ¬ ббЁў  ўҐа®пв*®б⥩ Ї® ў®§а бв *Ёо ЁбЇ®«м§гҐ¬ 襩ЄҐа*го б®авЁа®ўЄг
  {
   long L,R,N,S,j,i;
   L=0;  //«Ґў п Ја *Ёж  ¬ ббЁў 
   R=n-1;  //Їа ў п Ја *Ёж  ¬ ббЁў 
   N=n-1;    //Є®«ЁзҐбвў® н«Ґ¬Ґ*в®ў ¬ ббЁў  (*㬥а жЁп б 0)
   while (L<R)
   {
    for(j=R; j>L; --j)  //Їа®е®¤ бЇа ў  * «Ґў®
    {
     if (x[j]>x[j-1])
     {
      swap(x,CHAR,j,j-1);
      N=j;
     }
    }
    L=N;
     for (j=L; j<R; ++j)  //Їа®е®¤ б«Ґў  * Їа ў®
     {
      if (x[j]<x[j+1])
      {
       swap(x,CHAR,j,j+1);
       N=j;
      }
     }
     R=N;
   }
   for (i=0,S=1;i<n-2;++i)
   {
   if (x[i]<x[i+1])
     S++;
   }
  if (S>1)
   {
    printf("\n ЋиЁЎЄ , ¬ ббЁў *Ґ ®вб®авЁа®ў *, Є®«ЁзҐбвў® бҐаЁ© Ў®«миҐ 1 \n");
    getch();
   }
  }
 
 
void create_Mas1 (long *L, long N)
{
 L=(long *)malloc(N*sizeof(long)); //ᮧ¤ *ЁҐ ¬ ббЁў  ¤«Ё** Є®¤®ўле б«®ў
 if (L==NULL)
 {
  puts("Ћ¤*®¬Ґа*л© ¬ ббЁў *Ґ ᮧ¤ *!");
  getch();
  return;
 }
}
 
void create_Mas2 (int **C,long N)
{
 long i;
 C=(int**)malloc(N*sizeof(int*)); //ᮧ¤ *ЁҐ ¤Ё* ¬Ёз ¬ ббЁў  гЄ § ⥫Ґ© *  гЄ § ⥫Ё * з «  бва®Є
 if (C==NULL)
 {
  puts("Њ ббЁў гЄ § ⥫Ґ© бва®Є ‘ *Ґ ᮧ¤ *!");
  getch();
  return;
 }
 for (i=0;i<N;i++)//ўл¤Ґ«пҐ¬ Ї ¬пвм Ї®¤ N ¬ ббЁў®ў -бва®Є Ї® N н«Ґ¬Ґ*в®ў ў Є ¦¤®¬
 {
  C[i]=(int *)malloc(N*sizeof(int*));
  if (C[i]==NULL)
  {
   puts("Њ ббЁў ‘ *Ґ ᮧ¤ *!");
   return;
  }
  }
}
 
 
void print (char *CHAR_S, long *ws, long *L, int **C, long N)
{
 FILE *fw;
 long i,j,l;
 fw=fopen("COD_H.txt","a");//§ ЇЁбм ў д ©«
 if (fw==NULL)
  {
   printf("\n ЋиЁЎЄ  б®§¤ *Ёп д ©« ! \n");
   getch();
   exit(0);
  }
 printf ("\n ‘Ё¬ў®«   — бв®в    Љ®¤®ў®Ґ б«®ў®   „«Ё**  Є®¤®ў®Ј®");
 printf ("\n                                    б«®ў ");
 fprintf(fw,"\n Symbol   Frequency   Codeword   Codeword lenght");
 for(i=0; i<N; i++)
 {
  printf ("\n %c        %d          ", CHAR_S[i], ws[i] );
  fprintf(fw, "\n %c        %d          ", CHAR_S[i], ws[i] );
  l=L[i];
  for (j=0;j<l;j++)
    {
     printf ("%d",C[i][j]);
     fprintf(fw,"%d",C[i][j]);
    }
  printf ("                   %d",L[i] );
  fprintf(fw,"                   %d",L[i] );
 }
}
 
 
float Shennon (float *p, long N,char *CHAR_S, long *ws)
{
 float *Q,    //¬ ббЁў ¤«п ўҐ«ЁзЁ* Qi
       Lsh=0;
 int **C; //¬ ваЁж  н«Ґ¬Ґ*в а*ле Є®¤®ў
 long *L, //¬ ббЁў ¤«Ё* Є®¤®ўле б«®ў
      i,j;//бзҐвзЁЄЁ
 create_Mas1(L,N);
 create_Mas2(C,N);
 Q=(float *)malloc(N*sizeof(float)); //ᮧ¤ *ЁҐ ¬ ббЁў  ¤«Ё** Є®¤®ўле б«®ў
 if (Q==NULL)
 {
  puts("Ћ¤*®¬Ґа*л© ¬ ббЁў *Ґ ᮧ¤ *!");
  getch();
  return 0;
 }
 Q[0]=0;
 for (i=1; i<N; i++)
 {
  Q[i]=Q[i-1]+p[i];
 }
 for (i=0; i<N; i++)
 {
  L[i]=-ceil(log(p[i])/log(2.0));
  if(1.0/pow(2,-1*L[i])>p[i])
    L[i]++;
  if (i==0)
    L[i-1]=1;
  if (1.0/pow(2,-1.0*L[i-1])<p[i])
   printf("\n ЌҐЇа ўЁ«м*® а ббзЁв *  ¤«Ё*  Є®¤®ў®Ј® б«®ў  ?Ґ**®* !!!");
 }
 for (i=0; i<N; i++)
 {
  for (j=0;j<L[i];j++)
  {
   Q[i-1]=Q[i-1]*2.0;
   C[i][j]=(int)(Q[i-1]);
   if(Q[i-1]>1.0)
    Q[i-1]=Q[i-1]-1.0;
  }
 }
 
 for (i=1; i<N; i++)
 {
  Lsh+=p[i]*L[i];
 }
 print (CHAR_S,ws,L,C,N);
 for (i=0;i<N;i++)
  free(C[i]);
 free(C);
 free(L);
 free(Q);
 return Lsh;
}
 
 
 
 
void main()
{
 FILE  *f,*fw;
 char  key, ch,
    fname[50], //¬ ббЁў ¤«п еа *Ґ*Ёп Ё¬Ґ*Ё д ©« 
    CHAR[n],  //¬ ббЁў ўбҐе бЁ¬ў®«®ў  *Ј«Ё©бЄ®Ј®  «д ўЁв 
    *CHAR_S, //¬ ббЁў ¤«п еа *Ґ*Ёп бЁ¬ў®«®ў ўбваҐз ойЁебп ў д ©«Ґ
    COD,COD1; //ЇҐаҐ¬Ґ** п ¤«п ўлў®¤ Є®¤®ўле б«®ў *  ЇҐз вм
 long  i,j,m,N,B, //ЇҐаҐ¬Ґ**лҐ бзҐвзЁЄЁ
    w[n], //з бв®вл Ї®пў«Ґ*Ёп бЁ¬ў®«®ў ў ⥪бвҐ
    *ws;//®вб®авЁа®ў **л© ¬ ббЁў з бв®в
 float *p,//¬ ббЁў ўҐа®пв*®б⥩ Ї®пў«Ґ*Ёп бЁ¬ў®«  ў ¤ **®¬ ⥪бвҐ
    H=0.0,//н*ва®ЇЁп ?Ґ**®* 
    Lsh, //б।*пп ¤«Ё**  Є®¤®ў®Ј® б«®ў  ?Ґ**®* 
    s;//Є®*ва®«м Їа ўЁ«м*®бвЁ а бзҐв  ¬ ббЁў  ўҐа®пв*®б⥩
 memset(CHAR,0 ,sizeof(CHAR));
 for(i=0;i<n;i++)//§ Ї®«*Ґ*ЁҐ ¬ ббЁў  Є®¤ ¬Ё бЁ¬ў®«®ў б®Ј« б*® в Ў«ЁжҐ ASCII
 {
  CHAR[i]=32+i;
 }
 
 fw=fopen("COD_H.txt","w");//ᮧ¤ *ЁҐ д ©«  ¤«п ўлў®¤  Ё*д®а¬ жЁЁ
 fclose(fw);
 do
 {
  clrscr();
  m=0;  //§* зҐ*Ёп ®Ў*г«повбп ¤«п ЁбЄ«озҐ*Ёп ®иЁЎ®Є ЇаЁ ®вЄалвЁЁ ¤агЈ®Ј® д ©« 
  N=0; //Є®«ЁзҐбвў® бЁ¬ў®«®ў ў ⥪б⥠ЁбЄ«оз п Ї®ўв®аҐ*Ёп
  memset(w,0.0,sizeof(w));
  memset(fname,0,sizeof(fname));
  printf ("\n ‚ўҐ¤ЁвҐ * Ё¬Ґ*®ў *ЁҐ д ©«  Ё Їгвм Є *Ґ¬г. \n");
  fgets(fname,sizeof(fname),stdin);
  m=strlen(fname);
  fname[m-1]=0;
  f=fopen(fname,"rt") ;
  if (f==NULL)
  {
   printf("\n ЋиЁЎЄ  ®вЄалвЁп д ©« ! \n");
   getch();
   exit(0);
  }
  B=0; // Є®«ЁзҐбвў® бЁ¬ў®«®ў ў ⥪бвҐ
  while(!feof(f))
  {
   ch=getc(f);    //бзЁвлў *ЁҐ бЁ¬ў®«®ў
   B++;
   for (j=0;j<n;j++)
   {
    if (ch==CHAR[j])
    {
     i=j;
     break;
    }
   }
   w[i]+=1;
 }
 B--;
 
 shake(w,CHAR);//б®авЁа®ўЄ  ¬ ббЁў  з бв®в
 
 for (i=0; i<n; i++)
 {
  if (w[i]!=0)
   N++;
 }
 
 ws=(long *)malloc(N*sizeof(long));
 if (ws==NULL)
 {
  puts("Њ ббЁў ws *Ґ ᮧ¤ *!");
  getch();
  return;
 };
 
 CHAR_S=(char *)malloc(N*sizeof(char));
 if (CHAR_S==NULL)
 {
  puts("Њ ббЁў CHAR_S *Ґ ᮧ¤ *!");
  getch();
  return;
 }
 for (i=0; i<N; i++)//Є®ЇЁа®ў *ЁҐ бЁ¬ў®«®ў б з бв®в®© Ї®п«ўҐ*Ёп >0 ў ¤Ё* ¬ЁзҐбЄЁ© ¬ ббЁў
 {
   ws[i]=w[i];
   CHAR_S[i]=CHAR[i];
 }
 
 
 p=(float *)malloc(N*sizeof(float)) ;
 if (p==NULL)
 {
  puts("Њ ббЁў p *Ґ ᮧ¤ *!");
  getch();
  return;
 }
for (i=0; i<N; i++) //а ббзҐв н*ва®ЇЁЁ д ©« 
 {
  p[i]=1.0*ws[i]/B;//§ Ї®«*Ґ*ЁҐ ¬ ббЁў  ўҐа®пв*®б⥩ Ї®пў«Ґ*Ёп бЁ¬ў®«®ў
  H+=-1.0*p[i]*log(p[i])/log(2.0);
 }
 
 Lsh=Shennon(p,N,CHAR_S,ws);
 
 fw=fopen("COD_H.txt","a");
 printf ("\n ќ*ва®ЇЁп Ёб室*®Ј®   ‘।*пп ¤«Ё*  Є®¤®ў®Ј® б«®ў ");
 printf ("\n       ⥪бв          Љ®¤ • дд¬ *   Љ®¤ ?Ґ**®*   Љ®¤ ” *®");
 printf("\n       %2.4f           %2.4f            %2.4f     %2.4f", H,Lh,Lsh,Lf);
 
 fprintf(fw, "\n Entropy of the    Average lenght codeword ");
 fprintf(fw, "\n sourse text       Haffman cod   Shennon cod   Fano cod");
 fprintf(fw,"\n       %2.4f           %2.4f            %2.4f     %2.4f",H,Lh,Lsh,Lf);
 fclose(fw);
 
 //®бў®Ў®¦¤Ґ*ЁҐ Ї ¬пвЁ ®в ᮧ¤ **ле ¤Ё* ¬ЁзҐбЄЁе ¬ ббЁў®ў
 fclose(f);
 free(p);
 free(CHAR_S);
 free(ws);
 getch();
 fclose(f);
 puts ("\n ЋвЄалвм ¤агЈ®© д ©«? (ЌҐв=Esc)");
 key=getch();
 }
 while (key!=27);//ESC
}

long * create(long N)
{
long * ptr = (long*)malloc(sizeof(long)*N)
return ptr;
}

int **C=NULL;
long *L=NULL;
create_Mas1(L,N);
create_Mas2(C,N);
if( NULL == L )
{
    printf( "\n Error:  L == NULL \n" );
}
if( NULL == C )
{
    printf( "\n Error:  C == NULL \n" );
}

#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <math.h>
#include <stdlib.h>
//#include <alloc.h>
 
#define n 94 //Є®«ЁзҐбвў® бЁ¬ў®«®ў ў  *Ј«Ё©бЄ®¬  «д ўЁвҐ 32 Ї® 126 Є®¤ бЁ¬ў®«   в Ў«Ёжл ASCII
 
 
void swap (long *w, char *CHAR, long i, long j) //®Ў¬Ґ* н«Ґ¬Ґ*в®ў ¬ ббЁў 
{
    long t; char T;
    t=w[i];
    w[i]=w[j];
    w[j]=t;
    T=CHAR[i];
    CHAR[i]=CHAR[j];
    CHAR[j]=T;
}
 
void shake (long *x, char *CHAR) //¤«п гЇ®а冷зҐ*Ёп ¬ ббЁў  ўҐа®пв*®б⥩ Ї® ў®§а бв *Ёо ЁбЇ®«м§гҐ¬ 襩ЄҐа*го б®авЁа®ўЄг
{
    long L,R,N,S,j,i;
    L=0;  //«Ґў п Ја *Ёж  ¬ ббЁў 
    R=n-1;  //Їа ў п Ја *Ёж  ¬ ббЁў 
    N=n-1;    //Є®«ЁзҐбвў® н«Ґ¬Ґ*в®ў ¬ ббЁў  (*㬥а жЁп б 0)
    while (L<R)
    {
        for(j=R; j>L; --j)  //Їа®е®¤ бЇа ў  * «Ґў®
        {
            if (x[j]>x[j-1])
            {
                swap(x,CHAR,j,j-1);
                N=j;
            }
        }
        L=N;
        for (j=L; j<R; ++j)  //Їа®е®¤ б«Ґў  * Їа ў®
        {
            if (x[j]<x[j+1])
            {
                swap(x,CHAR,j,j+1);
                N=j;
            }
        }
        R=N;
    }
    for (i=0,S=1;i<n-2;++i)
    {
        if (x[i]<x[i+1])
            S++;
    }
    if (S>1)
    {
        printf("\n ЋиЁЎЄ , ¬ ббЁў *Ґ ®вб®авЁа®ў *, Є®«ЁзҐбвў® бҐаЁ© Ў®«миҐ 1 \n");
        getch();
    }
}
 
 
void create_Mas1 (long **L, long N)
{
    *L=(long *)malloc(N*sizeof(long)); //ᮧ¤ *ЁҐ ¬ ббЁў  ¤«Ё** Є®¤®ўле б«®ў
    if (*L==NULL)
    {
        puts("Ћ¤*®¬Ґа*л© ¬ ббЁў *Ґ ᮧ¤ *!");
        getch();
        return;
    }
}
 
void create_Mas2 (int ***C,long N)
{
    long i;
    *C=(int**)malloc(N*sizeof(int*)); //ᮧ¤ *ЁҐ ¤Ё* ¬Ёз ¬ ббЁў  гЄ § ⥫Ґ© *  гЄ § ⥫Ё * з «  бва®Є
    if (*C==NULL)
    {
        puts("Њ ббЁў гЄ § ⥫Ґ© бва®Є ‘ *Ґ ᮧ¤ *!");
        getch();
        return;
    }
    for (i=0;i<N;i++)//ўл¤Ґ«пҐ¬ Ї ¬пвм Ї®¤ N ¬ ббЁў®ў -бва®Є Ї® N н«Ґ¬Ґ*в®ў ў Є ¦¤®¬
    {
        (*C)[i]=(int *)malloc(N*sizeof(int));
        if ((*C)[i]==NULL)
        {
            puts("Њ ббЁў ‘ *Ґ ᮧ¤ *!");
            return;
        }
    }
}
 
 
void print (char *CHAR_S, long *ws, long *L, int **C, long N)
{
    FILE *fw;
    long i,j,l;
    fw=fopen("COD_H.txt","a");//§ ЇЁбм ў д ©«
    if (fw==NULL)
    {
        printf("\n ЋиЁЎЄ  б®§¤ *Ёп д ©« ! \n");
        getch();
        exit(0);
    }
    printf ("\n ‘Ё¬ў®«   — бв®в    Љ®¤®ў®Ґ б«®ў®   „«Ё**  Є®¤®ў®Ј®");
    printf ("\n                                    б«®ў ");
    fprintf(fw,"\n Symbol   Frequency   Codeword   Codeword lenght");
    for(i=0; i<N; i++)
    {
        printf ("\n %c        %d          ", CHAR_S[i], ws[i] );
        fprintf(fw, "\n %c        %d          ", CHAR_S[i], ws[i] );
        l=L[i];
        for (j=0;j<l;j++)
        {
            printf ("%d",C[i][j]);
            fprintf(fw,"%d",C[i][j]);
        }
        printf ("                   %d",L[i] );
        fprintf(fw,"                   %d",L[i] );
    }
}
 
 
float Shennon (float *p, long N,char *CHAR_S, long *ws)
{
    float *Q,    //¬ ббЁў ¤«п ўҐ«ЁзЁ* Qi
        Lsh=0;
    int **C= NULL; //¬ ваЁж  н«Ґ¬Ґ*в а*ле Є®¤®ў
    long *L=NULL, //¬ ббЁў ¤«Ё* Є®¤®ўле б«®ў
        i,j;//бзҐвзЁЄЁ
    create_Mas1(&L,N);
    create_Mas2(&C,N);
    Q=(float *)malloc(N*sizeof(float)); //ᮧ¤ *ЁҐ ¬ ббЁў  ¤«Ё** Є®¤®ўле б«®ў
    if (Q==NULL)
    {
        puts("Ћ¤*®¬Ґа*л© ¬ ббЁў *Ґ ᮧ¤ *!");
        getch();
        return 0;
    }
    Q[0]=0;
    for (i=1; i<N; i++)
    {
        Q[i]=Q[i-1]+p[i];
    }
    for (i=0; i<N; i++)
    {
        L[i]=-ceil(log(p[i])/log(2.0));
        if(1.0/pow(2.,-1*L[i])>p[i])
            L[i]++;
        if (i==0)
            L[i-1]=1;
        if (1.0/pow(2,-1.0*L[i-1])<p[i])
            printf("\n ЌҐЇа ўЁ«м*® а ббзЁв *  ¤«Ё*  Є®¤®ў®Ј® б«®ў  �Ґ**®* !!!");
    }
    for (i=1; i<N; i++)
    {
        for (j=0;j<L[i];j++)
        {
            Q[i-1]=Q[i-1]*2.0;
            C[i][j]=(int)(Q[i-1]);
            if(Q[i-1]>1.0)
                Q[i-1]=Q[i-1]-1.0;
        }
    }
 
    for (i=1; i<N; i++)
    {
        Lsh+=p[i]*L[i];
    }
    print (CHAR_S,ws,L,C,N);
    for (i=0;i<N;i++)
        free(C[i]);
    free(C);
    free(L);
    free(Q);
    return Lsh;
}
 
 
 
 
void main()
{
    FILE  *f,*fw;
    char  key, ch,
        fname[50], //¬ ббЁў ¤«п еа *Ґ*Ёп Ё¬Ґ*Ё д ©« 
        CHAR[n],  //¬ ббЁў ўбҐе бЁ¬ў®«®ў  *Ј«Ё©бЄ®Ј®  «д ўЁв 
        *CHAR_S, //¬ ббЁў ¤«п еа *Ґ*Ёп бЁ¬ў®«®ў ўбваҐз ойЁебп ў д ©«Ґ
        COD,COD1; //ЇҐаҐ¬Ґ** п ¤«п ўлў®¤ Є®¤®ўле б«®ў *  ЇҐз вм
    long  i,j,m,N,B, //ЇҐаҐ¬Ґ**лҐ бзҐвзЁЄЁ
        w[n], //з бв®вл Ї®пў«Ґ*Ёп бЁ¬ў®«®ў ў ⥪бвҐ
        *ws;//®вб®авЁа®ў **л© ¬ ббЁў з бв®в
    float *p,//¬ ббЁў ўҐа®пв*®б⥩ Ї®пў«Ґ*Ёп бЁ¬ў®«  ў ¤ **®¬ ⥪бвҐ
        H=0.0,//н*ва®ЇЁп �Ґ**®* 
        Lsh, //б।*пп ¤«Ё**  Є®¤®ў®Ј® б«®ў  �Ґ**®* 
        s;//Є®*ва®«м Їа ўЁ«м*®бвЁ а бзҐв  ¬ ббЁў  ўҐа®пв*®б⥩
    memset(CHAR,0 ,sizeof(CHAR));
    for(i=0;i<n;i++)//§ Ї®«*Ґ*ЁҐ ¬ ббЁў  Є®¤ ¬Ё бЁ¬ў®«®ў б®Ј« б*® в Ў«ЁжҐ ASCII
    {
        CHAR[i]=32+i;
    }
 
    fw=fopen("COD_H.txt","w");//ᮧ¤ *ЁҐ д ©«  ¤«п ўлў®¤  Ё*д®а¬ жЁЁ
    fclose(fw);
    do
    {
        m=0;  //§* зҐ*Ёп ®Ў*г«повбп ¤«п ЁбЄ«озҐ*Ёп ®иЁЎ®Є ЇаЁ ®вЄалвЁЁ ¤агЈ®Ј® д ©« 
        N=0; //Є®«ЁзҐбвў® бЁ¬ў®«®ў ў ⥪б⥠ЁбЄ«оз п Ї®ўв®аҐ*Ёп
        memset(w,0.0,sizeof(w));
        memset(fname,0,sizeof(fname));
        printf ("\n ‚ўҐ¤ЁвҐ * Ё¬Ґ*®ў *ЁҐ д ©«  Ё Їгвм Є *Ґ¬г. \n");
        fgets(fname,sizeof(fname),stdin);
        m=strlen(fname);
        fname[m-1]=0;
        f=fopen(fname,"rt") ;
        if (f==NULL)
        {
            printf("\n ЋиЁЎЄ  ®вЄалвЁп д ©« ! \n");
            getch();
            exit(0);
        }
        B=0; // Є®«ЁзҐбвў® бЁ¬ў®«®ў ў ⥪бвҐ
        while(!feof(f))
        {
            ch=getc(f);    //бзЁвлў *ЁҐ бЁ¬ў®«®ў
            B++;
            for (j=0;j<n;j++)
            {
                if (ch==CHAR[j])
                {
                    i=j;
                    break;
                }
            }
            w[i]+=1;
        }
        B--;
 
        shake(w,CHAR);//б®авЁа®ўЄ  ¬ ббЁў  з бв®в
 
        for (i=0; i<n; i++)
        {
            if (w[i]!=0)
                N++;
        }
 
        ws=(long *)malloc(N*sizeof(long));
        if (ws==NULL)
        {
            puts("Њ ббЁў ws *Ґ ᮧ¤ *!");
            getch();
            return;
        };
 
        CHAR_S=(char *)malloc(N*sizeof(char));
        if (CHAR_S==NULL)
        {
            puts("Њ ббЁў CHAR_S *Ґ ᮧ¤ *!");
            getch();
            return;
        }
        for (i=0; i<N; i++)//Є®ЇЁа®ў *ЁҐ бЁ¬ў®«®ў б з бв®в®© Ї®п«ўҐ*Ёп >0 ў ¤Ё* ¬ЁзҐбЄЁ© ¬ ббЁў
        {
            ws[i]=w[i];
            CHAR_S[i]=CHAR[i];
        }
 
 
        p=(float *)malloc(N*sizeof(float)) ;
        if (p==NULL)
        {
            puts("Њ ббЁў p *Ґ ᮧ¤ *!");
            getch();
            return;
        }
        for (i=0; i<N; i++) //а ббзҐв н*ва®ЇЁЁ д ©« 
        {
            p[i]=1.0*ws[i]/B;//§ Ї®«*Ґ*ЁҐ ¬ ббЁў  ўҐа®пв*®б⥩ Ї®пў«Ґ*Ёп бЁ¬ў®«®ў
            H+=-1.0*p[i]*log(p[i])/log(2.0);
        }
        float Lh = 0;
        float Lf = 0;
        Lsh=Shennon(p,N,CHAR_S,ws);
 
        fw=fopen("COD_H.txt","a");
        printf ("\n ќ*ва®ЇЁп Ёб室*®Ј®   ‘।*пп ¤«Ё*  Є®¤®ў®Ј® б«®ў ");
        printf ("\n       ⥪бв          Љ®¤ • дд¬ *   Љ®¤ �Ґ**®*   Љ®¤ ” *®");
        printf("\n       %2.4f           %2.4f            %2.4f     %2.4f", H,Lh,Lsh,Lf);
 
        fprintf(fw, "\n Entropy of the    Average lenght codeword ");
        fprintf(fw, "\n sourse text       Haffman cod   Shennon cod   Fano cod");
        fprintf(fw,"\n       %2.4f           %2.4f            %2.4f     %2.4f",H,Lh,Lsh,Lf);
        fclose(fw);
 
        //®бў®Ў®¦¤Ґ*ЁҐ Ї ¬пвЁ ®в ᮧ¤ **ле ¤Ё* ¬ЁзҐбЄЁе ¬ ббЁў®ў
        fclose(f);
        free(p);
        free(CHAR_S);
        free(ws);
        getch();
        fclose(f);
        puts ("\n ЋвЄалвм ¤агЈ®© д ©«? (ЌҐв=Esc)");
        key=getch();
    }
    while (key!=27);//ESC
}

for (i=0; i<N; i++)
    {
        L[i]=-ceil(log(p[i])/log(2.0));
        if(1.0/pow(2.,-1*L[i])>p[i])
            L[i]++;
        if (i==0)
            L[i-1]=1;//тут косяк при i == 0 за пределы массива выходим
        if (1.0/pow(2,-1.0*L[i-1])<p[i])
            printf("\n ЌҐЇа ўЁ«м*® а ббзЁв *  ¤«Ё*  Є®¤®ў®Ј® б«®ў  �Ґ**®* !!!");
    }

for (i=1; i<N; i++)
    {
        for (j=0;j<L[i];j++)
        {
            Q[i-1]=Q[i-1]*2.0;//при i == 0 выход за пределы
            C[i][j]=(int)(Q[i-1]);//при i == 0 выход за пределы
            if(Q[i-1]>1.0)//при i == 0 выход за пределы
                Q[i-1]=Q[i-1]-1.0;//при i == 0 выход за пределы
        }
    }

Q[0]=0;
    for (i=1; i<N; i++)
    {
        Q[i]=Q[i-1]+p[i];
    }

Q[0]=p[0];
    for (i=1; i<N; i++)
    {
        Q[i]=Q[i-1]+p[i];
    }

for (i=1; i<N; i++)
    {
        for (j=0;j<L[i];j++)
        {
            Q[i-1]=Q[i-1]*2.0;//при i == 0 выход за пределы
            C[i][j]=(int)(Q[i-1]);//при i == 0 выход за пределы
            if(Q[i-1]>1.0)//при i == 0 выход за пределы
                Q[i-1]=Q[i-1]-1.0;//при i == 0 выход за пределы
        }
    }

  B=0; // Є®«ЁзҐбвў® бЁ¬ў®«®ў ў ⥪бвҐ
  while(!feof(f))
  {
   ch=getc(f);    //бзЁвлў *ЁҐ бЁ¬ў®«®ў
   B++;
   for (j=0;j<n;j++)
   {
    if (ch==CHAR[j])
    {
     i=j;
     break;
    }
   }
   w[i]+=1;
 }
 B--;

B=0; // Є®«ЁзҐбвў® бЁ¬ў®«®ў ў ⥪бвҐ
        while((ch = getc(f)) != EOF)
        {
            //ch=getc(f);    //бзЁвлў *ЁҐ бЁ¬ў®«®ў
            B++;
            for (j=0;j<n;j++)
            {
                if (ch==CHAR[j])
                {
                    i=j;
                    break;
                }
            }
            w[i]+=1;
        }

 for (i=0; i<N; i++)
 {
  L[i]=-ceil(log(p[i])/log(2.0));
  if(1.0/pow(2,-1*L[i])>p[i])
    L[i]++;
  if (i==0)
    l=1;
  else
    l=L[i-1];
  if (1.0/pow(2,-1.0*l)<p[i])