Zahlen zusammenfassen, nicht addieren

[Dax]

Oha.. Ich dacht hier gehts um Ausgabe..

[DeddyH]

Zitat von 3_of_8:

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

Richtig, so hab ich es auch verstanden.

[-remit-]

Danke für die 4 -5 Möglichkeiten! Ich werde alle Vorschläge durchgehen Damit werde ich erstmal genug zu tun haben...

PS: ja es handelt sich nur um Zahlen im Bereich von 0-9

[Dax]

Delphi-Quellcode:

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

So ist es korrekt. T(1, 0) sollte 10 liefern, nicht 1. Ob es so viel bringen würde, tmp durch Result zu ersetzen, weiß ich momentan nicht.

Zitat von 3_of_8:

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

Wenn man mit sonst nix spielen kann..

[3_of_8]

Zitat von DeddyH:

Zitat von 3_of_8:

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

Richtig, so hab ich es auch verstanden.

So wurde es aber nicht gesagt. In diesem Fall ist DeddyHs Version unwesentlich schneller, aber vor allem einfacher.

@Dax: Touché

[-remit-]

Zitat:

Ich möchte die einzahligen Werte eines Array so zusammenfassen.

Sein Quelltext funktioniert auch mit zweistelligen Zahlen.

[DeddyH]

Zitat von -remit-:

Sein Quelltext funktioniert auch mit zweistelligen Zahlen.

Das kommt darauf an, was Du als Rückgabewert erwartest. Wenn Dein Array z.B. 12 und 13 enthält, käme bei der "Stringlösung" 1213 heraus, bei meiner aber 133.

[3_of_8]

Zitat von -remit-:

Sein Quelltext funktioniert auch mit zweistelligen Zahlen.

Einzahlig? Wohl eher mit einer Ziffer.

[Lannes]

Hallo,

wenn die zwei Werte im Bereich des Typs Word(0..65535) bleiben:

Delphi-Quellcode:

var x, i, ii : Integer;
//...schreiben
x := MakeLong(12,13);
//...Auslesen
i := LoWord(x);
ii := HiWord(x);

[inherited]

Lannes: das hat leider nicht den gewünschten effekt. Aus 12 und 13 sollte 1213 herauskommen, nicht wie bei dir 3085