Как составить математическую модель программы?

object Form1: TForm1
  Left = 190
  Top = 108
  Width = 834
  Height = 623
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #1050#1086#1076' '#1060#1072#1085#1086
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 144
    Width = 82
    Height = 13
    Caption = #1057#1090#1077#1087#1077#1085#1100' '#1089#1078#1072#1090#1080#1103
  end
  object Button1: TButton
    Left = 656
    Top = 536
    Width = 129
    Height = 33
    Caption = #1042#1099#1093#1086#1076
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 48
    Top = 536
    Width = 129
    Height = 33
    Caption = #1054#1090#1082#1088#1099#1090#1100' '#1092#1072#1081#1083
    TabOrder = 0
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 200
    Top = 536
    Width = 129
    Height = 33
    Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1092#1072#1081#1083
    Enabled = False
    TabOrder = 2
    OnClick = Button3Click
  end
  object Memo1: TMemo
    Left = 184
    Top = 16
    Width = 593
    Height = 121
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 3
  end
  object StringGrid1: TStringGrid
    Left = 184
    Top = 160
    Width = 593
    Height = 87
    ColCount = 4
    DefaultRowHeight = 20
    RowCount = 100
    TabOrder = 4
    ColWidths = (
      64
      159
      187
      158)
  end
  object Button4: TButton
    Left = 352
    Top = 536
    Width = 129
    Height = 33
    Caption = #1055#1088#1077#1086#1073#1088#1072#1079#1086#1074#1072#1090#1100
    Enabled = False
    TabOrder = 5
    OnClick = Button4Click
  end
  object Memo2: TMemo
    Left = 184
    Top = 256
    Width = 593
    Height = 121
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 6
  end
  object Memo3: TMemo
    Left = 184
    Top = 384
    Width = 593
    Height = 121
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 7
  end
  object Button6: TButton
    Left = 504
    Top = 536
    Width = 129
    Height = 33
    Caption = #1063#1072#1089#1090#1086#1090#1085#1099#1081' '#1089#1083#1086#1074#1072#1088#1100
    Enabled = False
    TabOrder = 8
    OnClick = Button6Click
  end
  object Edit1: TEdit
    Left = 16
    Top = 168
    Width = 89
    Height = 21
    ReadOnly = True
    TabOrder = 9
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 208
    Width = 145
    Height = 97
    Caption = #1057#1087#1086#1089#1086#1073' '#1087#1088#1077#1086#1073#1088#1072#1079#1086#1074#1072#1085#1080#1103
    TabOrder = 10
    object RadioButton1: TRadioButton
      Left = 8
      Top = 24
      Width = 121
      Height = 17
      Caption = #1047#1072#1082#1086#1076#1080#1088#1086#1074#1072#1090#1100
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 8
      Top = 56
      Width = 121
      Height = 25
      Caption = #1056#1072#1089#1082#1086#1076#1080#1088#1086#1074#1072#1090#1100
      TabOrder = 1
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = #1058#1077#1082#1089#1090#1086#1074#1099#1077' '#1092#1072#1081#1083#1099'|*.txt|'#1042#1089#1077' '#1092#1072#1081#1083#1099'|*.*'
    Left = 8
    Top = 8
  end
  object SaveDialog1: TSaveDialog
    Filter = #1058#1077#1082#1089#1090#1086#1074#1099#1081' '#1092#1072#1081#1083'|*.txt'
    Left = 8
    Top = 32
  end
end
 
[size="1"][color="grey"][I]Добавлено через 3 минуты[/I][/color][/size]
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>
#pragma hdrstop
 
#include "CourseWork.h"
#include "CourseWork2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
 
struct code_F
{
        int ca;
        AnsiString word;
        AnsiString code;
        code_F *left, *right;
        int begin, end;
 
};
int searchWord(code_F *array, int n, AnsiString key);
int searchCode(code_F *array, int n, AnsiString key);
void sort(code_F *a, int l, int r);
int findBorder(code_F *array, int start, int finish);
int createTree(code_F *base, int NumMsg);
void codeFano(code_F *array, code_F *base, int i, int last);
 
code_F  cf[500], *ccf;
int t, n;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   AnsiString str, st;
   int index, i, k;
   Memo1->Clear();
   Memo2->Clear();
   Memo3->Clear();
   
   OpenDialog1->Execute();
   Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
   Memo1->Lines->Add("");
   for (i = 0; i < n; i++)
   {
      StringGrid1->Cells[0][i + 1] = " ";
      StringGrid1->Cells[1][i + 1] = " ";
      StringGrid1->Cells[2][i + 1] = " ";
      StringGrid1->Cells[3][i + 1] = " ";
   }
 
   Button3->Enabled = true;
   Button4->Enabled = true;
   Button6->Enabled = true;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   int pos;
   SaveDialog1->Execute();
   if (SaveDialog1->FileName == "")
   {
      Application->MessageBox("Файл не сохранен", "Код Фано", MB_OK);
      return;
   }
   pos = AnsiPos(".", SaveDialog1->FileName);
   if (pos == 0)
      switch (SaveDialog1->FilterIndex)
      {
         case 1: SaveDialog1->FileName = SaveDialog1->FileName + ".txt";break;
         case 2: SaveDialog1->FileName = SaveDialog1->FileName + ".doc";break;
         case 3: SaveDialog1->FileName = SaveDialog1->FileName + ".htm";break;
         case 4: SaveDialog1->FileName = SaveDialog1->FileName + ".txt";break;
      }
 
   Memo2->Lines->SaveToFile(SaveDialog1->FileName);
   pos = AnsiPos(".", SaveDialog1->FileName);
   SaveDialog1->FileName = SaveDialog1->FileName.Delete(pos + 1, SaveDialog1->FileName.Length() - pos);
   SaveDialog1->FileName = SaveDialog1->FileName + "dat";
   if (RadioButton1->Checked == true)
   {
      FILE *f;
      int i, iLen,hLen;
      char *str = new char[256], *str1 = new char[256];
      if ( (f = fopen(SaveDialog1->FileName.c_str(), "wb")) == NULL)
      {
         Application->MessageBox(("Файл " + SaveDialog1->FileName + " не удается создать").c_str(), "Код Фано", MB_OK);
         return;
      }
      for(i = 0; i < n; i++)
      {
         str1 = (cf[i].word).c_str();
         hLen = strlen(str1) + 1;
         fwrite(&hLen, sizeof(int), 1, f);
         fwrite(str1, sizeof(char), hLen, f);
         str = (cf[i].code).c_str();
         iLen = strlen(str) + 1;
         fwrite(&iLen, sizeof(int), 1, f);
         fwrite(str, sizeof(char), iLen, f);
      }
      fclose(f);
                //delete [] str;
   }
 
}
//---------------------------------------------------------------------------
int searchWord(code_F *array, int n, AnsiString key)
{
   int i;
   for(i = 0; i < n; i++)
   {
      if (array[i].word == key) return i;
   }
   return -1;
}
//--------------------------------------------------------------------------
int searchCode(code_F *array, int n, AnsiString key)
{
   int i;
   for(i = 0; i < n; i++)
   {
      if (array[i].code == key) return i;
   }
   return -1;
}
//---------------------------------------------------------------------------
void sort(code_F  *a, int l, int r)
{
   int i, j, x;
   code_F y;
   i = l; j = r;
   x = a[(i + j)/2].ca;
   while (i <= j)
   {
      while (a[i].ca > x) i++;
      while (x > a[j].ca) j--;
      if (i <= j)
      {
         y = a[i]; a[i] = a[j]; a[j] = y;
     i++; j--;
      }
   }
   if (r > i) sort(a, i, r);
   if (l < j) sort(a, l, j);
}
//---------------------------------------------------------------------------
 
int findBorder(code_F *array, int start, int finish)
{
   int s, d1, d2;
   int i, one;
   one = 0;
   for(i = start; i <= finish; i++) one = one + array[i].ca;
   i = start - 1;
   d1 = one + 1; d2 = one;
   s = 0;
   while((d1 >= d2)&&(i <= finish))
   {
      i++;
      s = s + array[i].ca;
      d1 = d2;
      d2 = abs(one - 2*s);
   }
   return (i - 1);
}
//---------------------------------------------------------------------------
void codeFano(code_F *array, code_F *base, int i, int last)
{
   int bd, temp;
   temp = last;
   if ((array[i].begin < array[i].end)&&(temp < (2*array[0].end)))
   {
      bd = findBorder(base, array[i].begin, array[i].end);
      // правый сын
      temp++;
      array[temp].begin = array[i].begin;
      array[temp].end = bd;
      array[temp].code = array[i].code + "0";
      array[i].right = &array[temp];
      // левый сын
      temp++;
      array[temp].begin = bd + 1;
      array[temp].end = array[i].end;
      array[temp].code = array[i].code + "1";
      array[i].left = &array[temp];
      last = temp;
      codeFano(array, base, temp-1, last);
      codeFano(array, base, temp, last);
   }
   else if(array[i].begin == array[i].end)
   {
      array[i].left = NULL;
      array[i].right = NULL;
      array[i].word = base[array[i].end].word;
      array[i].ca = base[array[i].end].ca;
      base[array[i].end].code = array[i].code;
   }
}
//--------------------------------------------------------------------------
int createTree(code_F *base, int NumMsg)
{
        code_F *array;
        int number, last = 0;
 
        number = 2*NumMsg + 1;
        if ( (array = (code_F *)malloc((number+1)*sizeof(code_F)))== NULL)
        {
                Application->MessageBox("Не достаточно памяти", "Код Фано", MB_OK);
                return -1;
        }
        array = new code_F[number];
        array[0].code = "";
        array[0].begin = 0;
        array[0].end = NumMsg;
        last = 0;
        codeFano(array, base, 0, last);
        return 1;
}
//-------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   int i, index, k, pos, key, c, j;
   float l;
   AnsiString s, cs, str, s1,cs1,str1, st;
   FILE *f;
   char *temp = new char[256], *temp1 = new char[256];
   if (RadioButton1->Checked == true)
   {
      str = Memo1->Lines->Text;
 
      for (i = 1; i <= str.Length(); i++)
      {
         k = str[i];
         if (k == 13)
         {
            str = str.Delete(i, 2);
            str = str.Insert(NULL, i);
 
            index = searchWord(cf, n, st);
            if (st != "")
            {
               t++;
               if (index == -1)
               {
                  cf[n].word = st;
                  cf[n].ca = 1;
                  st = "";
                  n++;
               }
               else
               {
                  cf[index].ca++;
                  st = "";
               }
            }
         }
         else
         {
            if ( (k != 32) ) st = st + str[i];
            else if ( (k == 32) && (st != "" ))
            {
               t++;
               index = searchWord(cf, n, st);
               if (index == -1)
               {
                   cf[n].word = st;
                   cf[n].ca = 1;
                   st = "";
                   n++;
                }
                else
                {
                   cf[index].ca++;
                   st = "";
                }
             }
          }
      }
      sort( cf, 0, n-1);
      createTree(cf, n - 1);
      for (i = 0; i < n; i++)
      {
         StringGrid1->Cells[0][i + 1] = i+1;
         StringGrid1->Cells[1][i + 1] = cf[i].word;
         StringGrid1->Cells[2][i + 1] = cf[i].ca;
         StringGrid1->Cells[3][i + 1] = cf[i].code;
      }
      for(i = 0; i < n; i++) l = 1+ (float)(cf[i].ca * (cf[i].code).Length()) / (float)t;
      if (n > 1) l =  l / ceil(log(n)/log(2)); else l = 1;
      Edit1->Text = l;
      s = Memo1->Lines->Text;
      for(i=1; i <= s.Length(); i++)
      {
 
         if ( (s[i] != 32) && (s[i] != 13) ) str1 = str1 + s[i];
         else
         {
           if (str1 != " ")
           {
              index = searchWord(cf, n, str1);
              if (index != -1)
              {
                 cs = cs + cf[index].code;
                 str1="";
              }
           }
        }
        if (s[i] == 13)
        {
           s = s.Delete(i,1);
           Memo2->Lines->Add(cs);
           cs="";
        }
      }
   //декодирование
      s1 = Memo2->Lines->Text;
      str1 = "";
      for (i = 1; i <= s1.Length(); i++)
      {
         if (s1[i] != 13)
         {
            str1 = str1 + s1[i];
            index = searchCode(cf, n, str1);
            if (index != -1)
            {
               cs1 = cs1 + cf[index].word + " ";
               str1 = "";
            }
 
         }
         if (s1[i] == 13)
         {
            s1 = s1.Delete(i, 1);
            Memo3->Lines->Add(cs1);
            cs1 = "";
         }
      }
 
   }
   else
   {
      pos = AnsiPos(".", OpenDialog1->FileName);
      OpenDialog1->FileName = OpenDialog1->FileName.Delete(pos + 1, OpenDialog1->FileName.Length() - pos);
      OpenDialog1->FileName = OpenDialog1->FileName + "dat";
      if ((f = fopen(OpenDialog1->FileName.c_str(), "rb")) == NULL)
      {
         Application->MessageBox("Не удается декодировать", "Код Фано", MB_OK);
         return;
      }
      n = 0;
      while (!feof(f))
      {
         fread(&c, sizeof(int), 1, f);
         fread(temp1, sizeof(char), c, f);
         cf[n].word = temp1;
         fread(&j, sizeof(int), 1, f);
         fread(temp, sizeof(char), j, f);
         cf[n].code = temp;
         n++;
      }
      n--;
      fclose(f);
      s1 = Memo1->Lines->Text;
      str1 = "";
      for (i = 1; i <= s1.Length(); i++)
      {
         if (s1[i] != 13)
         {
            str1 = str1 + s1[i];
            index = searchCode(cf, n, str1);
            if (index != -1)
            {
               cs1 = cs1 + cf[index].word + " ";
               str1 = "";
            }
 
         }
         if (s1[i] == 13)
         {
            s1 = s1.Delete(i, 1);
            Memo2->Lines->Add(cs1);
            cs1 = "";
         }
      }
      //в Memo3
      str = Memo2->Lines->Text;
 
      for (i = 1; i <= str.Length(); i++)
      {
         k = str[i];
         if (k == 13)
         {
            str = str.Delete(i, 2);
            str = str.Insert(NULL, i);
 
            index = searchWord(cf, n, st);
            if (st != "")
            {
               t++;
               if (index == -1)
               {
                  cf[n].word = st;
                  cf[n].ca = 1;
                  st = "";
                  n++;
               }
               else
               {
                  cf[index].ca++;
                  st = "";
               }
            }
         }
         else
         {
            if ( (k != 32) ) st = st + str[i];
            else if ( (k == 32) && (st != "" ))
            {
               t++;
               index = searchWord(cf, n, st);
               if (index == -1)
               {
                   cf[n].word = st;
                   cf[n].ca = 1;
                   st = "";
                   n++;
                }
                else
                {
                   cf[index].ca++;
                   st = "";
                }
             }
          }
      }
      sort( cf, 0, n-1);
      createTree(cf, n - 1);
      for (i = 0; i < n; i++)
      {
         StringGrid1->Cells[0][i + 1] = i+1;
         StringGrid1->Cells[1][i + 1] = cf[i].word;
         StringGrid1->Cells[2][i + 1] = cf[i].ca;
         StringGrid1->Cells[3][i + 1] = cf[i].code;
      }
 
      s = Memo2->Lines->Text;
      for(i=1; i <= s.Length(); i++)
      {
 
         if ( (s[i] != 32) && (s[i] != 13) ) str1 = str1 + s[i];
         else
         {
           if (str1 != " ")
           {
              index = searchWord(cf, n, str1);
              if (index != -1)
              {
                 cs = cs + cf[index].code;
                 str1="";
              }
           }
        }
        if (s[i] == 13)
        {
           s = s.Delete(i,1);
           Memo3->Lines->Add(cs);
           cs="";
        }
      }
 
   }
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
    Form2->Show();
    Form1->Hide();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
   StringGrid1->Cells[0][0] = "№";
   StringGrid1->Cells[1][0] = "Слово";
   StringGrid1->Cells[2][0] = "Частота";
   StringGrid1->Cells[3][0] = "Код";
   Form2->Hide();
   
}
//---------------------------------------------------------------------------