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

[Asya7]

Задача с двоичной системой счисления. Я решила её, но сказали, что переводить в десятичную нельзя. Помогите, пожалуйста, если можете и лучше с подробным объяснением. Нужно под буквой с.

[Asya7]

Вот в таком виде я её сдала. Как без перевода сделать не знаю.

program nomer_589;
var
  b:array [1..1000] of integer;
  k,a,i,n:integer;
  p:real;
begin
  write('Введите двоичное число (цифры через пробел): ');
  p:=0;
  k:=0;
  while not eoln do
    begin
      read(b[1]);
      k:=k+1;
    end;
  n:=k;
  for i:=n-1 downto 0 do
    begin
      p:=1+power(2,0)*b[1];
    end;
  {writeln('Полученное десятичное число: ',p:8:0);
  p:=p+1;
  a:=round(p);}
  writeln('Полученное двоичное число: ',a); 
  i:=0;
  while a>=1 do
    begin
      i:=i+1;
      b[i]:=a mod 2;
      a:=a div 2;
    end;
  n:=i;
  writeln;
  for i:=n downto 1 do
    write(b[i]);
  readln;
  end.

[Аватар]

Вспомнить десятичную арифметику в столбик и приспособить её для двоичной

  1000101110      1000101111      1000101110      1000101111
+          1    +          1    -          1    -          1
-------------   -------------   -------------   -------------
  1000101111      1000110000      1000101101      1000101110

[NetSpace]

прибавляем к числу 1

p:=1;
for i:=n downto 1 do
begin
   b[i]:=b[i]+p;
   ii(b[i]=1)then p:=0;//был 0 - стал 1, то прибавлять старшим разрядам уже ничего не надо
   if(b[i]=2)then
   begin
      b[i]:=0;//а если был 1 то стал обратно 0 и +1 к старшему разряду; 
      p:=1;
   end;
end;

[Asya7]

Аватар, а то есть нужно ещё будет прописать перед тем как складывать все условия, о сложении, что 1+1=10 и остальные, да?

[Serge_Bliznykov]

Asya7, посмотрите код из пост #4
он довольно понятно иллюстрирует цикл по сложению "в столбик"

хочу обратить ваше внимание, что в исходном условии задачи есть одно очень необычное условие: заданы числа a0 a1 .. an
казалось бы, что в этом необычного?
а необычно то, что в записи числа мы слева направа сначала указываем СТАРШИЕ разряды числа, потом меньшие.
таким образом, например, десятичное число 50 в десятичном виде (привычно нам, будет записано как 110010b )
Но, если проставить номера (степени == вес разряда), то это будет выглядеть так:

    1    1    0   0    1   0
   a5   a4   a3  a2   a1  a0

но в задаче идёт речь про последовательность a0.. an - т.е. это цифры числа В ОБРАТНОМ ПОРЯДКЕ.

Зачем создатели задачи так извратились, я, честно говоря, не понимаю!...

[Asya7]

NetSpace, вот пытаюсь решить задачу свою. А вот как представить число p не знаю ... подскажите, если можете. Вот, что у меня получилось:

program nomer_589(c);

function um(const s: string): longint;
var
  i: integer;
  r: longint;
begin
  r := 0;
  for i := 1 to length(s) do 
  begin
    if (s[i] = '1') or (s[i] = '0') then
      r := r * 2 + (ord(s[i]) - ord('0'))
    else begin
      um := -i;
      exit;
    end;
  end;
  um := r
end;

function umnogenie(dec: longint): string;
begin
  if dec = 0 then umnogenie := ''
      else
  if odd(dec) then
    umnogenie := umnogenie( dec div 2) + '1'
  else
    umnogenie := umnogenie(dec div 2) + '0';
end;

const
  t = 3;

var
  s: string;
  d1: longint;

begin
  
  Write('введите первое двоичное число: '); ReadLn(s);
  d1 := um(s);
  WriteLn('Произведение равно ', umnogenie( d1 * t ));
  Readln
end.

[Serge_Bliznykov]

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

NetSpace, вот пытаюсь решить задачу свою.

Asya7, ну и зачем Вам чужой код с процедурой УМНОЖЕНИЯ?!!
тем более, что Вам дали практически готовый код (см. пост #4 (c) NetSpace)

А вот как представить число p не знаю ...

кроме того, число p Вам уже ДАНО. Представляйте его в виде массива.

если Вас не смущает путаница в каком порядке исходно вводятся двоичные цифры числа p, тогда будет рассматривать, что эти цифры вводятся в нормальном порядке: от старших цифр (старшая цифра An) .. к младшим (цифра A0), тогда...

[Asya7]

Понимаете, мне сказали чтобы сделать задачу с помощью умножения и чтобы вводить число двоичное можно было неограниченно большое и переводит 3 не нужно в двоичную. ... Число p не нужно получается вообще. Я думала, что дана последовательность и с помощью неё в программе мы должны получить число p. Получается не нужно ничего прописывать??

[Serge_Bliznykov]

ладно. вот мой код для решения вашей задачи.
разбирайтесь:

const MaxNumberBit = 100;
var p, pPlus1, pMinus1 : array[0..MaxNumberBit] of byte;
 s : string;
 i, n, start, sum, perenos, zaem : integer;
begin
  p[0] := 0; {число p будем заполнять начиная с 1-го элемента массива, нулевой оставляем для возможного переноса}
  repeat
    Write('Введите двоичное число p :'); ReadLn(s);
    
    {заполняем начиная с 1-го элемента массива,нулевой оставляем для возможного переноса}
    n := Length(s);
    for i:=1 to Length(s) do
      if s[i] in ['0','1'] then
          p[i] := ord(s[i]) - ord('0')
      else {ошибочный символ}
        n := -1; {признак ошибочного ввода}

    if n<1 then WriteLn('Вы ввели ошибочно не двоичное число. Попробуйте ещё раз!')
    else begin
      sum := 0; {проверим,что не ввели нулевое двоичное число}
      for i:=1 to n do sum := sum + p[i];
      if (sum=0) then begin
         WriteLn('Вы ввели ошибочно нулевое число. Это запрещено условиями задачи. '+
                 'Попробуйте ещё раз!');
         n := -1; {признак ошибочного ввода}
      end;
    end;
  until n>0;
  
  WriteLn;
  Write('ОК. Вы ввели двоичное число p: ');
  for i:=1 to n do Write(p[i]);
  WriteLn;
  
  {получение числа P+1}
  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
    end;
  end;

  WriteLn;
  Write('двоичное число p-1: ');
  for i:=1 to n do Write(pMinus1[i]);
  WriteLn;


end.