Шпаргалка: Построение циклических кодов

write(m[i]);

end;

TextColor(14);

GotoXY(2,9);

Write('Исходный полином: ');

Decoder(m);

TextColor(2);

for i:=n downto 0 do

begin

if(i<n-n1+1)then Textcolor(9);

Write(m[i]);

end;

Key:=false;

end;

2:begin

TextBackGround(0);

TextColor(15);

ClrScr;

SetWindow(1,1,79,24,2,'Демонстрация');

TextColor(14);

GotoXY(2,2);

Init(m,p,r,MainFlag);

Write('Информационный полином: ');

TextColor(2);

for i:=n downto 0 do

begin

if(i<n-n1+1)then Textcolor(9);

Write(m[i]);

end;