| Trouver un programme en language Ti82 stats |
| Auteur |
Message |
ln38
Invité
|
Posté le : Dim 18 Sep 2011, 12:37
|
|
 |
Bonjour, je cherche a faire un programme pour Ti82stats qui pourrais me trouver pour 3 entiers consécutif le produit équivaut à la somme.
(exemple: 1+2+3=1*2*3=6)
merci!
|
| |
  |
| |
sandro
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Dim 18 Sep 2011, 13:15
|
|
|
Si tu veut dire de trouver à partir de la somme n+(n+1)+(n+2), une décomposition en facteurs premiers, alors tu peut faire :
| Code | Prompt N
3N+3 -> N
{1 -> L1
1 -> C
While C[inférieur ou égal]racine(N
C+1 -> C
While not(fPart(N/C
N/C -> N
C -> L1(1+dim(L1
End
End
N -> L1(1+dim(L1
Pause L1 |
Si c'est autrechose que tu veut, merci d'expliquer de manière plus précises (si c'est trouver n pour que n+(n+1)+(n+2)=n*(n+1)*(n+2), alors il me faudrait : soit la formule mathématique, soit un interval de test).
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
 |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 18 Sep 2011, 13:39
|
|
|
Il s'agit d'une approche similaire aux nombres parfaits.
Il ne s'agit pas de décomposer un nombre, mais cela peut aider.
Soit nous utiliserons des formules, soit nous appliquerons un crible.
Je checherai d'abord une formule.
----------------------
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 |
| |
|
| |
ln38
Invité
|
Posté le : Dim 18 Sep 2011, 14:09
|
|
|
Oui, c'est trouver n pour que n+(n+1)+(n+2)=n*(n+1)*(n+2)
les solutions sont x=-3 x=1 x=-1
CA revient à la formule: (x+1)*(x-1)*(x+3)=0
merci
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 18 Sep 2011, 14:24
|
|
|
Juste pour info :
x+(x+1)+(x+2) = 3*x+3
x*(x+1)*(x+2) = x*(x^2+3x+2)
x+(x+1)+(x+2)=x*(x+1)*(x+2) <=> 3x+3=x^3+3x^2+2x <=> 0=x^3+3x^2-x-3
Ce qui prouve qu'il y a tois solutions pour x.
Seulement, je ne sais pas résoudre les polynomes de degrés 3 sans calculatrice graphique.
EDIT mais ln38 a déjà trouvé, par une méthode ou une autre.
----------------------
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 |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
sandro
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Dim 18 Sep 2011, 18:39
|
|
|
Les trois solutions sont -3;-1;1
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
