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
Equachim
Carton de loto
.INPUT
Periodik
He Joe
Panthère Rose
Pupitre
Premier
Casio SHELL
Calctc
Meteo
Opcodes
Math bts cprp
Polynômes
Date
Diviseur
JDENES
MentalCalc
Pi - Brent
Formel
Pages: 1,2,3,4,5,6,7,8,9,10,11 >>

¤ 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 : 2924
Score au progrank : 27
Pas encore de note !

Vous devez être inscrit(e) et avoir 20 points ou plus pour noter.
361 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: 1730 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: 2031 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: 2031 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: 15903 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 25 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