Discussion :

[feynman]

Bonjour,
J'ai écrit ce simple programme pour voir mieux la commande goto, mais il est plein d'erreurs. Alors pouvez-vous me le rectifier ?
Merci

Voil le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program GO TO
implicit none 
10  print*,'entrer la valeur de X'
    read* ,X
    IF(X.LT. 0) then
       print*,'INvalide'
       GO TO 10
    else
       print*,'valide'
    END IF
END

[gregory2526]

En général, mettre les messages d'erreurs permet de mieux voir le problème.
En tout cas ce que je vois c'est :

Code :

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

program GO TO

Evite de mettre des espaces, je ne suis pas sur que ça fonctionne (et évite d'utiliser des instructions fortran comme nom de programme, à mon avis ça ne fonctionne pas). Ecrit plutot

Code :

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

program ALLERVERS

Code :

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

implicit none

Cette instruction signifie que fortran ne déduit pas le type de variable en fonction de son nom. Il faut le donner explicitement . Du coup , il faur que tu ecrive REAL X ou INTEGER X.

Un conseil que je pêux te donner est de te concentrer toujours sur la première erreur détectée à la compilation. En général, la pluspart des autres erreurs sont la conséquence de la première.

[feynman]

Bonjour,
Voila ce que me donne le compilateur apres la compilation:

bbb.f:1:
program bbb
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:2:
implicit none
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:3:
real X
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:4:
10 print*,'entrer la valeur de X'
^
Caractère non-numérique à (^) dans le champ d'étiquette [info -f g77 M LEX]
bbb.f:5:
read* ,X
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:6:
IF(X.LT. 0) then
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:7:
print*,'INvalide'
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:8:
GO TO 10
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:9:
else
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:10:
print*,'valide'
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:11:
END IF
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:12:
END
^
Premier caractère invalide à (^) [info -f g77 M LEX]


je suis inquiet maintenat, je ne voit pas d erreurs dans mon code, alors est ce que l erreur est du compilateur?

[DaZumba]

Le Fortran 77 est fixed-format, c'est a dire que les instructions doivent commencer a la colonne 6 et ne pas depasser la colonne 72. Les colonnes 1 a 4 sont reservees au labels, la colonne 5 au signe de continuation de ligne. Ces archaismes sont herites des antiques punch cards.
Ton programme doit donc etre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
      program myprog
      implicit none
      real x
 
10    print*,'entrer la valeur de X'
      read *, X
      IF (X.LT. 0) then
          print *, 'INvalide'
          GOTO 10
      else
          print *, 'valide'
      END IF
      END

Le Fortran 90 a enleve ces restrictions et le code peut desormais etre en free format.

[feynman]

c est resolu, merci

[feynman]

J ai trouvé le probleme, c est la forme du program
alors pouvez vous me dire comment je doit mettre la forme?
en fortran 90 la forme n est pas importante mais en F77 elle est importante

[Sylvain Bergeron]

Les formes fixes et free-form sont bien décrites dans la plupart des manuels.

Va voir dans ftp://ftp-developpez.com/fortran/cours/normes90-95.pdf à compter de la page 24.

La plupart des compilateurs s'attendent par défaut à un code source fixe si l'extension est .f ou .for et à un code source libre si l'extension est .f90. Il est généralement possible de changer ce défaut par une switch.