fortran 90 Fermé

Question

bonjour, je suis debutant en programation, et notament en fortran, et donc pour le moment j'en suis a l'apprentissage basic du fortran entre je n'arrive pas a faire un programme aui resolve un polynome de 2 degre;

program test

implicit none

real :: a,b,c,X1,X2,X3
print*,'a vaut'
read*,a
print*,'b vaut'
read*,b
print*,'c vaut'
read*,c
F = b**2 -(4*a*c)
print*,F
A: if (F>0) then X1 = (-b-sqrt(F))/(2*a),and X2=(-b+sqrt(F))/(2*a)
else if (F=0) then X3 = -b/(2*a)
else print*,'pas de solution'

end

merci pour votre aide.
Yann

grosbenji · Answer

Ce n'est pas trés compliqué tu vas voire:

program test

implicit none

real :: a,b,c,X1,X2,X3, F !t'as oublié de déclaré f
print*,'a vaut'
read*,a
print*,'b vaut'
read*,b
print*,'c vaut'
read*,c
F = b**2 -(4*a*c)
print*,F
if (F>0) then !pas la peine de mettre A:
X1 = (-b-sqrt(F))/(2*a)
X2=(-b+sqrt(F))/(2*a)
print*,'Deux solutions: X1 et X2: '
print*,X1 !affichage des résultats
print*,X2
else
if (F=0) then
X3 = -b/(2*a)
print*,'Une solution double:'
print*,X3
else
print*,'pas de solution'
end if !fin du deuxième if
end if !fin du premier if
end program test ! fin du programme

Voilà ça devrai marché.

Fortran 90

1 réponse

Discussions similaires