Bienvouloir m'aider a corrigé ce programme qui devrait calculer la racine carré d'un nombre
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 program racine_caree implicit none real :: valeur, racine print*, "donner un nombre" read*, valeur if (valeur >=0) then racine = sqrt (valeur) print*, "le nombre", valeur, "a pour racine", racine else print*, "le nombre", valeur, "ne possede pas de racine" end if end program racine_caree
Partager