Не работает циклическое кодирование битов

[Алексей_2012]

  while (i < len - k + 1) do
  begin
    for j := 1 to k do
      lork[i + j] := chr((ord(lork[i + j]) + ord(p[j]) - 2 * f) mod 2 + f);
    j := 1;
    while (lork[i + j] = '0') and (j <= k) do
      inc(j);
    i := i + j - 1;
  end;

объясните , пожалуйста, что делают эти три цикла) и что такое ord

и еще, а если мне нужно выводить так же ход решения, то как это сделать? сейчас сам пытаюсь, но не выходит

[BDA]

lork = 1011010100
i - текущий индекс перед первым символом, рассматриваемым в lork.
Сначала он равен 0.

1011010100
101
"Складываем"
0001010100

Теперь нужно сместить i на несколько символов вправо.
Для этого определяем первый ненулевой символ из только что полученных.
Найдя его, сдвигаем i.
Следующий шаг:

0001010100
   101
"Складываем"
0000000100

Все действия выглядят так:

 1011010100
 101
=0001010100
    101
=0000000100
       101
=0000001110
       101
=0000000100
        101
=0000000001

Внешний цикл определяет начальный индекс символов.
Первый внутренний цикл "складывает".
Второй внутренний ищет первый ненулевой символ.

ord - преобразует символ в его код
chr - преобразует код символа в символ

Насчет вывода промежуточных действий - этот способ не рассчитан на их вывод.
Можно выводить lork, который на каждом этапе внешнего цикла изменяется.

Сам алгоритм генерирования циклического кода у меня вызывает некоторые сомнения.

[Алексей_2012]

Спасибо большое вам еще раз, а программа правильно работает, проверил на нескольких наших учебных решенных примерах-все работает верно.

А вот по поводу:

ord - преобразует символ в его код
chr - преобразует код символа в символ

аски-коды?

[eval]

в хелп заглянуть папа не дает?

[Алексей_2012]

во первых у меня отчим, во вторых можно и по-уважительнее

[Stilet]

во первых у меня отчим

Во-первых: не имеет значения. А во-вторых: Хелп тебе действительно не помешает.
Насчет вопроса: Нет. Не всегда эти функции будут работать с ASCII кодами. Именно поэтому читай Хелп.

[Алексей_2012]

А можно ли эту программу переделать так, чтобы вводились цифры, например 1101001110 и избыточность 110, если после складывания с избыточностью по тому же алгоритму (без приписывания нулей) , на завершении всех циклов получились нули, то ошибок нет, а если не нули, то выводим место ошибки, перевод из двоичной в десятичную сделал, а вот первое никак не могу, помогите пожалуйста!

[Алексей_2012]

Кто-нибудь сможет помочь?

[BDA]

Сообщение от Википедия

Коды CRC (англ. cyclic redundancy check — циклическая избыточная проверка) являются систематическими кодами, предназначенными не для исправления ошибок, а для их обнаружения. Ввиду того, что исправление ошибок не требуется, проверка правильности передачи может производиться точно так же.

Ни о каком нахождении места ошибки не может быть речи.

[Алексей_2012]

Но все же это задача на усвояемость материала, нужно программно реализовать алгоритм, представленный на картинке, я сколько ни пробовал-все без толку, надежда только на вас