droites
Auteur
Message
cappuccino
Invité
Posté le : Jeu 15 Avr 2010, 11:56
Je voudrais savoir ce qui ne va pas dans ce code... SVT
:ClrHome
:Input "XA ",A
:Input "YA ",B
:Input "XB ",C
:Input "XB ",D
:ClrHome
:Output(1,1,"RESULTAT :")
:Menu("CALCULER","AB",1,"MILIEU {AB}",2,"EQU (AB)",3,"VECT AB",4,"EQU MEDIATR",5,"VECT ORTHO",6,"ANGLES COORD",7)
:Lbl 1
:[Racine carré de]((C-A)²+(D-b)²) -> Z
:Output(3,1,"AB")
:Output(5,1,Z)
:Goto 8
:Lbl 2
A+C)/2 -> X
B+D)/2 -> Y
:Output(3,1,"I MILLIEU {AB}")
:Output(5,1,"I :")
:Output(6,1,X)
:Output(7,1,Y)
:Goto 8
:Lbl 3
D-B)/(C-A) -> E
:B-AE -> F
:Output(3,1,"EQUA (AB)")
:Output(5,1,"Y=AX+B)
:Output(6,1,"A =")
:Output(6,5,E)
:Output(7,1,"B =")
:Output(7,5,F)
:Goto 8
:Lbl 4
C-A) -> X
D-B) -> Y
:Output(3,1,"VECTEUR AB")
:Output(5,1,"AB :")
:Output(6,1,X)
:Output(7,1,Y)
:Goto 8
:Lbl 5
: ((C-A)/(D-B)) -> E (* Attention, est le signe : consulté le site pour en savoir plus à la page programme *)
(A+C)/2)((C-A)/(D-B))+((B+D)/2) -> F
:Output(3,1,"EQUA MEDIATR")
:Output(5,1,"Y=AX+B)
:Output(6,1,"A =")
:Output(6,5,E)
:Output(7,1,"B =")
:Output(7,5,F)
:Goto 8
:Lbl 6
:B-D -> X
:C-A -> Y
:Output(3,1,"VECT ORTHO (AB)")
:Output(5,1,"CD :")
:Ouptut(6,1,X)
:Output(7,1,Y)
:Goto 8
:Lbl 7
:Degree
:abs ([tan-1]((D-B)/(C-A))) -> E
:abs (90-E) -> F
:Output(3,1,"EN °")
:Output(5,1,"((OI),(AB))")
:Output(6,1,E)
:Output(7,1,"((OJ),(AB))")
:Output(8,1,F)
:Lbl 8
:Pause
:ClrHome
Il mes disent qu'il y a un problème avec la 9 ème ligne. (pour le 7)..
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 15 Avr 2010, 12:32
Penses à mettre une balise code autour de ton programme afin qu'il soit lisible.
Sinon pour ton erreur, donne son type (arg,label,mémoire...) afin qu'on sache où elle d'où elle viens.
Personnellement, je penche vers une erreur de copiage plutôt que de mauvaise programmation.
Sangohan38
polo
Invité
Posté le : Mar 10 Nov 2015, 10:10
Voici ce que j'ai filé à des élèves :
Code Droite Compatible TI-82/TI-82 STATS
http://tout82.free.fr
-----------------------------------
-----------------------------------
:ClrHome
:Input "XA ",A
:Input "YA ",B
:Input "XB ",C
:Input "XB ",D
:ClrHome
:Output(1,1,"RESULTAT :")
:Menu("CALCULER","AB",1,"MILIEU {AB}",2,"EQU (AB)",3,"VECT AB",4,"EQU MEDIATR",5,"VECT ORTHO",6,"ANGLES COORD",7)
:Lbl 1
:[Racine carré de]((C-A)²+(D-b)²) -> Z
:Output(3,1,"AB")
:Output(5,1,Z)
:Goto 8
:Lbl 2
:(A+C)/2 -> X
:(B+D)/2 -> Y
:Output(3,1,"I MILLIEU {AB}")
:Output(5,1,"I :")
:Output(6,1,X)
:Output(7,1,Y)
:Goto 8
:Lbl 3
:(D-B)/(C-A) -> E
:B-AE -> F
:Output(3,1,"EQUA (AB)")
:Output(5,1,"Y=AX+B)
:Output(6,1,"A =")
:Output(6,5,E)
:Output(7,1,"B =")
:Output(7,5,F)
:Goto 8
:Lbl 4
:(C-A) -> X
:(D-B) -> Y
:Output(3,1,"VECTEUR AB")
:Output(5,1,"AB :")
:Output(6,1,X)
:Output(7,1,Y)
:Goto 8
:Lbl 5
:(-)((C-A)/(D-B)) -> E (* Attention, (-) est le signe : consulté le site pour en savoir plus à la page programme *)
:((A+C)/2)((C-A)/(D-B))+((B+D)/2) -> F
:Output(3,1,"EQUA MEDIATR")
:Output(5,1,"Y=AX+B)
:Output(6,1,"A =")
:Output(6,5,E)
:Output(7,1,"B =")
:Output(7,5,F)
:Goto 8
:Lbl 6
:B-D -> X
:C-A -> Y
:Output(3,1,"VECT ORTHO (AB)")
:Output(5,1,"CD :")
:Ouptut(6,1,X)
:Output(7,1,Y)
:Goto 8
:Lbl 7
:Degree
:abs ([tan-1]((D-B)/(C-A))) -> E
:abs (90-E) -> F
:Output(3,1,"EN °")
:Output(5,1,"((OI),(AB))")
:Output(6,1,E)
:Output(7,1,"((OJ),(AB))")
:Output(8,1,F)
:Lbl 8
:Pause
:ClrHome
On obtient une erreur d'argument à la fin du menu. Qui peut débuguer ?
|- TI-82 | |- Archives |- TI-82 STATS | |- Archives |- TI-82 STATS.fr | |- Archives |- TI-82+ | |- Archives |- TI-82 Advanced | |- Archives |- TI-82 Advanced Edition Python | |- Archives |- Câble, logiciel de transmission et émulateur | |- Archives |- Les programmes des internautes |- Les programmes du site |- Aide à la programmation |- Python82 |- Les concours |- Articles |- Le "blog" |- Que pensez-vous du site ? |- Espace de liberté