Discussion :

[Yepazix]

Je voudrais juste savoir comment faire des IF avec deux voir 3 conditions.

Je veux en fait dire :

Si A est plus grand que B et plus petit que C et égale à D alors...

Je pensais faire :

If A>B and A<C and A=D then Edit1.text:='Ca tombe juste';

Mais ça ne marche pas.

[Yepazix]

J'ai trouvé et j'ai honte y manque les ()

[Dr.Who]

oui n'oublie jamais les parentheses. par soucis de ne pas avoir d'erreur, même dans les langages "qui font le tris" comme PHP ou JavaScript.

on pourrai également l'ecrire :

Code :

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

1
2
3
4
5
 
if a > b then
  if a < c then
    if a = d then
      result := 'OK';

contrairement à ce qu'on pourrait croire cette ecriture n'est pas moins performante et peux même permettre un meilleur control sur la probabilité qu'une expression soit fausse (donc à tester en premier).

exemple:
A est > B dans 90% des cas
A est < C dans 75% des cas
A est = D dans 15% des cas

A = D est donc l'expression la plus souvent fausse (85%)
on ecrira donc :

Code :

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

1
2
3
4
5
 
if A = D then // 85% fail test
  if A < C then // 25% fail test
    if A > B then // 15% fail test
      result := 'OK';

avec ça on gagne quelques demi-cycles processeurs, à garder en tête pour les conditions appelées de façon massive (traitement par lots/flux)
ça c'est valable pour les AND, les OR n'etant pas "compactable"

[Nono40]

Pas si sur, Delphi réalise par défaut l'optimisation des expression booléennes

Ainsi :

Code :

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

1
2
If A And B And C
  Then ...

Si A vaut false, B et C ne seront pas du tout évalués. L'évaluation va de gauche à droite. Autrement dis dans ton exemple avec le probalilités on peut écrire que :

Code :

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

if (A = D ) And ( A < C ) And ( A > B ) then

Sera plus rapide en moyenne que :

Code :

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

if ( A > B ) And ( A < C ) And (A = D ) then

Delphi faut aussi le tri sur le OR :

Code :

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

1
2
If A Or B Or C
  Then ...

Si A est vrai, B et C ne seront pas évalués. Ainsi l'optimisation est faite alors qu'a l'écrire à la main ce serait plus chiant :

Code :

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

1
2
3
If A Then DoTruc
Else If B Then DoTruc
Else If C Then DoTruc