Кодирование

[Mss_Smith]

Помогите!!!!!!!!!!!! Задали прогу сделать : циклическое корректирующее кодирование. подскажите как!!!!!!!! очень прошу!!!!!!!!!!1

[Vidar]

А можно подробнее? откуда идут данные и куда хотябы...сам метод я так понимаю в добавлении crc. в целом ничего особо сложного, но не понятно в каком виде это нужно

[SERG1980]

Ниже приведён пример вычисления CRC 16
function UpdCrc(cb:byte;crc,plnm:word):word;
var j,crcbit:integer;
begin
result:=crc xor cb;//делаем исключающее ИЛИ
for j:=1 to 8 do//анализируем каждый бит байта
begin
crcbit:=result and 1;//проверяем чему равен бит (0 ил 1)
result:=result shr 1; //сдвиг на один бит вправо
if crcbit<>0 then result:=result xor plnm;//если бит=1 тоделаем искл. ИЛИ результата с полиномой
end;
end;
где cb-i-ый байт для которого подсчитывают CRC
crc-начальное значение crc(обычно $FFFF или $0000)
plnm-полинома.

[Mss_Smith]

нам рассказали корректирующий циклический код. циклический код (31,26) Порождающий многочлен X^5+X^4+X^2+X+1(т.е. если перевести будет 110111 вроде так) это g(x) , далее в поле мы вводим любой набор о и 1 -h(x). и надо закодировать. а формула (h(x)*x^r(это просто добавляется 5 нулей))/g(x) и все это складываем с h(x)*x^r(это также приписивается к h(x)- 5 нулей). вот это надо в делфи запрограммировать. помогите пожалуйста.