Discussion :

[ZosoZozo]

Bonjour,

Je débute en programmation et j'obtiens l'erreur "cannot assign to a named constant" à la ligne 8, suivis de "unexpected junk after ELSE statement" pour les lignes 11 et 14.
Je ne comprends pas bien ces erreurs, si quelqu'un pouvais m'expliquer, d'avance 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
12
13
14
15
16
17
18
program ResolutionEquationDegree2
 
implicit none
real :: a, b, c, raci1, raci2, raci0, delta
read*, a, b, c
delta = b**2-4*a*c
print*,delta
   if (delta) > 0 then
   raci1=(-b-sqrt(delta))/2*a; raci2=(-b+sqrt(delta))/2*a
   print*,raci1, raci2
   elseif (delta) = 0 then
   raci0 = -b/2*a
   print*,raci0
   else (delta) < 0 then
   print*,"L'equation n'a pas de solution reel"
   endif
 
end program ResolutionEquationDegree2

Cordialement

[Ehouarn]

Bonjour,

C'est une erreur de syntaxe de ta part sur la façon d'écrire la condition: les parenthèses doivent englober le test que tu souhaites faire.
Par exemple:

Code :

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

1
2
 
if (delta > 0) then

Par ailleurs, attention au test d'égalité, c'est "==" pas seulement "=" qui est l'opérateur d'affectation.

Bonne continuation

[ZosoZozo]

Bonjour,

Merci à toi, mon programme fonctionne mais j'ai du changer le dernier "else" par un "elseif" sinon j'obtenais une erreur.

Cordialement

[Le_Boucher]

Salut à toi,

la syntaxe de ton if else est pas bonne, tu devrais le rédiger comme ça :

Code :

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

1
2
3
4
5
6
7
8
if (condition1 vrai) then
   action 1
elseif (condition2 vrai) then
   action 2
...
else
   action restante
endif

et rien devant un else tout seul!!

bonne continuation!

[ZosoZozo]

Bonjour,

Effectivement je m'en suis rendu compte entre temps pour la syntaxe de else et de elseif, merci à toi

Voici le code si ça peut intéresser :

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
20
21
22
23
24
program ResolutionEquationDegree2
 
implicit none
real :: a, b, c, raci1, raci2, raci0, delta, comp1, comp2
print*,"Resolveur d'equation du 2nd degree :"
print*,"Donnez les valeurs de a, b et c"
print*, "a ="; read*, a
print*, "b ="; read*, b
print*, "c ="; read*, c
delta = b**2-4*a*c
print*,"delta =", delta
   if (delta > 0) then
   raci1=(-b-sqrt(delta))/2*a; raci2=(-b+sqrt(delta))/2*a
   print*,"solution x1 =", raci1, "solution x2 =", raci2
   elseif (delta == 0) then
   raci0 = -b/2*a
   print*,"solution x0 =", raci0
   else
   print*,"L'equation n'a pas de solutions reeles"
   comp1=(-b-sqrt(-delta))/2*a; comp2=(-b+sqrt(-delta))/2*a
   print*,"solution complexe x1 =", comp1,"solution complexe x2 =", comp2
   endif
 
end program ResolutionEquationDegree2

[vmagnin]

Code :

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

1
2
3
4
5
6
7
8
program ResolutionEquationDegree2
...
   raci1=(-b-sqrt(delta))/2*a; raci2=(-b+sqrt(delta))/2*a
...
   raci0 = -b/2*a
...
   comp1=(-b-sqrt(-delta))/2*a; comp2=(-b+sqrt(-delta))/2*a
...

Bonjour,

attention à la priorité des opérateurs !

Il faut écrire

Code :

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

/(2*a)

et non pas

Code :

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

/2*a

Ca ne donne pas du tout la même chose...