A voir également:
- Exercice corrigé fortran 90 pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Fleur d'encre 5eme corrigé exercice ✓ - Forum PDF
- Corrigé exercices scolaires sous pdf - Forum Études / Formation High-Tech
- Transmath 3eme corrigé pdf ✓ - Forum Études / Formation High-Tech
- Exercices word avec corrigés pdf - Forum Word
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é.
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é.
