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

Begin

clrscr;

p10:=0.2+0.02*a;

p01:=0.2+0.02*b;

randomize; {--инициализация генератора случайных чисел--}

ver; {инициализация и упорядочивание вероятностей}

set_codes; {--------инициализация кодов---------}

TextColor(15);

gotoxy(10,1);

write('ПАРАМЕТРЫ КАНАЛА :');

gotoxy(1,2);write('Вероятности одиночных ошибок :');

gotoxy(3,5);write('при передаче нуля : ',p01:4:3);

gotoxy(3,6);write('при передаче единицы : ',p10:4:3);

gotoxy(40,1);write('НЕРАВНОМЕРНЫЕ КОДЫ СООБЩЕНИЙ : ');

for i := 1 to m do {--------вывод кодов--------}

begin

gotoxy(45,1+i);

write(' z(',i,') = ');

gotoxy(55,1+i);

for j := 1 to dl[i] do

write((z[i] shr (8 - j)) and 1); {побитно}

end;

gotoxy(10,19);

write('Ввести длину передаваемого массива сообщений : ');

read(dlina);

write(' Ввести n для (n,1) - кода : ');

read(n);

count_of_errors := 0;

for sh := 1 to dlina do