bundyboss33
Messages postés mardi 24 juin 2003Date d'inscription
3 mars 2005
Dernière intervention
-
15 févr. 2005 à 23:57 - Dernière réponse : aafi
- 3 mars 2005 à 20:16
Tiens ben moi, c'est exactement le contraire, 200ms plus rapide pour le case
(alors là je dis 200ms pour bien montrer que c'est mieux
que 20ms, mais si je ne dis pas sur combien... ! ni sur quelle machine
!)
En fait j'ai pas de réponse correcte mesurée : je n'ai essayé que sur des case ou if sur 60 valeurs (0 à 59). Mais une chose parait sûre, plus il y a de valeurs, et plus le Case prendra l'avantage, du fait de sa façon de travailler .
EXECUTION :
A la compilation d'un case, une table des adresses des parties spécifiques à chaque
valeur est remplie, et le case execute une suite d'instruction du type :
cmp eax,max
jnbe suite {si la valeur est supérieure à la plus grande des valeurs du
case }
jmp dword ptr[eax * 4 + AdresseDebutTable]
et pi c'est tout !
A la compilation d'un if, on a un code du genre
cmp bx,#valeur
jnz plusloin
{instructions}
cmp bx,#valeursuivante
jnz plusloinencore
{autres instructions}
.... etc ....
.... etc ....
.... etc ....
Ce qui est sûr, c'est que toutes les comparaisons sont effectuées, et donc plus il y en a, plus le boulot est long !
MEMOIRE : (puisque c'est aussi évoqué dans la question initiale)
case : 4 instructions (20 octets environ) + table 4 octets x indice max du case
pour case de 0 à 300 : 20 + 4 x 301 = 1224 octets
if : un compare (4 octets) et un saut (2 octets au mieux) par comparaison
pour un if avec nos valeurs de 0 à 300 : 6 x 301 = 1806 octets
Donc, je ne suis pas d'accord avec j!nH, na !
Case vainqueur !
Ken@vo
____________________
Code, Code, Codec !
un code pour vérifier ce que je dis :
procedure Rien;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Word;
j, h: longint;
begin
h := GetTickCount;
for j := 0 to 3000000 do
begin
i := SecondOf(Now);
case i of
0: Rien;
1: Rien;
2: Rien;
3: Rien;
4: Rien;
5: Rien;
6: Rien;
7: Rien;
8: Rien;
9: Rien;
10: Rien;
11: Rien;
12: Rien;
13: Rien;
14: Rien;
15: Rien;
16: Rien;
17: Rien;
18: Rien;
19: Rien;
20: Rien;
21: Rien;
22: Rien;
23: Rien;
24: Rien;
25: Rien;
26: Rien;
27: Rien;
28: Rien;
29: Rien;
30: Rien;
31: Rien;
32: Rien;
33: Rien;
34: Rien;
35: Rien;
36: Rien;
37: Rien;
38: Rien;
39: Rien;
40: Rien;
41: Rien;
42: Rien;
43: Rien;
44: Rien;
45: Rien;
46: Rien;
47: Rien;
48: Rien;
49: Rien;
50: Rien;
51: Rien;
52: Rien;
53: Rien;
54: Rien;
55: Rien;
56: Rien;
57: Rien;
58: Rien;
59: Rien;
end;
end;
H := GetTickCount - h;
Button1.Caption := IntToStr(h);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i: Word;
j, h: longint;
begin
h := GetTickCount;
for j := 0 to 3000000 do
begin
i := SecondOf(Now) mod 20;
if i = 0 then Rien;
if i = 1 then Rien;
if i = 2 then Rien;
if i = 3 then Rien;
if i = 4 then Rien;
if i = 5 then Rien;
if i = 6 then Rien;
if i = 7 then Rien;
if i = 8 then Rien;
if i = 9 then Rien;
if i = 10 then Rien;
if i = 11 then Rien;
if i = 12 then Rien;
if i = 13 then Rien;
if i = 14 then Rien;
if i = 15 then Rien;
if i = 16 then Rien;
if i = 17 then Rien;
if i = 18 then Rien;
if i = 19 then Rien;
if i = 20 then Rien;
if i = 21 then Rien;
if i = 22 then Rien;
if i = 23 then Rien;
if i = 24 then Rien;
if i = 25 then Rien;
if i = 26 then Rien;
if i = 27 then Rien;
if i = 28 then Rien;
if i = 29 then Rien;
if i = 30 then Rien;
if i = 31 then Rien;
if i = 32 then Rien;
if i = 33 then Rien;
if i = 34 then Rien;
if i = 35 then Rien;
if i = 36 then Rien;
if i = 37 then Rien;
if i = 38 then Rien;
if i = 39 then Rien;
if i = 40 then Rien;
if i = 41 then Rien;
if i = 42 then Rien;
if i = 43 then Rien;
if i = 44 then Rien;
if i = 45 then Rien;
if i = 46 then Rien;
if i = 47 then Rien;
if i = 48 then Rien;
if i = 49 then Rien;
if i = 50 then Rien;
if i = 51 then Rien;
if i = 52 then Rien;
if i = 53 then Rien;
if i = 54 then Rien;
if i = 55 then Rien;
if i = 56 then Rien;
if i = 57 then Rien;
if i = 58 then Rien;
if i = 59 then Rien;
end;
H := GetTickCount - h;
Button2.Caption := IntToStr(h);
end;
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
jinh68215
Messages postés mardi 29 juillet 2003Date d'inscription
1 septembre 2006
Dernière intervention -16 févr. 2005 à 11:56
0
Utile
Bonjour,
Je ne suis pas d'accord, un case prend plus d'instructions mémoire car il teste quand même tous les cas en interne..Cela dépend bien sur des cas, mais à la base une imbrication de if..else est plus rapide.
d'apres ni69, il vaut mieux te croire.... .
Je ferai sans doute prochainement un test meme si je ne connais pas GetTickCounter.. va falloir chercher encore lol..
Si j'y arrive et que j'ai le tps je posterai la reponse.
Encore merci a vous tous.
"case of" =2
"if Then" =1 et remporte, qui a dit que la majorité gagne tjs
jinh68215
Messages postés mardi 29 juillet 2003Date d'inscription
1 septembre 2006
Dernière intervention -16 févr. 2005 à 18:52
0
Utile
Hum attendez, attendez , je suis en train de comprendre pourquoi...Laissez moi un petit moment et je vous explique cet écart aberrant (qui ne s'explique pas par le calcul de Kenavo).
