Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Probleme de programation
Alahyane92i le 14/09/2011 à 14:38
Bonjour a tous j'essaye de copier un programme sur ma TI-82
Code
:ClrHome
:Input "A = ",A
:ClrHome
:If fPart A [différent de] 0 or abs A [différent de] A
:Then
:Output(3,2,"A N EST PAS UN")
:Output(5,2,"ENTIER NATUREL")
:Pause
:ClrHome
:Stop
:End
:0 -> E
:0 -> dim L5 (* pour les TI-82 STATS ":0 -> dim(L5)" *)
:iPart [Racine carré] A -> B
:For(C,1,B)
:A/C -> D
:If iPart D=D
:Then
:E+1 -> E
:E -> dim L5 (* pour les TI-82 STATS ":E -> dim(L5)" *)
:C -> L5(E)
:E+1 -> E
:E -> dim L5 (* pour les TI-82 STATS ":E -> dim(L5)" *)
:D -> L5(E)
:End
:End
:SortA(L5)
:Disp "RESULTAT :"
:Pause L5
:ClrHome
Le problème c'est que quand je l’exécute il me mette erreur j'appuie sur GOTO
ET mon probleme est a la ligne "0 -> dim L5"
Merci de me regler le probleme.
Persalteas le 14/09/2011 à 15:48
As-tu bien écrit L5 avec [2nd][5] et non pas la lettre L suivi du chiffre 5 ?
parce que normalement ça marche 0-> dim(L5)Alahyane92i le 14/09/2011 à 16:30
Enfaite le problème est réglée mais le programme ne fonctionne pas il me donne des chiffres qui ne sont pas des diviseur par exemple
Pour 57:1,2,3,4,5,6,7,8,14 et ainsi de suite mais tout sa est faut.
T'aurais pas un autres programme pour les diviseurs.
Et ma calculatrice est une TI-82 Statssandro le 14/09/2011 à 18:07
Code
:{0 -> L1
:1 -> C
:Prompt N
:For(I,2,rac(N //rac( représente le symbole racine carrée
:If non(fPart(N/I //non( est dans test/droite et fPart dans math/droite
:Then
:C+1 -> C
:I -> L1(C
:End
:N/L1 -> L2
:chaîne(L1,L2 //chaîne est dans list/droite
:chaîne(Ans,-Ans -> L1
:SortA(L1 //SortA( est dans le menu stat
:L1
Ce programme donne tout les diviseurs entiers (positifs et négatifs) dans l'ordre croissant. Possibilité de faire défiler avec les flèches gauche et droite.
Sandro
Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
