Diviseur et simplification de racine 114 octets les 2 progs! |
Auteur |
Message |
Gorman 14
Invité
|
Posté le : Jeu 08 Déc 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
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Jeu 08 Déc 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.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
|
|
|
tapenad
Autorisation : Membre
Nb de messages : 225
Inscrit le : Jeu 17 Nov 2011, 13:20
|
Posté le : Jeu 08 Déc 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 |
---------------------- L’erreur est humaine, mais pour provoquer une vraie catastrophe, il faut un ordinateur.
je suis premier!!!
je m'aime. |
|
|
|
snap
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Jeu 08 Déc 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 |
---------------------- Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
|
|
|
Gorman 14
Invité
|
Posté le : Ven 09 Déc 2011, 17:04
|
|
|
Je sais déja programmer, je voulais juste faire le + court possible
|
|
|
|
sandro
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Ven 09 Déc 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 |
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes |
|
|
|
Gorman 14
Invité
|
Posté le : Sam 10 Déc 2011, 15:21
|
|
|
Bravo ! merci tout le monde !
|
|
|
|