Discussion :

[coolam]

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];

[Michel]

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

[e-ric]

Salut

Une simple fonction suffit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anapurna]

salut

plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[e-ric]

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

[anapurna]

salut @e-ric,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

10+0 = 10

concatenation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 10&0 = 100