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

[Asya7]

Спасибо! Но извините, а умножать, то на 3 как? Там лишь сложение и вычитание.

[Аватар]

Вот еще вариант на основании строк. Ток для турбо макс длина строки 255, для фри нет такой проблемы

function BinAdd(Value1,Value2: String): String;
var i,j,i1,i2: Integer;
    s: String;
begin
  i1:=Length(Value1);
  i2:=Length(Value2);
  s:=''; i:=0;
  while (i1>0) or (i2>0) do begin
    if (i1>0) and (i2>0) then begin j:=StrToInt(Value1[i1])+StrToInt(Value2[i2]); Dec(i1); Dec(i2); end
    else if i1>0         then begin j:=StrToInt(Value1[i1]);                      Dec(i1);          end
                         else begin j:=StrToInt(Value2[i2]);                      Dec(i2);          end;
    Inc(j,i);
    s:=IntToStr(j mod 2)+s;
    i:=j div 2;
  end;
  if i=1 then s:='1'+s;
  BinAdd:=s;
end;

function BinMul(Value1,Value2: String): String;
var i: Integer;
    s: String;
begin
  s:='0';
  for i:=Length(Value2) downto 1 do begin
    if Value2[i]='1' then s:=BinAdd(s,Value1);
    Value1:=Value1+'0';
  end;
  BinMul:=s;
end;

....

  s1:='100110101101';
  s2:='10011010110101';
  s:=BinMul(s1,s2);

[Asya7]

Аватар, спасибо! Правда очень кажется уж сложно пока для моего уровня знаний программирования.

[Аватар]

Пожалуйста. Не сложней, чем Сергей на массивах предлагал. Но на массивах все эффективней обычно

PS

Я тут умножение двоичных дал, тема то про сложение или умножение?
В принципе для сложения достаточно функции BinAdd. Для вычитания сделай свою если надо

[Serge_Bliznykov]

Сообщение от Аватар

В принципе для сложения достаточно функции BinAdd

категорически согласен!

Asya7, для того, чтобы получить 3p достаточно просто три раза сложить число p

[Asya7]

Всем спасибо за пояснения!

[Serge_Bliznykov]

в качестве извращения, можно каждый разряд двоичного числа умножить на 3, а потом скорректировать полученное НЕ ДВОИЧНОЕ число:

к моему примеру с массивами:

const MaxNumberBit = 100;
var 
   p, pPlus1, pMinus1, pMulti3 : array[0..MaxNumberBit] of byte;
....

  {умножить на 3 для получения числа 3p}
  pMulti3[0] := 0; {ещё один раздряд резервируем для переполнения}
  for i:=0 to n do pMulti3[i+1] := p[i] * 3; {каждый разряд числа p умножаем на 3}
  {теперь надо скорректировать, превратить полученное безобразие в нормальное
                 двоичное число}
  perenos := 0;
  for i:=n+1 downto 0 do
  begin
    pMulti3[i]:= pMulti3[i]+perenos;
    perenos := pMulti3[i] div 2;
    pMulti3[i] := pMulti3[i] mod 2;
  end;

  {вывод результата}
  start := 0;
  while (pMulti3[start]=0) and (Start<(n+1)) do Inc(Start);

  WriteLn;
  Write('двоичное число 3*p: ');
  for i:=start to n+1 do Write(pMulti3[i]);
  WriteLn;


end.

Внимание! Будьте осторожны. Это метод не сработает, если место 3-х умножать на большее число (даже уже на 4-ре нельзя просто так заменить 3-ку!!!)

[Asya7]

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

perenos := 1;
  for i:=n downto 0 do
  begin
    pPlus1[i]:=p[i]+perenos;
    perenos := pPlus1[i] div 2;
    pPlus1[i] := pPlus1[i] mod 2;
  end;
  
  start := 0;
  while (pPlus1[start]=0) and (Start<n) do Inc(Start);
  
  WriteLn;
  Write('двоичное число p+1: ');
  for i:=start to n do Write(pPlus1[i]);
  WriteLn;
  
  {получение числа P-1}
  zaem := 1;
  for i:=n downto 0 do
  begin
    if p[i]>=zaem then begin
       pMinus1[i] := p[i]-zaem;
       zaem := 0
    end
    else begin
       pMinus1[i] := p[i]+2-zaem;
       zaem := 1

[Serge_Bliznykov]

Asya7, тут много строчек. Какая из них Вам непонятна?

[Asya7]

Пожалуй, вот эти, самые не понятные. Можете объяснить?

for i:=n downto 0 do
    pPlus1[i]:=p[i]+perenos;
    perenos := pPlus1[i] div 2;
    pPlus1[i] := pPlus1[i] mod 2;
  start := 0;
  while (pPlus1[start]=0) and (Start<n) do Inc(Start);