Programation sur casio classpad300

(Cliquez-ici pour accéder à la version originale de cette discussion avec couleurs et images)





Posted by: SergeM

Voila je devais programmer la disivion euclidienne dans Z sur ma casio classpad300.

Dans un premier temps j'oublie que le dénominateur (a est le numerateur b le dénominteur) peut être négatif et j'écrit:

Citation:
local c
0=>c
While a>b
a-b=>a
c+1=>c
WhileEnd
While a<0
a+b=>a
c-1=>c
WhileEnd
Print c
Print a


Jusque la tout va bien mon programme lui convient et effectue la division euclidienne dès lors que b>0.
Puis je me rend compte que b peut aussi être négatif alors je me dis que je vais rajouter des if.

Citation:
local c
0=>c
If b>0
While a>b
a-b=>a
c+1=>c
WhileEnd
While a<0
a+b=>a
c-1=>c
WhileEnd
IfEnd
If b<0
While a>-b
a+b=>a
c-1=>c
WhileEnd
While a<0
a-b=>a
c+1=>c
WhileEnd
Print c
Print a


Mais là, la calculatrice n'est plus contente et me dis que ma syntaxe est incorrecte.
Donc si quelqu'un de plus experimenté en programation que moi était capable de reperer le problème ce serrait sympas.


Posted by: mathelot

Bjr,
il semble que la syntaxe soit:
If
Then
[Else]
Endif

regarde la doc.


Posted by: SergeM

Ok en fait il s'agissait juste de marquer Then après la condition du if et ça tourne tout seul (je debute tout juste en programmation).
J'ai poser un deuxième if plutôt qu'en else parce que je ne voulais pas que le programme effectue les divisions par 0 et plante tout seul.

Merci


Posted by: SergeM

Toujours avec cette même machine j'ai un autre petit souci.
Je veut créer un programme qui me donne tout les nombres premier inferieurs à n.
Sachant que j'ai déjà crée le programme nbdiv qui nous renvois le nombre de diviseurs d'un entier (autre que 1 et lui même).

Je tape:

Citation:
Local a
2=>a
While a<n
If nbdiv (a)=0
Then
Print a
IfEnd
WhileEnd


La machine accepte le programme, pas d'erreur de syntaxe cette fois. Mais lorsque je lui demande d'appliquer ce programme à un entier il me dis que c'est un mauvais type d'argument.

Quelqu'un voit-il le problème (je precise que je n'est rien trouvé la dessus dans la notice d'initiation) Merci.










-