Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Diviseur et simplification de racine 114 octets les 2 progs!
Gorman 14 le 08/12/2011 à 18:43
Voici 2 programmes de maths ulta simples que j'ai fait et qui peuvent être utiles !
Programme diviseur : ce programme vous donne tous les diviseurs du nombre choisi mais + le nombre est grand et + la recherche est longue...
Code
Input "NOMBRE ?",A
EffEcr
For(B,1,A
If partDec(A/B)=0
Disp B
End
Programme racine : ce programme donne tous les diviseurs du nombre choisi qui ont 1 carré parfait. Vous pourrez choisir comment simplifier 1 racine sans vous poser trop de questions
Code
Input "NOMBRE ?",A
EffEcr
For(B,1,A
If (partDec(A/B)=0) et partDec([racine carrée de]B))=0
Disp B
End
linkakro le 08/12/2011 à 19:49
C'est bien pour commencer à programmer.
Et oui les cribles sont de plus en plus long.
Il n'y a pas beaucoup de moyens pour les racourcir ou les accélérer.
Tu peux t'inspirer des progs déjà existants si tu souhaîtes améliorer encore tes programmes.
Les parenthèses autour de partDec(A/B)=0 sont innutiles.
tapenad le 08/12/2011 à 20:19
sympa le prgm, les voici en 1 seul
Code
:Input "NOMBRE?",A
:EffEcr
:For(B,1,A
:If partDec(A/B)=0
:Disp B
:If partDec(A/B)=0 et partDec([racine carrée de]B))=0
:Disp B
:pause
:End
snap le 08/12/2011 à 20:52
On peut encore raccourcir de quelques octets
Code
:Input "NOMBRE?",A
:EffEcr
:For(B,1,A
:If non(partDec(A/B
:Disp B
:If non(partDec(A/B)) et non(partDec([racine carrée de]B
:Pause B
:End
Gorman 14 le 09/12/2011 à 17:04
Je sais déja programmer, je voulais juste faire le + court possiblesandro le 09/12/2011 à 22:29
Et même encore plus:
Code
:Input "NOMBRE?",A
:EffEcr
:For(B,1,A
:If non(partDec(B[^-1]A
:Disp B
:If non(partDec(B[^-1]A) ou partDec([racine carrée de]B
:Pause B
:End
Gorman 14 le 10/12/2011 à 15:21
Bravo ! merci tout le monde ! Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
