Poster un nouveau sujet Poster une réponse
droites
Auteur Message
cappuccino
Invité
Posté le : Jeu 15 Avr 2010, 11:56   Citer 

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
sad.gifA+C)/2 -> X
sad.gifB+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
sad.gifD-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
sad.gifC-A) -> X
sad.gifD-B) -> Y
:Output(3,1,"VECTEUR AB")
:Output(5,1,"AB :")
:Output(6,1,X)
:Output(7,1,Y)
:Goto 8
:Lbl 5
:cupsmiley.gif((C-A)/(D-B)) -> E (* Attention, cupsmiley.gif est le signe : consulté le site pour en savoir plus à la page programme *)
sad.gif(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).. ahh.gif

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 15 Avr 2010, 12:32   Citer 

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

 Adresse email Haut de page Bas de page 
 
polo
Invité
Posté le : Mar 10 Nov 2015, 10:10   Citer 

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 ?

  Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink