Discussion :

[mohamedAziz]

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 :



Voici mon code :

Code :

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

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 !

[mohamedAziz]

résolu merci

[DomDA91]

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 :

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

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 :

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

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;

[mohamedAziz]

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 .