Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas poster de réponses
[Réglé] Problème et aide programmation avec pythagore
Auteur Message
fanofti82



Autorisation : Membre
Nb de messages : 8
Inscrit le : Sam 07 Jan 2012, 21:40
Posté le : Dim 08 Jan 2012, 9:15    

Bonjour à tous, voilà je suis nouveau sur le forum et dans la programmation.

J'ai essayé de créer un programme permettant de calculer la longueur de l'hypoténuse dans un triangle rectangle, de calculer la longueur d'un côté dans un triangle rectangle avec celle d'un autre et celle de l'hypo, et de vérifier si un triangle est rectangle en entrant les longueurs des côtés (c'est compliqué ? bigmouth.gif )

Il donne ceci (je sais, il est très long) :

Code
Lbl M
EffEcr
Menu("PYTHAGORE","AVEC L'HYPOTENUSE",1,"SANS L'HYPOTENUSE",2,"VERIFICATION",3,"QUITTER",Q)
Lbl 1
Disp "LONGUEUR DE"
Input "L'HYPOTENUSE ? ",A
EffEcr
Disp "LONGUEUR DU"
Input "1ER COTE ? ",A
EffEcr
A²-B²->D
&#8730;(D)->C  <------------&#8730; veut dire Racine carrée
Disp "LONGUEUR DU"
Disp "2EME COTE",C
Goto R
Lbl 2
Disp "LONGUEUR DU"
Input "1ER COTE ? ",B
Disp "LONGUEUR DU"
Input "2EME COTE ? ",C
EffEcr
B²+C²->D
&#8730;(D)->A  <------------&#8730; veut dire Racine carrée
Disp "LONGUEUR DE"
Input "L'HYPOTENUSE",A
Goto R
Lbl 3
Disp "LONGUEUR DE"
Input "L'HYPOTENUSE ? ",A
EffEcr
Disp "LONGUEUR DU"
Input "1ER COTE ? ",B
EffEcr
Disp "LONGUEUR DU"
Input "2EME COTE ? ",C
EffEcr
Disp "PYTHAGORE EST"
If A²=B²+C²
Then
Disp "Vrai"
Else
If A²&#8800;B²+C²   <------------&#8800; veut dire Différent de
Then
Disp "Faux"
Goto R
Lbl Q
EffEcr



J'aimerais savoir comment l'alléger un peu si c'est possible, mais mon problème est le suivant :
Je choisis la 1ère ou la 2ème option, j'entre les valeurs demandées, et après avoir appuyé sur Entrer pour valider la 2ème valeur demandée, il m'affiche ce message :

Code
ERR:ETIQUETTE



Puis le résultat s'affiche normalement.
Comment enlever ce message assez énervant à la longue ?

Merci d'avance ! winkle.gif

PS : Aussi, comment effacer le

Code
Fait

lorsque l'option Quitter est choisie

----------------------
Ti-82 Stats.fr
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
The K



Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Dim 08 Jan 2012, 10:29    

Bn alors allégeons ça ...


Code
Lbl M
EffEcr
Menu("PYTHAGORE","AVEC L'HYPOTENUSE",1,"SANS L'HYPOTENUSE",2,"VERIFICATION",3,"QUITTER",Q)
Lbl 1
Disp "LONGUEUR DE
Input "L'HYPOTENUSE ? ",A
Disp "LONGUEUR DU
Input "1ER COTE ? ",A
EffEcr
Disp "LONGUEUR DU","2EME COTE
Pause "2EME COTE             
Goto M                //L'erreur étiquette était ici je l'ai supprimée
Lbl 2
Disp "LONGUEUR DU
Input "1ER COTE ? ",B
Disp "LONGUEUR DU
Input "2EME COTE ? ",C
EffEcr
Disp "LONGUEUR DE","L'HYPOTENUSE
Pause [Racine de](B²+C²       //Pause pour attendre que tu aies lu le résultat
Goto M
Lbl 3
Disp "LONGUEUR DE
Input "L'HYPOTENUSE ? ",A
Disp "LONGUEUR DU
Input "1ER COTE ? ",B
Disp "LONGUEUR DU
Input "2EME COTE ? ",C         //Quelques EffEcr en moins ça change rien ^^'
Disp "PYTHAGORE EST"
If A²=B²+C²
Then
Disp "Vrai                     //Guillemets de fin non nécéssaires
Else
Disp "Faux                       
End                            //Tu avais oublié un end et mis un if en trop
Goto M
Lbl Q
EffEcr
Outpu(1,1"                    //Permet d'éviter le "fait"



L'erreur étiquette provenait du fait que tu mettais un Goto R partout sans qu'il y ait de Lbl R. J'ai donc mis des Goto M à la place.
Et si le résultat s'affichait quand même c'est qu'il était calculé / écri avant l'erreur.

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL

Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...
 Adresse email Haut de page Bas de page 
 
fanofti82



Autorisation : Membre
Nb de messages : 8
Inscrit le : Sam 07 Jan 2012, 21:40
Posté le : Dim 08 Jan 2012, 11:44    

Merci The K winkle.gif

EDIT : Merci quand même, mais à la place du Fait à la fin, j'ai un

Code
ERR:SYNTAXE


J'ai pourtant recopié la dernière ligne à la lettre

----------------------
Ti-82 Stats.fr
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 08 Jan 2012, 13:19    

La dernière ligne est mal recopiée, il faut rajouté une virgule entre 1 et " donc écrire


Code
Output(1,1,"   



Sangohan38

 Adresse email Haut de page Bas de page 
 
fanofti82



Autorisation : Membre
Nb de messages : 8
Inscrit le : Sam 07 Jan 2012, 21:40
Posté le : Dim 08 Jan 2012, 13:37    

Merci sangohan happy.gif

----------------------
Ti-82 Stats.fr
 Adresse email Haut de page Bas de page 
 
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas poster de réponses





  Page générée en 6 requêtes