Page 1 of 2

Problème algorithme

Unread postPosted: 26 Jan 2014, 18:40
by Melp
Bonsoir,
Je suis désolée de vous déranger en dimanche soir mais j'ai un problème avec un algorithme que j'ai essayé de rentrer, en effet pouvez vous m'indiquer le problème, il ne m'affiche aucune valeurs en sortie ?

Code: Select all
Define dm3()=
Prgm
:Local n,i,y
:n:=0
:y:=0
:i:=−40
:For i,−40,40
:y:=√(1625-i^(2))
:If floor(y)=y Then
:  Disp "(",i,";",y,")"
:  n:=n+1
:EndIf
:EndFor
:Disp "Nombre de points entiers de Cf",n
:EndPrgm


Merci d'avance et encore désolée !

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 18:41
by Levak
As-tu pensé à faire Ctrl+B pour enregistrer ?

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 18:42
by Melp
Oui, j'y avais pensé :)

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 18:43
by NspireCas
Ne précise pas i:=-40 aussi, la boucle for s'en charge ;)

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 18:47
by davidElmaleh
C'est bizarre, j'essaye ton programme sur ma Nspire, et ca marche convenablement.
Vérifie bien la syntaxe
sinon, mets "for i,0,80" et dans la boucle for tu remplace sqrt(1625-(i)^2) par sqrt(1625-(i-40)^2)

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 18:52
by Melp
J'ai enlevé le "i:=-40" et j'ai aussi modifié "For i,0,80".. Et j'ai toujours le même problème..

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 18:53
by Melp
Merci en tous cas pour vos réponses aussi rapides !

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 18:54
by davidElmaleh
quel est le message d'erreur?

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 18:58
by Melp
Il n'y a aucun message d'erreur, il y a juste ecrit "Terminé. "

Re: Problème algorithme

Unread postPosted: 26 Jan 2014, 19:01
by davidElmaleh
vérifie bien le ctrl+b
en haut du programme, il doit etre écris "dm3" enregistrement effectué
s'il y a écris *dm3 c'est que tu n'as pas enregistré