Planète Casio
Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.
Menu
Calculatrices
Graph 35 à 100
Graph 25+Pro/25+E/25+E II
Graph 35+USB/75(+E)/85/95 SD
Graph 100(+)
Classpad 300/330(+)
fx-CG 10/20 (Prizm)
Classpad 400(+E)
Graph 90+E
fx-92+ SC
Liens
¤ Transférer un programme sur
sa calculatrice
¤ Vous cherchez une fonction ?
Utilitaires >> Graph 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 : 6315
Score au progrank : 33
Pas encore de note !
Vous devez être connecté(e) pour noter (inscription).
884 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: 1243 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: 1243 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 ligneAncien administrateurPoints: 1960 Défis: 11 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: 2271 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: 2271 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: 16102 Défis: 102 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 v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 102 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