Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe

Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
Mar 10 Oct 2017 - 19:42 par Wistaro

» Lancement du TI-Concours 2017 !
Sam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Ven 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Ven 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Dim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Mer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Jeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Jeu 15 Déc 2016 - 10:24 par Ti64CLi++

» flappy bird
Jeu 15 Déc 2016 - 10:23 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois


Trouver tous les diviseurs d'un nombre entier [spé maths - TS]

Voir le sujet précédent Voir le sujet suivant Aller en bas

Trouver tous les diviseurs d'un nombre entier [spé maths - TS]

Message par m@thieu41 le Mer 25 Sep 2013 - 21:03

Bonjour tout le monde! Smile 

Aujourd'hui je vais vous présenter un programme que j'ai fait et qui peut vous aider en spé maths si vous êtes en terminale S, lorsqu'on fait de l'arithmétique notamment (mais si vous l'utilisez pour autre chose tant mieux Wink), j'ai nommé: "DIV" (ok ce n'est pas très très original, vous pouvez le nommer comme vous voulez Razz ).

Il vous donne tous les diviseurs (positifs et négatifs) d'un nombre entier non nul (Nb: si le diviseur correspond à la racine carrée de |N| il vous le donne en double, puisqu'il forme un couple de diviseurs avec lui même).

Le tout en seulement 113o 82o !!! (et vous pouvez supprimer certaines parties notamment pour la saisie ~sécurisée, qui prend 11o). pirat 

Voici le code (Après les // ce sont des commentaires explicatifs):
Code:
Repeat Nnot(fPart(N //On attend un entier non nul //fPart = PartDéc sur une fr // not() = non()
Prompt N
End

{1->L1
For(A,2,sqrt(abs(N //sqrt = fonction racine carrée

//Si A est un diviseur on le sauve.
If not(fPart(N/A
A->L1(1+dim(L1

End

//On retrouve les diviseurs associés à ceux qui ont été trouvés (si 2 divise 36, 36/2=18 divise aussi 36), puisqu'on s'est arrêté à la racine de N
augment(L1,N/L1 //augment() = chaîne()

//On gère les opposés
augment(-Rép,Rép->L1

SortA(L1 //On trie les résultats //sortA() = triCroi()
L1 //On les affiche (en fin de prgm ça permet un défilement, donc si vous voulez mettez Pause mais pas de Disp)
Voici un lien de téléchargement:
mediafire.com ?a6fq7cc7e7lv11r

Ancien code moins optimisé (EDIT du 26/09/13):

Code:
Repeat Nnot(fPart(N //On attend un entier non nul
Prompt N
End
abs(N->N

DelVar IDelVar L1For(A,1,sqrt(N //sqrt = fonction racine carrée

//Si A est un diviseur on le sauve, avec le diviseur qui lui est associé (par exemple si N = 8 et A = 2, on sauve 2 et 8/2 = 4, pour plus d'efficacité).
If not(fPart(N/A
Then
I+2->I
A->L1(I-1
N/A->L1(I
End

End

//Le bloc qui suit permet de donner les opposés des diviseurs
2I->dim(L1
-L1->L2
SortD(L2
L1+L2->L1


SortA(L1 //On trie les résultats
L1 //On affiche les résultats (en fin de prgm ça permet un défilement, donc si vous voulez mettez Pause mais pas de Disp)
Voici un lien de téléchargement:
mediafire.com ?cv7z03nexgh03t5

Et un screenshot:


Voilà, en espérant que ça sera utile à quelques uns! Very Happy


Dernière édition par m@thieu41 le Jeu 26 Sep 2013 - 18:22, édité 7 fois

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Trouver tous les diviseurs d'un nombre entier [spé maths - TS]

Message par ashtrail le Mer 25 Sep 2013 - 22:34

En voyant la fonction de ton programme j'ai essayé d'en faire un plus léger (sans regarder la tiens) mais j'ai échoué... Bon boulot! (remarque je m'en tape un peu moi je suis en spé info)

__________________________________________________________________________
Mes programmes :
-JEUX : Le TAPTAUPE, Le MINSTEP, Un Plus-Moins
-MATHS : Regroupement n°1, Regroupement n°2, tout sur les pourcentages
-AUTRE : Le programme qui jauge les prénoms
avatar
ashtrail
Connaisseur
Connaisseur

Messages : 248
Points Concours : 21
Productivité : 21
Date d'inscription : 18/06/2013
Localisation : Paris
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://ti-freeworld.fr1.co/

Revenir en haut Aller en bas

Re: Trouver tous les diviseurs d'un nombre entier [spé maths - TS]

Message par m@thieu41 le Jeu 26 Sep 2013 - 17:06

Merci ! Smile 

Ta remarque m'a donné envie d'essayer de l'optimiser encore plus, j'édite avec encore plus d'optimisations, pour un total de 82o (saisie "sécurisée" d'un nombre entier comprise) Wink

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Trouver tous les diviseurs d'un nombre entier [spé maths - TS]

Message par ashtrail le Jeu 26 Sep 2013 - 20:07

Quatre... Quatre-vingt... QUATRE-VINGT DEUX OCTETS!!!!!!!





(pour la peine je plussoie)

__________________________________________________________________________
Mes programmes :
-JEUX : Le TAPTAUPE, Le MINSTEP, Un Plus-Moins
-MATHS : Regroupement n°1, Regroupement n°2, tout sur les pourcentages
-AUTRE : Le programme qui jauge les prénoms
avatar
ashtrail
Connaisseur
Connaisseur

Messages : 248
Points Concours : 21
Productivité : 21
Date d'inscription : 18/06/2013
Localisation : Paris
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://ti-freeworld.fr1.co/

Revenir en haut Aller en bas

Re: Trouver tous les diviseurs d'un nombre entier [spé maths - TS]

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum