| [différent de] |
| Auteur |
Message |
ecko
Invité
|
Posté le : Lun 28 Nov 2011, 21:11
|
|
 |
Bonsoir,
Voilà j'ai copier le programme des diviseurs
"
: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)" *)
 -> L5(E)
:End
:End
:SortA(L5)
:Disp "RESULTAT :"
:Pause L5
:ClrHome
"
et j'ai une erreur ligne 4 sur le "If fPart A [different de]"
je ne vois pas quoi mettre a la place du "different de" et le "=" barré me donne la même erreur. Merci pour votre aide 
|
| |
  |
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Lun 28 Nov 2011, 21:13
|
|
|
c'est bien le égal barré. par contre, il ne faut pas écrire les crochets et/ou espaces : ils ne servent que à montrer qu'il ne faut pas écrire différend de en toutes lettres mais utiliser le symbôle associé.
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
 |
|
| |
ecko
Invité
|
Posté le : Lun 28 Nov 2011, 21:24
|
|
|
Ok, je vais voir ça. Et sinon tu saurais me dire si tout les espaces sont a mettre du coup ? ou bien j'attaches tout ?
dernière chose, le "->" est bien fait avec un "-" (signe moins) + ">" (signe supérieur) ?
merci pour ta réponse rapide
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 28 Nov 2011, 21:29
|
|
|
" -> " représent "sto->" saisi avec la touche adéquate en bas à gauche du clavier TI.
Tous les autres espaces apparaissent automatiquement lors de la saisie des fonctions. (sauf ceux contenus dans les disp et output)
----------------------
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 |
| |
|
| |
ecko
Invité
|
Posté le : Lun 28 Nov 2011, 21:31
|
|
|
Humm merci (1er programme pour moi, je suis encore naif ^^ )
Des espaces en trop font planter le programme où cela n'a pas d'importance ?
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Lun 28 Nov 2011, 21:32
|
|
|
oui, il te font des erreures syntaxe
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
ecko
Invité
|
Posté le : Lun 28 Nov 2011, 23:02
|
|
|
Re ! c'est bon pour le prog' des diviseurs, il fonctionne, merci encore
cela dit j'ai encore une question ^^.
Je viens de recopier le programme PGCDPPCM :
:Lbl 0
:ClrHome
:Input "A = ",A
:Input "B = ",B
:ClrHome
:If (A [différent de] iPart (A)) OR (B [différent de] iPart (B))
:ThenICI
:Output(3,2,"CE NE SONT PAS")
:Output(5,3,"DES ENTIERS")
:Pause
:Goto 0
:End
:If (AB = 0)
:Then
:Output(3,2,"A ET B DOIVENT")
:Output(5,3,"ETRE [différent de] DE 0")
:Pause
:Goto 0
:End
:If B>A
:Then
:A -> C
:B -> A
:C -> B
:End
:A -> E
:B -> F
:If A/B [différent de] iPart (A/B)
:Then
:1 -> D
:Repeat D=0
:iPart (A/B) -> C
:A-(B*C) -> D
:B -> A
-> B
:End
:A -> B
:End
:(EF)/B -> G
:Output(1,1,"RESULTATS :")
:Output(3,1,"PGCD(A,B) =")
:Output(3,13,B)
:Output(4,1,"PPCM(A,B) =")
:Output(4,13,G)
:Output(6,1,"AVEC :")
:Output(7,1,"A =")
:Output(7,5,E)
:Output(8,1,"B =")
:Output(8,5,F)
:Pause
:ClrHome
mais une ofis mes valeurs A et B entré, je tombe sur une erreur de syntax a la ligne 7 juste aprés le "Then". Sauriez vous me dire d'où elle vient ?
j'ai relu 3fois mon code, j'ai trouvé une erreur que j'ai corrigé mais il ne fonctionne tjr pas.
Merci encore, vous êtes vraiment sympa (SLurrrrppppppp)
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mar 29 Nov 2011, 9:03
|
|
|
Tu aurais pas mis un espace, justement, après le Then ?
parce qu'une erreur syntaxe sur un Then... C'est pas tellement possible, sauf si tu as oublié le If avant...
|
| |
|
| |
ecko
Invité
|
Posté le : Mar 29 Nov 2011, 10:15
|
|
|
exact ! il y a bien un espace en trop derrière mon then, sais tu s'il me faut reécrir tout le programme où s'il y a moyen de corriger ça via un astuce ?
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mar 29 Nov 2011, 10:18
|
|
|
tu positionnes ton curseur sur l'espace, et tu appuies sur [Suppr] (ou [del] si ta TI est anglaise).
|
| |
|
| |
ecko
Invité
|
Posté le : Mar 29 Nov 2011, 10:33
|
|
|
hum dommage, le "del" fonctionne mais il a suppr l'espace et mis "Output(3,2,"CE NE SONT PAS")" sur la même ligne que le "then" xD
maudis soit la TI!!! xD
|
| |
|
| |
ecko
Invité
|
Posté le : Mar 29 Nov 2011, 10:46
|
|
|
en fait j'ai totalement supr la ligne ety le prog' fonctionne donc osef
merci pour votre aide et vos reponses
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mar 29 Nov 2011, 21:08
|
|
|
Si tu veut, tu peut mettre le curseur sur le then puis faire [2nde][suppr][entrer], ça incèrera une nouvelle ligne qui commencera par ton Then
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
