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

p01:=p01+0.07;

p10:=p10+0.07;

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_p[count] := round(count_of_errors*3) ;

until p01 >= 0.98;

gotoxy(10,24);

writeln('Press any key to continue...');

readkey;

graphiki;

readkey;

closegraph;

End.

ПРИЛОЖЕНИЕ Б

Текст программы распознавания символов

Program Final_of_work;

uses graph;

const BiH=50; {-------высота картинки в пикселях------}

BiW=160; {-------ширина карт