Bonjour , svp j'aimerais que vous m'aidiez a trouver l'erreur qu'il y'a sur ce programme (calcul de la racine carré)
en effet quand je prend
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 program racine_carré implicit none interger :: i, nrac real :: valeur, racine nrac = 3 do i = 1, nrac 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 do print*, "travail terminer aurevoir" end program racine_carréc'est dans le dans le but que le programme puisse calculer 3 racine pour 3 nombre données.
Code : Sélectionner tout - Visualiser dans une fenêtre à part pour i allant de 1 a nrac (nombre de racine)
Partager