Concaténation de deux nombres entiers

Bonsoir à tous,

Je voulais savoir s'il était possible de faire la chose suivante :

Je dispose d'un tableau tab qui contient 2 entiers (soit tab[0] := 1 et tab[1] := 2 par exemple).

Je voulais savoir s'il était possible de concaténer ces deux cases pour former un integer (soit ici 12).

Merci pour votre aide.

Problème résolu à l'instant !

Pour ceux qui sont intéressés : := (tab[0] * 10) + tab[1];

Désolé de déterrer cela mais la solution n'est valable que pour les nombres de 0 à 9.
Essayez concaténer 10 et 20; cela devrait donner 1020 mais 10*10 +20 donne 120.
Méthode possible : en faire deux chaînes; les concaténer et convertir en entier

Salut

Une simple fonction suffit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

function Concatene(g,d: Integer): Integer; var dp: Integer; begin dp := d; repeat dp := dp div 10; g := g * 10; until dp = 0; Result := g+d end;

---

Uniquement didactique, le dépassement de capacité n'est pas traité, se restreindre donc à des entiers raisonnables, non testé en pascal.
Evite les conversions en chaînes de caractères. Le test rejeté à la fin permet de traiter correctement le cas du 0 pour le nombre noté d.
On pourrait aussi envisager une solution basée sur les décalages de bits, ce qui serait un bon exercice. (Oups, bêtise de ma part, le décalage de bits n'est pas cohérent avec les manipulations de puissances de 10.)

salut

plus simple

Code:

---

MyVal := StrToInt(Format('%d%d',[tab[0],tab[1]]))

---

Anapurna

Ta solution est très proche de celle de Michel. Rappelons qu'il faut un entier en sortie, donc par ton approche, il faut en gros deux conversions en entrée (entier -> chaîne), une concaténation et enfin une nouvelle conversion (chaîne -> entier). Ca commence à coûter cher... Je sais, je sais, on peut se le permettre avec la puissance des machines actuelles.

Ma solution consistait à ne pas passer par des manipulations de chaîne, je reste ainsi dans le monde des entiers et je pense que cela est plus rapide même si cela pose un problème de débordement potentiel. En outre, l'algorithme n'est pas compliqué (5 minutes de réflexion en Python).

Cdlt

salut @e-ric,

avec ton approche tu oublie le zero sur la chaine de gauche

Code:

---

10+0 = 10

---

concatenation

Code:

---

10&0 = 100

---

Normalement mon algorithme prévoit cette situation (emploi de repeat until au lieu de while). Mais je n'ai pas fait de test (pas de compilo FPC sur place), as-tu pu vérifié l'exécution ?

Cdlt

@ Anapurna: Au fait, quand j'ai répondu à ton premier post, je n'ai pas été trop agressif au moins, sinon désolé! ce n'était pas mon but.

salut

non pas de soucis je suis pas susceptible ;)
je n'est pas FPC non plus
effectivement j'avais pas vu que tu multiplie par 10 au moins une fois autant pour moi
j'ai lu trop rapidement et mon œil est resté sur

Code:

---

Result := g+d

---

d'ou mon intervention

superbe !!!
je ne m'attendait pas à autant de réactions à ma petite remarque !

Une peite méthode tordue pour la route mais pas plus de 2 chiffres pour b différent de zéro
Pour le cas b=0 j'aurais du ajouter un if

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

program concat; uses Math,crt; var a,b,c,puissance: integer; p :real; begin clrscr; a:=205;b:=130; p:=int(Log10(b)+1);   c:=a*Round(POWER(10,p))+b; writeln(a,' ',b,' -> ', c ); end.

---

Testé pour quelques valeurs de a et b avec FC

Salut

Ok pourquoi pas, mais utiliser un logarithme pour travailler sur les entiers me paraît incongru, tu fais deux conversions (entier -> réel puis réel -> entier), ma solution permet de rester dans le monde des entiers.

Cdlt

Tout à fait d'accord e-ric ; j'avais annoncé la couleur, c'est tordu en même un peu limité !!:mouarf: