Курсовая работа: Методы сжатия цифровой информации Метод Лавинского

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Main : TMain;

f,f1:textfile;

i1:integer; // счетчик элементов (чисел) в файле

massivelementov: array [0..24]of longint;// сжимаемый массив

massivelementov1: array[0..3,0..4] of longint; //рабочий массив разбитый на интервалы

kolelementovfila:real;//количество элементов М

maxchislo:integer;// Максимальное число из М

chisloposled:integer; //Количество элементов в интервале

Interval:integer;//количество интервалов

kolmetok:integer;// количесьво меток

k:real;//флаг опред метки

polovina:real;//половина интервала

nomer:integer; // порядковый номер массива

granica:array of integer;//порядковый номер границы от нуля

mm:integer;

implementation

{$R *.dfm}

function DecToBin(dec:integer):string;

var

bin:string;

К-во Просмотров: 571
Бесплатно скачать Курсовая работа: Методы сжатия цифровой информации Метод Лавинского