Forum Casio - Est-ce que ce code est bon ? par U-Led

Forum Casio - Questions sur les transferts

Index du Forum » Questions sur les transferts » Est-ce que ce code est bon ?

U-Led Invité

Est-ce que ce code est bon ?

Posté le 06/11/2010 10:40

Bonjour, dans le cadre d'un DM de Mathématiques, nous devions créer un programme permettant de :
- Calculer les valeurs des 3 côtés d'un triangle à partir de 3 points A,B et C dans un repère graphique
- Renvoyer la nature du triangle

Voici ce que j'ai codé, mais cela me semble très fouillis, je ne sais même pas si le code marche, car n'ayant plus le câble pour transférer sur la calculatrice, je n'ai pas pu le tester

"CALCUL DES LONGUEURS ET NATURE DU TRIANGLE"
"---------------"
"XA="
?->X
"YA="
?->Y
"XB="
?->A
"YB="
?->B
"XC="
?->C
"YC="
?->D
Sqrt((X-A)²+(Y-B)²)->E // AB
Sqrt((A-C)²+(B-D)²)->F // BC
Sqrt((X-C)²+(Y-D)²)->G // AC
"AB MESURE"
E(afficher)
"UNITE DE LONGUEUR"
"BC MESURE"
F(afficher)
"UNITE DE LONGUEUR"
"AC MESURE"
G(afficher)
"UNITE DE LONGUEUR"
If E=F=G
Then
"LE TRIANGLE EST EQUILATERAL"
IfEnd

If E=F
Then
   If F=/=G
   Then
   "LE TRIANGLE EST ISOCELE"
   IfEnd
IfEnd
If E=G
Then
   If F=/=E
   Then
   "LE TRIANGLE EST ISOCELE"
   IfEnd
IfEnd
If F=G
Then
   If G=/=E
   Then
   "LE TRIANGLE EST ISOCELE"
   IfEnd
IfEnd
If (E)²=((G)²+(F)²)
Then
"LE TRIANGLE EST RECTANGLE EN C"
IfEnd

If (G)²=((E)²+(F)²)
Then
"LE TRIANGLE EST RECTANGLE EN B"
IfEnd

If (F)²=((G)²+(E)²)
Then
"LE TRIANGLE EST RECTANGLE EN A"
IfEnd
If (E)²=((G)²+(F)²)
Then
If E=F
Then
   If F=/=G
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN C"
   IfEnd
IfEnd
If E=G
Then
   If F=/=E
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN C"
   IfEnd
IfEnd
If F=G
Then
   If G=/=E
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN C"
   IfEnd
IfEnd

If (G)²=((E)²+(F)²)
Then
If E=F
Then
   If F=/=G
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN B"
   IfEnd
IfEnd
If E=G
Then
   If F=/=E
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN B"
   IfEnd
IfEnd
If F=G
Then
   If G=/=E
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN B"
   IfEnd
IfEnd

If (F)²=((G)²+(E)²)
Then
If E=F
Then
   If F=/=G
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN A"
   IfEnd
IfEnd
If E=G
Then
   If F=/=E
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN A"
   IfEnd
IfEnd
If F=G
Then
   If G=/=E
   Then
   "LE TRIANGLE EST ISOCELE-RECTANGLE EN A"
   IfEnd
Else
"LE TRIANGLE EST UN TRIANGLE QUELCONQUE"
IfEnd

Nom d'utilisateur

Adresse email

Message

Ajouter un spoiler(texte affichable/masquable par un clic)

Nom du lien (facultatif): Adresse du lien:

Adresse de l'image: Alignement de l'image: Normal Flottante à gauche Centrée Flottante à droite Redimensionnement de l'image (en pixel): Largeur : Hauteur :

Adresse de la vidéo:

Pseudo du profil: Afficher la liste des membres

Auteur de la citation (faculatif):

Texte de déroulage du spoiler (modification faculative): Texte d'enroulage du spoiler (modification faculative):

Titre de la barre de progression: Pourcentage de la barre de progression entre 1 et 100:

→ ⇒ √ Σ ∫ ≠ ≥ ≤ π θ ◢ ± α β γ δ Δ σ ≈ ∞ ∈ λ

Fichier joint

Me prévenir par email lorsqu'une réponse est postée

Combien font sept moins cinq ?

Veuillez donner la réponse en chiffre

Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 200 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd