Manuels | TOP 20 | Labels PC | Conversion | Graphisme | Organiseurs | Divers | Add-ins | MLC | LuaFX |
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

Retour aux miniatures
Tri avancé
Liste des programmes
Nom Date
Date
Diviseur
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
Pages: 1,2,3,4,5,6,7,8 >>

¤ 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 : 2017-05-10 20:25
Auteur et posteur :
Evo-manba
Hors ligne
Membre
Niveau: Intermédiaire
Points: 104
Défis: 0
Message
Planète Casio - Programme Casio - Diviseur - evo-manba - Calculatrices
Nombre de visites sur cette page : 682
Score au progrank : 18
Pas encore de note !

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

Ce programme est dans le domaine public.


Description :

Un programme qui ne prend que très peu d'espace : eh oui, que 148 octets !
Pour une fonction très utile le programme vous donne tous les diviseurs d'un nombre donné !
Il vous précise si c'est un nombre premier et combien de diviseurs il a !
Je vous laisse vous en servir


Commentaires :

Pages: 1, 2 | Suivante

Nemhardy
Hors ligne
Grand maître des Traits d'Esprit
Niveau: Confirmé
Points: 1082
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-manba
Hors ligne
Membre
Niveau: Intermédiaire
Points: 104
Défis: 0
Message
Posté le 10-05-2017 à 20:14
Avec 50000 Ko de libre c'est quand même sympa
Nemhardy
Hors ligne
Grand maître des Traits d'Esprit
Niveau: Confirmé
Points: 1082
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-manba
Hors ligne
Membre
Niveau: Intermédiaire
Points: 104
Défis: 0
Message
Posté le 10-05-2017 à 20:17
Ha ha désole de mon lapsus xD 148 octets
Cakeisalie5
En ligne
Administrateur
Niveau: Confirmé
Points: 1424
Défis: 8
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-manba
Hors ligne
Membre
Niveau: Intermédiaire
Points: 104
Défis: 0
Message
Posté le 11-05-2017 à 18:24
Oui c'est sur que 50 ko c est un peu juste
Fabcvlr
Hors ligne
Membre
Niveau: Confirmé
Points: 1728
Défis: 40
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-manba
Hors ligne
Membre
Niveau: Intermédiaire
Points: 104
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
Fabcvlr
Hors ligne
Membre
Niveau: Confirmé
Points: 1728
Défis: 40
Message
Posté le 19-05-2017 à 09:32
tu peux remplacer A+1->A par Isz A pour commencer
Totoyo
Hors ligne
Membre d'honneur
Niveau: Vétéran
Points: 15762
Défis: 94
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

Publicité et partenaires
Casio Education
Casio éducation

TI-Planet
Casiopeia
Casiopeia
CasioFan, la communauté ClassPad
CasioFan
CodeWalrus
CodeWalrus

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2015 | Il y a 33 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements
Rugby Manager | Jeu de basket | Jeu de handball | Jeu de tennis | Nova Raider | Réparation téléphone | Soccer Rush | Tasty Tale

Planète Casio est un site communautaire indépendant, géré bénévolement et n'est donc pas affilié à Casio | Toute reproduction de Planète Casio, même partielle, est interdite
Les fichiers, programmes et autres publications présents sur Planète Casio restent la propriété de leurs auteurs respectifs et peuvent être soumis à des licences ou des copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd