Fonction de comparaison

Salut à tous,

j'ai un petit problème ; je suis en train d'ecrire un petit jeu en TPW et j'ai ecrit cette fonction.
Il faut que la fonction retourne un True ? Je ne comprends pas le problème.
Voici une capture d'écran :

Pièce jointe 165866

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

program test;   uses wincrt;   function compare(valeur1, valeur2, valeur3 : string) : boolean; begin writeln(valeur1, valeur2, valeur3); if ((valeur1 <> '') and (valeur2 <> '')) and (valeur3 <> '') then begin if ((valeur1 = valeur2) and (valeur1 = valeur3)) and (valeur2 = valeur3) then compare := true; end else compare := false; end;   begin writeln(compare('1', '1', '0')); end.

---

merci d'avance !
:mrgreen:

résolu merci :D

Bon, le problème est résolu mais, pour les autres visiteurs de la discussion, il eût été simpa de dire comment.

En fait le résultat de la fonction est indéfini lorsque, bien que non-vides, on a une différence entre les trois paramètres.
Il faudrai ajouter une branche ELSE au second IF.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

function compare(valeur1, valeur2, valeur3 : string) : boolean; begin writeln(valeur1, valeur2, valeur3); if ((valeur1 <> '') and (valeur2 <> '')) and (valeur3 <> '') then begin if ((valeur1 = valeur2) and (valeur1 = valeur3)) and (valeur2 = valeur3) then compare := true // les 3 valeurs sont égales else // ELSE du second IF compare := false; // les valeurs (non vides) sont différentes end else // ELSE du premier IF compare := false; // ici, seulement si une ou plusieurs chaines vides end;

---

Mais pourquoi faire simple quand, avec un minimum d'effort on peut faire compliqué!
Pour les adeptes de la simplicité, ceci ferait la même chôse :

Code:

---

1 2 3 4 5

function compare(valeur1, valeur2, valeur3 : string) : boolean; begin writeln(valeur1, valeur2, valeur3); compare := (valeur1=valeur2) AND (valeur1=valeur3) AND (Valeur1<>''); end;

---

:lol:

merci c'est sympa !
la solution était tres simple c'est pour cela que je n'ai pas publier, un petite faute dans l'emplacement du block.
https://github.com/mohamed-aziz/pasc.../tictactoe.pas ligne 54
mais votre solution est cool, je n'ai pas beaucoup d'experience dans le domaine de la programmation, merci alors .
essayer s'il vous plait d’améliorer mon code je suis sure que vous aller supprimer 200 ligne de code :) .