| Probleme de programation |
| Auteur |
Message |
Alahyane92i
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 14 Sep 2011, 14:18
|
Posté le : Mer 14 Sep 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
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 14 Sep 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
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 14 Sep 2011, 14:18
|
Posté le : Mer 14 Sep 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 Stats
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mer 14 Sep 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
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
