Задача с двоичной системой счисления

[Serge_Bliznykov]

да, конечно.

Этот блок, который из массива P, в котором находятся двоичные цифры (исходное число P)
получает новый массив (имя его pPlus1) с двоичными цифрами, являющимися двоичным представлением числа P+1 (исходное число плюс единица)

Теперь рассмотрим, как это осуществляется

  perenos := 1; {это та исходная единица, которую нужно прибавить к числу P}

  for i:=n downto 0 do  {выполняем сложение в столбик
                               если Вы хоть раз складывали два числа в столбик,
                         то знаете, что сложение осуществляется СПРАВА налево,
                          от младших разрядов к старшим.
                         Поэтому тут цикл от n к самой старшей цифре числа }
  begin

    pPlus1[i]:=p[i]+perenos; {очередная цифра равна сумме соответствующей цифры исходного числа и плюс перенос с предыдущего разряда}

    perenos := pPlus1[i] div 2; {новый перенос получаем, если получили число БОЛЬШЕ 2}

    pPlus1[i] := pPlus1[i] mod 2; {если число больше двух, то отбрасываем всё, 
                            что больше двух (оно уже ушло в перенос) 
                            и оставляем ОСТАТОК от деления числа на 2
                           если число меньше двух, то оно не изменится:
                                остаток от деления 0 на 2 равен 0
                                остаток от деления 1 на 2 равен 1
                            }
end; {конец цикла}

дальше ещё проще.
Это вывод двоичного числа БЕЗ ведущих нулей.
ну, если Вы введёте число 0000101, то P+1 будет 0000110
а этим кодом мы найдём ПЕРВЫЙ не ноль в числе:

  start := 0; {начинаем от старшего разряда}
  while (pPlus1[start]=0)   до тех пор, пока цифра под индексом Strat равна нулю
              and (Start<n)  и пока не дошли до крайнего правого (младшего) разряда
             do Inc(Start);  увеличиваем индекс Start

Вы можете закомментировать(убрать строчки с while (pPlus1[start]=0) and (Start<n) do Inc(Start);
- это ничего не испортит в работе программы. Просто в начале числа могут выводится нолики.
и всё.

чуть-чуть стало понятней?

[Asya7]

Огромнейшее спасибо!! Всё ОЧЕНЬ понятно теперь!!
)

[Serge_Bliznykov]

Сообщение от Asya7

Огромнейшее спасибо!! Всё ОЧЕНЬ понятно теперь!!
)

Большое пожалуйста.
Успехов!