Fortran 90
Yann
-
grosbenji -
grosbenji -
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
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
1 réponse
-
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é.
