Discussion :

[frankcity]

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

[Marlan]

Bonjour,

Tout d'abord, je ne vois pas l'intérêt de créer un second post sur le sujet.

Ensuite, ton programme marche très bien. Il te demande :
' donner un nombre'
Tu entres alors la valeur que tu souhaites sur ton clavier et tu presses la touche Entrée (sans écrire aucun caractère surtout)

Exemple de ce qui est affiché :

donner un nombre
9
le nombre 9.000000 a pour racine 3.000000

Où j'ai entré la valeur 9 (puis appuyé sur la touche entrée) après avoir lancé l'exécution du programme.

Bonne fin de journée,

Marlan

[frankcity]

Bonsoir Marlan,
quand j'essaye de compiler ce programme il ne marche pas

[Marlan]

Bonjour,

Quelle syntaxe de compilation utilises tu ?

Quel compilateur ?

Quelle est l'erreur renvoyée ?

Peux tu copier-coller le code en question ?

A bientôt,
Marlan

[frankcity]

Bonsoir,
les erreurs affichées par le programme sont les suivants:

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
24
25
26
27
interger :: i, nrac
1
Error: Unclassifiable statement at (1)
D:\joel\racine.F90:11.28:
 
print*, "le nombre", valeur "a pour racine", racine
                            1
Error: Syntax error in PRINT statement at (1)
D:\joel\racine.F90:13.6:
 
print* "le nombre", valeur "ne possede pas de racine"
      1
Error: Expected comma in I/O list at (1)
D:\joel\racine.F90:6.4:
 
do i = 1, nrac
    1
Error: Symbol 'i' at (1) has no IMPLICIT type
D:\joel\racine.F90:5.4:
 
nrac = 3
    1
Error: Symbol 'nrac' at (1) has no IMPLICIT type
Error(E42): Last command making (build\racine.o) returned a bad status
Error(E02): Make execution terminated
 
* Complete *

[Marlan]

...

Toujours les mêmes erreurs qu'avant : tu n'as pas mis de vurgules entre les séparateurs du print.

Qui plus est, tu n'as pas déclaré certaines des variables.

Ce programme ci, cela que tu as au début de ce poste marche très bien encore une fois.

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
24
 
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

En espérant t'avoir aidé,

Marlan

[frankcity]

merci bien