Изучение статистических характеристик дискретных сообщений

Цель работы: Изучить статистические характеристики и освоить
методы расчета энтропии дискретных сообщений.
Язык Object Pascal ...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ComCtrls,Math;
...

Задание на лабораторную работу:
1. Подготовить текст, содержащий не менее 1500 символов.
2. Подготовить программу, вычисляющую количество каждого
символа в данном тексте и их вероятности. Результаты
вычислений занести в таблицу 1.
3. Подсчитать количество пар символов. Результат занести в
таблицу 2.

Лист№ докум.ПодписьДатаЛист300Изм.Лист№ докум.ПодписьДатаЛист3s2,s3:integer;procedure Proverka;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin if OpenDialog1.Execute then begin Memo1.Lines.Clear; Memo1.Lines.LoadFromFile(OpenDialog1.FileName); a:=AnsiUpperCase(Memo1.Lines.Text); Proverka; end;end;procedure Proverka;beginfor i := 1 to length(a) dobeginif ((a[i]>='А') and (a[i]<='Я')) or (a[i]=' ') or (a[i]=',') or (a[i]='.') or (a[i]='-') or (a[i]=':') thenbegininc(m);end;end;if (m<1500) or (m=0) thenbeginShowMessage('Исходные текст не введен, либо текст содержит менее 1500 символов! Загрузите текст, содержащий не менее 1500 символов');Exit;endelsebeginShowMessage('Текст загружен');end;end;procedure TForm1.Button2Click(Sender: TObject);begins:=0;s1:=0;b:=' ,.-:АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; for i1:= 1 to length(b) do begin m1:=0; for i := 1 to length(a) do begin if a[i]= b[i1] then inc(m1); end; inc(i2); p:=m1/m; h:=-(p*Log2(p)); s:=s+p; s1:=s1+h; StringGrid1.Cells[0,i2]:= b[i1]; StringGrid1.Cells[1,i2]:=IntToStr(m1);733425231775Изм.Лист№ докум.ПодписьДатаЛист400Изм.Лист№ докум.ПодписьДатаЛист4 StringGrid1.Cells[2,i2]:=FormatFloat('0.0000',p); StringGrid1.Cells[3,i2]:=FormatFloat('0.0000',h); end; StringGrid1.Cells[0,i2+1]:= 'Общее'; StringGrid1.Cells[1,i2+1]:=IntToStr(m)+' N(a(i))'; StringGrid1.Cells[2,i2+1]:=FormatFloat('0.0000',s)+ ' P(a(i))'; StringGrid1.Cells[3,i2+1]:=FormatFloat('0.