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

[e-ric]

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

[e-ric]

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

[anapurna]

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 :

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

Result := g+d

d'ou mon intervention

[Michel]

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 :

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

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

[e-ric]

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

[Michel]

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