Problème d'addition incompréhensible
Publié : ven. 31/oct./2014 11:41
Salut, voici le problème ou je vois pas ou est le problème, deux façon de faire, chez moi ça va jamais au dessus de 4294967295:
Une idée ?, un bug ?
Alors, que dire de ça:
Le résultat finale dépasse pas un Quad (18 446 744 073 709 551 615)
Code : Tout sélectionner
Procedure Test(A, B, C, D, E)
Nombre.Q = A + (B * 256) + (C * 65536) + (D * 16777216) + (E * 4294967296)
Debug Nombre.Q
Nombre.Q = 0
Nombre.Q = A + (B * 256)
Debug Nombre.Q
Nombre.Q + (C * 65536)
Debug Nombre.Q
Nombre.Q + (D * 16777216)
Debug Nombre.Q
Nombre.Q + (E * 4294967296)
Debug Nombre.Q
EndProcedure
Test(255, 255, 255, 255, 255)Alors, que dire de ça:
Code : Tout sélectionner
Procedure Test(A, B, C, D, E, F, G, H)
Nombre.Q = A + (B * 256) + (C * 65536) + (D * 16777216) + (E * 4294967296) + (F * 1099511627776) + (G * 281474976710656) + (H * 72057594037927936)
Debug Nombre.Q
EndProcedure
Test(255, 255, 255, 255, 255, 255, 255, 255)
