Ich suche momentan eine einfache function um 2 Binärzahlen zu subtrahieren.
Fürs addieren habe ich folgenen Code:
Delphi-Quellcode:
function Addieren(Val1, Val2: TBitInt): TBigInt;
var i: integer; merke: Boolean;
begin
merke:=False;
for i:=Low(Val1) to high(Val1) do begin
Result[i]:=(Val1[i] xor Val2[i]) xor merke);
merke:=Val1[i] and Val2[i] or ((Val1[i] or Val2[i]) and merke);
end;
end;
Ich komme grad nich drauf, wie ich es bei der Subtraktionen machen muss:
Delphi-Quellcode:
function Subtrahieren(Val1, Val2: TBitInt): TBigInt;
var i: integer; merke: Boolean;
begin
merke:=False;
for i:=Low(Val1) to high(Val1) do begin
Result[i]:= ...
merke:= ...
end;
end;