Seuls les membres ayant 30 points peuvent parler sur le chat.
Gestion du compte
Calculatrices
Graph 35 à 100 (CFX)
Graph 25/25+ (Pro) (fx-7400)
Graph 35+USB/75/85/95 (SD)
Graph 100/100+ (AFX)
ClassPad 300/330
Fx-CG 10/20
Fx-CP 400
Graph 90+E

Retour aux miniatures
Tri avancé
Liste des programmes
Nom Date
JDENES
MentalCalc
Pi - Brent
Formel
Ppcm et pgcd
PGCD
Multiplieurs
Hasard
Anagramme Gener
Shoutbox
Hyperfocale
Music Writer
Doc-secret
Reduc distances
Minecraft stronghold
Digicode
Code secret
Pack Maths
CasioCom
Formule de Luhn
Pages: << 1,2,3,4,5,6,7,8,9,10,11,12 >>

¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Utilitaires >> Graphs 35 à 100 >> Divers >> Diviseur
Diviseur
Version : 1 Taille : 148 octets Ajouté le : 2017-05-10 20:01 Modifié le : 2019-02-18 18:37
Auteur et posteur :
Evo-manbaHors ligneMembrePoints: 110 Défis: 0 Message
Planète Casio - Programme Casio - Diviseur - evo-manba - Calculatrices
Nombre de visites sur cette page : 3249
Score au progrank : 28
Pas encore de note !

Vous devez être inscrit(e) et avoir 20 points ou plus pour noter.
390 téléchargements | Soumettre un test

Ce programme est sous licence Creative Commons 2.0 BY


Description :

Un programme qui ne prend que très peu d'espace : 148 octets !
Il vous donne tous les diviseurs d'un nombre donné.
Il vous précise si c'est un nombre premier ou son nombre de diviseurs !


Commentaires :

Pages: 1, 2 | Suivante

NemhardyHors ligneGrand maître des Traits d'EspritPoints: 1235 Défis: 54 Message
Posté le 10-05-2017 à 20:12 | #
Je tiens à signaler que c'est pas vraiment peu d'espace 148Ko sur Calto.
Evo-manbaHors ligneMembrePoints: 110 Défis: 0 Message
Posté le 10-05-2017 à 20:14 | #
Avec 50000 Ko de libre c'est quand même sympa
NemhardyHors ligneGrand maître des Traits d'EspritPoints: 1235 Défis: 54 Message
Posté le 10-05-2017 à 20:15 | #
En pratique c'est plutôt de l'ordre de 50Ko de libre.
C'est juste que la taille des programmes est affichée en octets hein.
Evo-manbaHors ligneMembrePoints: 110 Défis: 0 Message
Posté le 10-05-2017 à 20:17 | #
Ha ha désole de mon lapsus xD 148 octets
Cakeisalie5Hors ligneMembre de CreativeCalcPoints: 1746 Défis: 10 Message
Posté le 10-05-2017 à 23:14 | #
Si seulement on avait plus de 49 MiB de stockage dans la mémoire principale <3
Evo-manbaHors ligneMembrePoints: 110 Défis: 0 Message
Posté le 11-05-2017 à 18:24 | #
Oui c'est sur que 50 ko c est un peu juste
FabcvlrHors ligneMembrePoints: 2106 Défis: 41 Message
Posté le 18-05-2017 à 10:59 | #
Je pense que tu peux encore réduire, en effet 1 n'est pas vraiment un diviseur tout comme le nombre lui-même (ceci n'a rien de mathématique, juste une réflexion personnelle )
Evo-manbaHors ligneMembrePoints: 110 Défis: 0 Message
Posté le 18-05-2017 à 17:23 | #
En effet mais le programme n'en serais que moin compact car il faudrait utiliser une condition supplémentaires
FabcvlrHors ligneMembrePoints: 2106 Défis: 41 Message
Posté le 19-05-2017 à 09:32 | #
tu peux remplacer A+1->A par Isz A pour commencer
TotoyoHors ligneMembre d'honneurPoints: 15918 Défis: 101 Message
Posté le 19-05-2017 à 09:49 | #
Comme le dit Fab, tu peux remplacer A+1->A par Isz A. À condition que A n'obtiennent jamais pour valeur 0 car ça saute la ligne suivante (Une petite fonctionnalité cachée de Isz et Dsz). Pour comprendre :
-3->A
Do
Isz A
A◢
LpWhile A<=3

Tu devrais voir ceci, donc pas de 0 :
-2
-1
1
2
3


Deuxième optimisation possible. Quand l'instruction contenue dans un If n'occupe qu'une ligne, tu peux la remplacer par ⇒. Ainsi :
If <conditions>
Then <code>
IfEnd

Devient
<conditions>⇒<code>


Tu peux aussi gagner un octet de cette façon. Et même deux en supprimant la parenthèse inutile en fin de ligne :
MOD(X,I)=0

En :
Not MOD(X,I


Voilà le résultat final. J'ai du gagné une petite huitaine d'octets x)
"SAISIR X"
0->I
?->X
0->A
While I<X
Isz I
If Not MOD(X,I
Then I◢
Isz A
IfEnd
WhileEnd
"DIVISEURS DE X"◢
A◢
A=2=>"NOMBRE PREMIER"◢
ClrText

Pages: 1, 2 | Suivante

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2019 | Il y a 26 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd