[Fortran 77] Boucle à condition

Version imprimable

08/09/2008, 04h49
Penthee

[Fortran 77] Boucle à condition
Bonjour,

Je viens tout juste de commencer à coder en Fortran 77 (un pari stupide...). Bref, je voudrais programmer un morpion. A priori, pas trop de problèmes, sauf pour mes boucles IF.
J'en ai plusieurs d'imbriquées, du style :
Code:

1 2 3 IF ((A.EQ.'X').AND.(B.EQ.'X').AND.(C).NE.'O')) THEN T(C)='X' ELSE ...
Et là, ça plante à l'exécution. Le plus frustrant, c'est que, quand je ne mets que deux conditions dans le IF (avec donc un seul .AND.), ça fonctionne très bien. J'ai essayé de chercher dans le tuto que j'ai, mais il n'y est absolument pas dit que l'on ne peut pas mettre plus de deux conditions dans le IF. Est-ce le cas ?

PS: Desolée pour le manque d'accent, mais je suis sur un portable qwerty.
08/09/2008, 08h24
Ehouarn

Bonjour,

On peut cumuler plusieurs clauses dans un IF; si ton code plante c'est vraisemblablement qu'il y a une erreur par ailleurs; par exemple une mauvaise syntaxe, une variable non/mal initialisée ou d'un type inapproprié, ...

Comme tu débutes, je te conseille fortement de compiler avec toutes les options de debogage possibles (voir la doc de ton compilateur) pour débusquer les erreurs les plus flagrantes.

Bonne continuation.
08/09/2008, 08h38
afrancisco

salut,

a priori C est un caractère (pouvant prendre les valeurs 'X' ou 'O') donc tu ne peux pas l'utiliser comme indice de tableau.
Il vaudrait mieux définir X et O comme des integer parameter valant 1 et 2 (par ex), et donc C comme variable integer.

ah les morpions ... attachantes, ces petites bêtes !
08/09/2008, 08h47
Penthee

En vrai, mes variables sont dans un tableau, j'ai donc T(1,1), T(1,2), etc. J'avais juste mis les lettres en recopiant le code vite fait.

Je regarderai s'il y a une erreur par ailleurs. Merci en tout cas.

Et oui, ce sont de charmantes petites bêtes, très attachantes ! :-)

----

Bon, j'ai craqué, j'ai regardé du bureau... En fait, j'avais un test de 2 égalités et une différence dans mon if. Il a suffi que je remplace la .NE. par une .EQ. et hop, plus de problème. Je suis contente que ça fonctionne, mais je n'ai vraiment aucune idee du pourquoi... Et j'ai eu beau regarder, je n'ai pas trouvé d'erreur par ailleurs.