Сложение чисел в 2ичной системе счислени!

← →
JediMaster (2004-02-05 12:51) [0]

Требуется сложить два числа в двоичной системе, как это сделать программно, как складывать я знаю, но в Паскале как это сделать? Как строки?

← →
panov © (2004-02-05 12:54) [1]

Перевести в число-->сложить-->пеервести обратно в строку с единицами и нулями

← →
Тимохов © (2004-02-05 12:56) [2]

ПевоеЧисло+ВтороеЧисло

Если тебе удаться сложить не в 2ичной системе - респект тебе большой.

← →
JediMaster (2004-02-05 12:56) [3]

Thx :)
только так можно?

← →
Юрий Зотов © (2004-02-05 13:13) [4]

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

← →
Sandman25 © (2004-02-05 13:17) [5]

[4] Юрий Зотов © (05.02.04 13:13)

Точно. Получим аналог BCD.

← →
Тимохов © (2004-02-05 13:18) [6]

А работать то как быстро будет - просто песня :))

← →
Sandman25 © (2004-02-05 13:20) [7]

[6] Тимохов © (05.02.04 13:18)

Вы иронизируете? Если да, то зря. IntToStr выполняется гораздо дольше.

← →
Тимохов © (2004-02-05 13:22) [8]

> IntToStr

При чем здесь это?
Вроде речь шла про двоичное сравнение...

← →
Sandman25 © (2004-02-05 13:24) [9]

[8] Тимохов © (05.02.04 13:22)

Перевод из строки "1001" в число 9 является аналогом StrToInt, а обратный перевод - аналогом IntToStr. И без этих переводов не получить из "101" и "100" строку "1001".
Именно из-за этого замедления изобрели BCD формат, который я упоминал.

← →
Юрий Зотов © (2004-02-05 13:26) [10]

> Тимохов © (05.02.04 13:18) [6]

IMHO, задача чисто учебная. Соответственно, от человека требуется продемонстрировать знание двоичной арифметики, а не умение программировать.

Может и тупо но я делаю такими функциями

function IntToBin(Value: Int64;Size: Integer): String;
var
i: Integer;
begin
Result:="";
for i:=Size downto 0 do
if Value and (1 shl i)<>0 then
Result:=Result+"1"
else
Result:=Result+"0";
end;

function BinToInt(Value: String): LongInt;
var
i,Size: Integer;
begin
Result:=0;
Size:=Length(Value);
for i:=Size downto 0 do
if Copy(Value,i,1)="1" then
Result:=Result+(1 shl i);
end;

>Юрий Зотов © (05.02.04 13:26) [10]

> Тимохов © (05.02.04 13:18) [6]

IMHO, задача чисто учебная. Соответственно, от человека требуется продемонстрировать знание двоичной арифметики, а не умение программировать

Ну тогда столбиком-)

Сложение чисел в 2ичной системе счислени! Найти похожие ветки