Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms icon

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms


НазваниеWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Размер3.1 Kb.
ТипДокументы

unit Unit1;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Grids;


type

TForm1 = class(TForm)

Edit1: TEdit;

StringGrid1: TStringGrid;

BitBtn1: TBitBtn;

Button1: TButton;

Memo1: TMemo;

procedure Edit1Exit(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

A:array[0..100] of string;

c:array[0..100] of string;

count:array[0..100] of string;

Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.Edit1Exit(Sender: TObject);

var i:byte;

begin

for i:=0 to 100 do

a[i]:=edit1.text;

end;


procedure TForm1.Button1Click(Sender: TObject);

var i,j,b:byte; k,s:string; n,ch,l:integer;

begin

for i:=0 to 100 do

a[i]:=edit1.text;

l:=length(edit1.text); memo1.lines.add(floattostr(l));

//по идее должны удаляться повторяющиеся символы из массива и заполнятся

// в stringgrid, потом сделаю по нормальному

S:='Эфективнодрмац ';

b:=length(s);

for n:=1 to b do begin

stringgrid1.cells[1,n]:=s[n];

//ну тут все ясно

with stringgrid1 do begin

Cells[1, 0] := 'Символ';

Cells[2, 0] := 'Число повторений';

Cells[3, 0] := 'Вероятность';

Cells[4, 0] := 'Сортировка вероятностей';

Cells[5, 0] := 'Код Шеннона-Фано';

Cells[6, 0] := 'Код Хаффмана';


end;

//количество повторений символов в массиве


for i:=0 to l+1 do begin ch:=1;

for j:=i+1 to l-1 do begin

if a[i]=a[j] then

inc (ch); end;

count[i]:=floattostr(ch);

end;

for i:=0 to l+1 do

stringgrid1.cells[2,i+1]:=count[i];

//подсчет вероятностей

for i:=1 to l+1 do begin

stringgrid1.cells[3,i]:=format('%.5f',[strtofloat(count[i])/l]);


end;

//сортировка вероятностей

for i:=0 to l do

c[i]:=stringgrid1.cells[3,i];

for i:=0 to l-1 do

for j:=i+1 to b do

if c[i]
begin

k:=c[i];

c[i]:=c[j];

c[j]:=k;

end;

end;

for i:=1 to l+1 do

stringgrid1.cells[4,i]:=c[i];

end;

end.

Похожие:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconОперационные системы WINDOWS 95 и WINDOWS 98
Концепция, заложенная в основу Windows 95, полностью сохранена в Windows 98. Графический интерфейс также изменился незначительно....
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconWindows 7 Windows 7
Сервер коллегой Windows 7,Windows Server 2008 R2, была выпущена в то же время. Windows 7 сменяется Windows 8, которая была выпущена...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconУказатель на структуру типа wsadata, в которую будут записаны сведения о конкретной реализации интерфейса Windows Sockets. В случае успеха функция
В процессе инициализации приложение должно зарегистрировать себя в библиотеке wsock32. Dll, которая предоставляет приложениям интерфейс...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconПримерный перечень вопросов для зачета по Операционным системам
Основы работы в Windows; работа с мышью; клавиатура; элементы интерфейса; Windows; завершение работы с Windows; перетаскивание и...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconУстановка Windows 7 на нетбуке с помощью флэш-накопителя usb при наличии установочного диска Windows 7
...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconAvon predstavitel в списке найденных контактов выберите: Полное имя
Если Вы устанавливаете Skype для Windows, то для работы Skype на Вашем компьютере должна быть установлена операционная система Windows...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconИнструкция пПрошивка телефона, с помощью Flashtool
Драйвера (пользователям Windows 7 x64 нужно перед установкой драйверов выставить в свойствах файла совместимость с Windows Vista...
Вы можете разместить ссылку на наш сайт:
Документы


При копировании материала укажите ссылку ©ignorik.ru 2015

контакты
Документы