fanofti82 le 08/01/2012 à 09: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é ?
)
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
√(D)->C <------------√ 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
√(D)->A <------------√ 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²≠B²+C² <------------≠ 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 :
Puis le résultat s'affiche normalement.
Comment enlever ce message assez énervant à la longue ?
Merci d'avance !
PS : Aussi, comment effacer le
lorsque l'option Quitter est choisie
The K le 08/01/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.
fanofti82 le 08/01/2012 à 11:44
Merci The K
EDIT : Merci quand même, mais à la place du Fait à la fin, j'ai un
J'ai pourtant recopié la dernière ligne à la lettre
