Sujet Précédent Sujet Suivant

Fortran 90

Fermé
Yann - 10 févr. 2003 à 15:51
 grosbenji - 24 oct. 2003 à 20:43
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
A voir également:

1 réponse

Réponse 1 / 1
grosbenji
24 oct. 2003 à 20:43
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é.
0