Нужно сложить два 2-ичных числа на Паскале

[nothingness07]

Я пытаюсь сложить два числа в 2-ичной системе. Мне сказали сначала перевести 10-ичные числа в 2-ичную и затем их сложить. Я пытался попробовать как-то соединить два кода.

С начала перевод числа в 2-ичную, но для одного числа

Var a, b, k: longint;
begin
  Readln(a);
  k:=1; b:=0;
  repeat
    b:=b+(a mod 2)*k;
    
    k:=k*10;
    a:=a div 2
  until (a=0);
  Writeln(b)
end.

И сложение двух 2-ичных, здесь у меня проблема, я не особо понимаю как это сделать. Я попробовал так

var x, y, z: integer;
begin
  
  for x:=1 to 2-1 do
    begin
      for y:=1 to 2-1 do
        begin
          z:=(x+y div 2)*10 + (x+y) mod 2;
        end;
       writeln (z);
    end;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

Это переделанный код для умножения, я просто не знаю как сделать по другому.
Может кто что подскажет?

[digitalis]

Учитывая, что в компе все целые числа и так хранятся и обрабатываются в двоичном виде, то эту смешную задачку и решать можно по смешному. Здесь не предусмотрена "защита от дурака", так что все символы во входной строке, отличные от '1', будут восприниматься как 0. Двоичные числа будем вводить и выводить как строки.

program binary_plus;
var
 i,j,k: integer;
 st: string ;
 
function inp_bin:integer ;
var
  i,j,k,n:integer;
  stro:string ;
begin
   writeln ('Enter a binary number') ;
   readln (stro) ;
   n := Length (stro) ;
   i := 0 ; k := 1 ;
   for j := n downto 1 do
     begin
       if stro[j]='1' then i := i + k ;
       k := k+k
     end ;  
   inp_bin := i ;
end ;

begin
  i := inp_bin ;
  j := inp_bin ;
  k := i+j ;
  i := 1 ;
  st := '' ;
  repeat
    if (k and i) > 0 then st := '1' + st else st := '0' + st ;
    i := i+i;
  until (i>k) ;
  writeln (st) ;
  readln (i)
end.

[Serge_Bliznykov]

http://www.programmersforum.ru/showp...3&postcount=12

(с) Аватар

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;

....
var s1, s2 : string;
  s1:='100110101101';
  s2:='10011010110101';
  WriteLn( BinAdd(s1,s2) );
end.

[digitalis]

Много есть вариантов...
"Все программы хороши - выбирай на вкус" © Некрасов . "Мцыри"