Zahlen zusammenfassen, nicht addieren

[3_of_8]

Achja, ich hab mal schnell eine Funktion geschrieben, die ohne Gleitkommaberechnungen auskommt:

Delphi-Quellcode:

function ConcatNumbers(const a, b: Cardinal): Cardinal;
var I, tmp: Integer;
begin
  I:=0;
  tmp:=1;
  while tmp<=b do
    tmp:=tmp*10;
  Result:=a*tmp+b;
end;

Laufzeit: T(a, b)=5+lg b=O(log b) falls es interessiert.

@DeddyH: Wenn ich das richtig sehe, funktioniert deine Funktion nur für Werte zwischen 0 und 9.