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

setcolor(15);

outtextxy(50,460,'Press any key...');

readkey;

ClearViewPort;

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

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

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

OutTextXY(x0,y0+40,'Значения p01 и p10 , %');

SetTextStyle(SmallFont, VertDir, 5);

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

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

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+5,'20');

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

for i:=1 to 4 do

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

outtextxy(x0-25,y0-75,'25');

outtextxy(x0-25,y0-2*75,'50');

outtextxy(x0-25,y0-3*75,'75');

outtextxy(x0-25,y0-4*75,'100');

{line(x0,y0-4*75,x0+200,y0-4*75);}

setcolor(2);

for nn:=1 to 13 do

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

line(x0+(nn+1)*12,round((y0-data_p[nn])),

x0+(nn+2)*12,round((y0-data_p[nn+1])));

end;