Реферат: Помехоустойчивое кодирование, распознавание символов

then

for l := i to j do {...цикл по группе}

if l <= s then {устанавливаем коды и длины}

begin

z[l] := z[l] or (1 shl range);

dl[l] := dl[l] + 1

end

else

dl[l] := dl[l] + 1;

if j < m then {устанавливаем текущий счетчик}

c := j

else

c := 0

end

else if c = m then c := 0;

until range = 0;{...пока не дойдем до последнего разряда}

{--------------инициализация масок--------------}

temp := 0;

for i := 1 to 8 do

begin

temp := temp or (1 shl (7 - (i - 1)));

mask[i] := temp

end

end;

function sourse:byte; {-----генерирует число из 1..15-----}

var cou : byte;

tu,ttu : real;

begin

cou := 1; {начальное значение}