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

tu := random;

while ttu < tu do begin {пока не превысили random...}

inc(cou);

ttu := ttu + p[cou]; {увеличиваем счетчик}

end;

sourse := cou; {присваиваем число из 1..15}

end;

procedure decoder; {---для неравномерного кода---}

var

code:byte;

begin

code:=out;

for i:=1 to 8 do {цикл со старшего разряда}

begin

temp:=code and mask[i]; {выделяем код}

for j:=1 to m do

if (temp=z[j]) and (i=dl[j]){если совпадает}

then

decode:=j; {...декодируем}

end;

end;

procedure graphiki; {-----------построение графика----------}

const x0=250; {начало координат}

y0=400;

var nn,ss,ii:integer;

sr:string;

driver,mode,errcode:integer;

begin

driver:=detect;