a n'en plus rien comprendre. Deux même valeurs qui lors du test indique falseRésolu

Question

Bonjour,

J'ai un tableau, dans lequel je dois tester si les chiffre du tableau sauf le dernier sont &#233;gaux au dernier chiffre de ce m&#234;me tableau. C'est pour r&#233;p&#233;rer une &#233;ventuelle p&#233;riodicit&#233; dans un programme destin&#233; &#224; transformer les chiffre &#224; virgule en chiffre &#224; virgule binaire.

Donc lors du test rien ne marche.. apr&#232;s 1 petite heure de recherche d'erreur, j'ai trouv&#233; ou se situe l'erreur. seulement j'y comprend plus rien.

C'est au moment du test:
x:=0;
while(x<i)do begin
    if(tab[0][x]=tab[0][i])then finish:=true;
x=x+1;
end;

le i est le dernier chiffre du tableau employ&#233;, et le x est la valeur qui est incr&#233;ment&#233;e &#224; chaque fois.

et lorsque c'&#233;tait sens&#233; passer true, cela continuait &#224; chercher.

ne comprenant pas, j'ai mis des points de suivis sur tab[0][x] et sur tab[0][i] ainsi qu'un sur l'expression tab[0][x]=tab[0][i]

Et c'est de la que vient mon imcompr&#233;hension: tab[0][i] affiche 0,4 tab[0][x] fait de m&#234;me, par contre l'expression me met false.

je me suis dis que c'&#233;tait peut-etre comme sous java ou il faut faire des equals, mais m&#234;me pas, car la c'est carr&#233;ment le m&#234;me objet qui est analys&#233; les deux fois, mais bon dans le doute, j'ai transform&#233; ma ligne de comparaison en: if(floattostr(tab[0][x])=floattostr(tab[0][i]))then finish:=true;
comme ca je compare bel et bien uniquement du texte. mais m&#234;me r&#233;sultat &#224; la fin. je suis d&#233;sesp&#233;r&#233;, et je sais franchement pas ou chercher...

f0xi · Accepted Answer

unité Math : function CompareValue(constA,B:Integer):TValueRelationship; overload; function CompareValue(constA,B:Int64):TValueRelationship; overload; function CompareValue(constA,B:Single;Epsilon:Single =0):TValueRelationship; overload; function CompareValue(constA,B:Double;Epsilon:Double =0):TValueRelationship; overload; function CompareValue(constA,B:Extended;Epsilon:Extended =0):TValueRelationship; overload;

Finish := false; i := high(Tab[0]); while not finish do begin Finish :(CompareValue(tab[0,x], tab[0,i], 0.0002) EqualsValue); inc(x); end; Epsilon definit pour les comparaisons sur réel l'aproximation d'egaltiée entre les deux nombres. A < B +Ê (A est inferieur a au moins B ou B - Epsilon) A = B +/-Ê (A est egale a B ou au moins B+ ou - Epsilon) A > B +Ê (A est superieur a au moins B ou B + Epsilon) CompareValue renvois respectivement LessThanValue = -1 :: (A < B)ÊEqualsValue 0 :: (A B)Ê GreaterThanValue = 1 :: (A > B)Ê

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

DeltaFX · Answer

Si c'est un tableau 2D, d&#233;ja l'acces &#224; une case du tableau ca s'ecrit : tab[0,x]
ensuite ton bout de code l&#224; c'est pas propre:

x:=0;
while(xtab[0,x] = tab[0,i] then finish:=true;  avec les espaces

Deuxio ton while bidule est inutile
for x:=0 to i-1 dofinish:tab[0,x] tab[0,i]; 

Troisio un test = avec des nombres a virgules, euh bof .

Et pour finir en beaut&#233;, t'es oblig&#233; de convertir tes nombres en string pour pouvoir acc&#233;der au ni&#233;me chiffre apres la virgule !

Nargzul · Answer

Bon, d&#233;j&#224; merci pour vos r&#233;ponse.

@DeltaFX:
-Pour les tableau je savais pas, j'ai toujours utilis&#233; cela en delphi, et ca avait toujours march&#233; jusqu'a ce que tu me dise que c'est po le cas ^^
-Pour la lisibilit&#233;, j'y penserai &#224; l'avenir
-d&#233;veloppe ce que tu veux dire avec mon &#233;gal? mon chiffre &#224; virgule n'en contient que 3 ou 4 maximum, donc c'est pas si grand... et c'est jamais un nombre infini, car c'est l'utilisateur qui les rentre, et les seules op&#233;ration qu'on fait dessus, c'est des *2.
-Vu la r&#233;ponse apr&#232;s toi, ya plus simple(et pour rappel, j'ai d&#233;j&#224; essay&#233; de transformer mes valeurs en string)

@Foxi
-c'est exactement ce qu'il me faut, maintenant le test marche!!! Merci mille fois!(j'avais vu cette fonction, mais je savais pas ce qu'&#233;tait EqualsValue)

DeltaFX · Answer

Facile : le point 3, le test = sur des nombres &#224; virgule c'est pilpoil ce qu'a dit Foxi juste apres, il  faut  passer par les CompareValue  et leur donner un epsilon. Ignorant moi aussi l'existance de CompareValue, pour faire des test je passais par :

J'ai besoin de 5 chiffres significatifs donc je multiplie les trucs a comparer par 100000, un coup de "trunc", je cast en integer  et apres je teste.

 D'ailleurs pour ta recherche de p&#233;riodicit&#233; dans les d&#233;cimale, tu peux essayer :
si x est ton  nombre  a tester

for i =1 to 10 do {test sur 10 decimales}
begin
    e:= power(10,i)*X - X
    if e  < 0.000001 then {un truc  tres petit}
        begin
         finish:= true;
          break;
        end;
end;

A n'en plus rien comprendre. Deux même valeurs qui lors du test indique false

4 réponses

Votre réponse

Discussions similaires