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

errcode:=graphResult;

if errcode<>grOk then

begin

Writeln(' Ошибка графики. ');

writeln(GraphErrorMSG(Errcode));

halt

end;

setcolor(white); {контуры фигур и текст}

line(x0,y0,x0,y0-300); {------ось y-----}

line(x0,y0,x0+200,y0); {------ось x-----}

SetTextStyle(DefaultFont, HorizDir, 1); {установка шрифта}

OutTextXY(x0,y0+40,'Количество повторений , n');

SetTextStyle(DefaultFont, VertDir, 1);

SetTextJustify(LeftText,TopText);{--способ выравнивания--}

OutTextXY(x0-50,180,'Количество ошибок , %');

SetTextStyle(DefaultFont, HorizDir, 1);

for i:=1 to 5 do

line(x0+i*35,y0,x0+i*35,y0-5);{делительные штрихи оси x}

outtextxy(x0+35,y0+10,'20');

outtextxy(x0+5*35,y0+10,'100');

for i:=1 to 4 do

line(x0,y0-i*65,x0+5,y0-i*65);{делительные штрихи оси y}

outtextxy(x0-20,y0-65,'15');

outtextxy(x0-20,y0-3*65,'45');

for nn:=1 to 33 do

begin {рисуем график}

setcolor(2);

line(x0+(nn+1)*5,round((y0-data_n[nn])),

x0+(nn+2)*5,round((y0-data_n[nn+1])));