Zahlen zusammenfassen, nicht addieren

[-remit-]

Hallo,

ich habe vergeblich 1 Stunde gesucht, wusste auch nicht so recht unter welchem Suchbegiff. Ich habe folgendes Problem:

Eine Integer-Var sollen zwei andere Integer-Vars zugewiesen werden, nicht addidativ, sondern zusammengefasst. Beispiel:

x:=2+3
x:=23 und nicht 5

ich hoffe es ist möglich ohne einen langen Quelltext zu schreiben, ein Art "+" , das nur zusammenfasst und nicht addiert wäre fein.

Danke im Voraus!

[Dax]

Deklariere x als String und füge deine Integer auch als Strings wieder hinten an. Wie man Integer (Int) int Strings (Str) umwandelt, dürfte ja geläufig sein

[calculon]

Dafür musst du die integer Variablen vorher in strings verwandeln und dann wieder zurück:

Delphi-Quellcode:

var
  str: string;
  a, b, c: integer;
begin
  a := 2; b := 3;
  str := inttostr(a) + inttostr(b);
  c := strtoint(str);
end;

[-remit-]

Danke für eure schnellen Antworten, gibt es wirklich nur den Weg über Strings oder wären die anderen zu lang bzw zu kompliziert?

[3_of_8]

x:=trunc(intpower(10, trunc(log10(b))+1)*a+b); Möglicherweise geht das auch schneller, ich wüsste aber nicht, wie.

@calculon: Das würde ich als Umweg bezeichnen.

[Nikolas]

Was willst du denn damit machen, dass es dir so auf Geschwindigkeit ankommt?

[calculon]

Wenn's nur zur Ausgabe ist, dann -> Konsolenanwendung
writeln(a,b);

Zitat von 3_of_8:

@calculon: Das würde ich als Umweg bezeichnen.

Ja, ich sehe gerade du hast es algorithmisch gemacht. Ohne deinen Algo. getestet zu haben, glaub' ich dir einfach mal. Ich wüsste nicht wie ich das ohne inttostr und strtoint gemacht hätte...

Gruß

Calculon
--

[-remit-]

Ich möchte die einzahligen Werte eines Array so zusammenfassen. Sollte also kein allzugroßer Umweg sein.

[DeddyH]

Vielleicht ist es so verständlicher:

Delphi-Quellcode:

function zusammenfassen(const arr: array of integer): integer;
var i: integer;
begin
  Result := 0;
  for i := Low(arr) to High(arr) do
    Result := Result * 10 + arr[i];
end;

[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.