Je code un petit programme qui prend en entrée un entier k, et qui renvoie sa racine cubique.
Si elle est entière, on l'affiche, sinon on donne un encadrement entre deux entiers.
Pour vérifier qu'un nombre est entier, je vérifie si sa partie décimale vaut 0 :
- Code: Select all
Prompt K
K^(1/3)->R
If partDéc(R)=0
Then
Disp R
End
Ce tout début de programme me pose déjà problème ! Il marche avec 1 (1^3), 0 (0^3), -1 (-1^3), 8 (2^3), 27 (3^3)... et pas plus. Quand je mets 4^3=64, il ne me renvoie rien. Pareil pour 5, etc.
Donc je fais un petit test :
- Code: Select all
Prompt K
K^(1/3)->R
Disp R
Et là... Si pour -1,0,1,8,27 il m'affiche bien 0, pour 64 et 125, il m'affiche 1. Une partie décimale de 1 ?
Pouvez m'aider à résoudre ce problème ?
Merci