π
<-
Chat plein-écran
[^]

Savoir si un nombre est parfait ou non (TI-36X Pro)

:32ti30xbv: :32ti30xbb: :32ti30xsmv: :32ti30xpmv: :32ti34mv: :32ticolp:

Savoir si un nombre est parfait ou non (TI-36X Pro)

Message non lude grosged » 24 Nov 2017, 18:00

Ti64Cli++ vient de me suggérer un nouveau défi : déterminer si un nombre est parfait ou non . Bonne idée !
Voici comment on pourrait aborder ça:

En définissant op=
    ans
    Σ (x(int(1-fPart(ans/x)
    x=1
On a juste à entrer un nombre et valider par [enter], puis faire [2nd] [op] ...
Après un temps de calcul plus ou moins long , nous voyons affichée la somme des diviseurs du nombre en question.
S'il cette somme vaut le double du nombre, alors nous avons affaire à un nombre parfait ;)
Avatar de l’utilisateur
grosgedVIP++
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Prochain niv.: 30.2%
 
Messages: 770
Images: 75
Inscription: 14 Sep 2011, 12:29
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile

Re: Savoir si un nombre est parfait ou non (TI-36X Pro)

Message non lude Ti64CLi++ » 24 Nov 2017, 19:39

Est-ce que cela ne serait pas possible de faire :
op=
    ans
    Σ (x(int(1-fPart(ans/x)))) / 2 - ans + 1
    x=1
Cela renverrait 1 en cas de reussite et tout autre valeur en cas de non reussite

Apres peut etre est-ce un probleme de place, je ne sais pas, je n'ai pas ma TI 36X Pro avec moi :?
Image
Avatar de l’utilisateur
Ti64CLi++Modo
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Prochain niv.: 32.3%
 
Messages: 3441
Images: 75
Inscription: 04 Juil 2014, 14:40
Localisation: Clermont-Ferrand 63
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: ENS Rennes
GitHub: Ti64CLi

Re: Savoir si un nombre est parfait ou non (TI-36X Pro)

Message non lude grosged » 24 Nov 2017, 21:31

Oui, je vois où tu veux en venir. Dans ce cas l'idéal serait d'avoir 1 pour VRAI, et 0 pour FAUX ;)
Je me souviens avoir pallié l'absence de fonctions de test (voir viewtopic.php?f=26&t=15143#p169312 )

L'équivalence de x=y ...
Code: Tout sélectionner
1-min(1;abs(x-y)*10^9)
va bien nous aider :D

Ce qui nous donne...

    op=
    .......................ans
    1-min(1,|2ans-Σ (xint(1-fPart(ans/x)))|10^9
    ........................x=1


A titre d'exemple, la TI-36X Pro mets environ 17 secondes pour vérifier le nombre "parfait" 496 (pas trop mal, non? B-) )
Dernière édition par grosged le 26 Nov 2017, 17:13, édité 1 fois.
Avatar de l’utilisateur
grosgedVIP++
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Prochain niv.: 30.2%
 
Messages: 770
Images: 75
Inscription: 14 Sep 2011, 12:29
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile

Re: Savoir si un nombre est parfait ou non (TI-36X Pro)

Message non lude Ti64CLi++ » 25 Nov 2017, 00:27

Test avec le prochain ;)
Image
Avatar de l’utilisateur
Ti64CLi++Modo
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Prochain niv.: 32.3%
 
Messages: 3441
Images: 75
Inscription: 04 Juil 2014, 14:40
Localisation: Clermont-Ferrand 63
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: ENS Rennes
GitHub: Ti64CLi


Retourner vers TI (30/34/36, Collège)

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 8 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
712 utilisateurs:
>689 invités
>18 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)