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

ent := sourse; {--случайное сообщение из ансамбля---}

deranges; {-----------внесение помех-----------}

decoder; {----декодирование двоичного кода----}

if ent <> decode then inc(count_of_errors);

end;

gotoxy(10,23);

write('РЕЗУЛЬТАТ ПЕРЕДАЧИ СООБЩЕНИЙ : ');

TextColor(12);

write( 'КОЛИЧЕСТВО ОШИБОК = ',count_of_errors);

TextColor(15);

gotoxy(10,24);

write('Please wait...');

{---------расчет count_of_errors для разных n-----------}

n := 0;count := 0;dlina := 100;

repeat

n := n + 3;

inc(count);

count_of_errors := 0;

for sh := 1 to dlina do

begin

ent := sourse;

deranges;

decoder;

if ent <> decode then inc(count_of_errors);

end;

data_n[count] := round(count_of_errors*3) ;

until n >= 96;

{---расчет count_of_errors для разных p01 и p10---}

n:=3;count:=0;dlina := 100;p01:=0;p10:=0;