Двоичное сложение

[Юлкунчик]

Ввести 2 целых числа (знак числа запрашивается отдельно) и выполнить двоичное сложение .Если нужно, перевести числа, представленные в прямом коде, в дополнительный или обратный.

что-то я запуталась... подскажите пожалуйста...

[Stilet]

Это двоичное сложение:

var a,b,c:integer;
begin
 c:=a or b
end.

[Юлкунчик]

спасибо....
но я это в общем то знала.....
я запуталась в переводе в двоичную систему счисления, а потом в сложении...

[Stilet]

я запуталась в переводе в двоичную систему счисления, а потом в сложении...

А зачем это делать?

[B_N]

Сообщение от Юлкунчик

я запуталась в переводе в двоичную систему счисления, а потом в сложении...

Если речь идет о побитном сложении, то (исходя из 16-битных операндов) это можно реализовать примерно вот так:

var
    OperandA, OperandB 	: word;
    CarryFlag   		: byte;
    i           		: integer;
    TmpA, TmpB			: word;
	TmpResult, EndResult: word;
    UltimateResult 		: longint;
begin
    CarryFlag := 0;
    OperandA := 34567;
    OperandB := 45678;
    EndResult := 0;

    for i :=  0 to 15 do begin
        TmpA := OperandA AND 1;     			{Берем младшие на настоящий момент}
        TmpB := OperandB AND 1;     			{биты операндов}

        TmpResult := TmpA + TmpB + CarryFlag;   {Складываем с учетом переноса}
        if TmpResult > 1 then begin				{Проверяем, умещается ли результат в 1 бит}
            CarryFlag := 1;                     {Если нет, ставим флаг переноса}
            TmpResult := TmpResult AND 1;       {И "вталкиваем" результат в 1 бит}
        end
        else begin
            CarryFlag := 0;                     {Если да - сбрасываем флаг переноса}
        end;

        TmpResult := TmpResult shl i;           {Сдвигаем результат в нужный разряд}
        EndResult := EndResult OR TmpResult;

        OperandA := OperandA shr 1;             {Сдвигаем операнды на 1 бит вправо}
        OperandB := OperandB shr 1;             {другими словами, делим на 2}
    end;

    {И в самом конце опять учитываем перенос}
    UltimateResult := CarryFlag;
    UltimateResult := UltimateResult shl 16;
    UltimateResult := UltimateResult + EndResult;

    Writeln(UltimateResult);
end.

В результате получим 80245.

[Юлкунчик]

Спасибо!!!!!))))))очень сильно помогли!!!!!!