Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
TRIANGLE : pleins d'infos à partir des coordonées
Auteur Message
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 13 Mai 2011, 10:55   Citer 

bonjour,
Voici un programme qui donne pleins d'infos sur une triangle à partir des coordonées :
-nature (avec précision des sommets)
-aire
-périmètre
-longueur des cotés
-angles entre les cotées (en degrès )
-équation cartésiennes des droites qui passent par chaque coté, leur intersection avec les 2 axes, leur angle avec l'horrizontal (sur [-90°;+90°] )




Code
:Input "ABS DE A:",A
:Input "ORD DE A:",B
:Input "ABS DE B:",C
:Input "ORD DE B:",D
:Input "ABS DE C:",E
:Input "ORD DE C:",F
:RacineCarrée((A-C)²+(B-D)² -> I
;RacineCarrée((C-E)²+(D-F)² -> J
:RacineCarrée((E-A)²+(F-B)² -> K
:If I=J and J=K and K=I
:Disp "ABC EST EQUILATE","RAL
:If I=J and J =!= K
:Disp "ABC ISOCEL EN B
:If J=K and K =!= I
:Disp "ABC ISOCEL EN C
:If K=I and I =!= J
:Disp "ABC ISOCELE EN A
:If I²=J²+K²
:Disp "ABC RECT EN C
:If J²=I²+K²
:Disp "ABC RECT EN A
:If K²=I²+J²
:Disp "ABC RECT EN B
:If I =!= J and I =!= K and K =!= I and I² =!= J²+K² and J² =!= I²+K² and K² =!= J²+I²
:Disp "ABC QUELCONQUE
:.5(I+J+K =!= G
:RacineCarrée(G(G-I)(G-J)(G-K -> H
:Disp "AIRE,PERIMETRE",H,2G
:Pause
:Disp "LONGUEUR DE AB:",I
:Disp "LONGUEUR DE BC:",J
:Disp "LONGUEUR DE CA:",K
:Pause
:Degree
:arccos((K²+I²-J²)/(2KI -> L
:arccos((I²+J²-K²)/(2IJ -> M
:arccos((K²+J²-I²)/(2KJ -> N
:Disp "ANGLE A EN ° :",L
:Disp "ANGLE B EN ° :",M
:Disp "ANGLE C EN ° :",N
:Pause
:If A =!= C
:Then
:(B-D)/(A-C =!= O
:B-OA -> R
:Disp "FONCT AFF DE AB:","COEF DIRECT:",O,"ORD A L'ORIGINE:",R
:Else
:Disp "AB EST VERTICALE","ET PASSE PAR:",A
:End
:Pause
:If C =!= E
:Then
:(D-F)/(C-E -> P
:D-PC -> S
:Disp "FONCT AFF DE BC:","COEF DIRECT:",P,"ORD A L'ORIGINE:",S
:Else
:Disp "BC EST VERTICALE","ET PASSE PAR:"C
:End
:Pause
:If E =!= A
:Then
:(F-B)/(E-A -> Q
:F-QE -> T
:Disp "FONCT AFF DE CA:","COEF DIRECT:",Q,"ORD A L'ORIGINE:",T
:Else
:Disp "CA EST VERTICALE","ET PASSE PAR:",E
:End
:Pause
:arctan(O -> U
:If non(R
:Then
:-O/R -> V
:Else
:0 -> V
:End
:Disp "ANGLE AB OX","(‾90° A 90°):",U
:Disp "INTERS (AB),(OX)",V
:Disp "INTERS( AB),(OY)",O
:Pause
:arctan(P -> W
:If non(S
:Then
:-P/S -> X
:Else
:0 -> X
:End
:Disp "ANGLE BC OX",W
:Disp "INTERS (BC),(OX)",X
:Disp "INTERS (BC),(OY)",S
:Pause
:arctan(Q -> Y
:If non(T
:Then
:-Q/T -> Z
:Else
:0  -> Z
:End
:Disp "ANGLE (CA),(OX)",Y
:Disp "INTERS (CA),(OX)",Z
:Disp "INTERS (CA),(OY)",T
:Pause



" =!= " correspond à "différend de"

Sandro

PS: j'espère ne pas avoir fait trop de confusions entre " =!= " , " moins entre parenthèse " et " -> "

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 26 Mai 2011, 21:18   Citer 

encore un programme qui était bien partit pour sombrer dans l'oubli sans une seule reponse (à quoi ça sert de poster les progs si personne ne les consulte?)

Sandro
PS:désolé pour le double post

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Tigre-obscure



Autorisation : Membre
Nb de messages : 133
Inscrit le : Mar 24 Mai 2011, 21:39
Posté le : Jeu 26 Mai 2011, 22:28   Citer 

Je vais essayé demain ^^ je dois dormir. Je te dit ça demain happy.gif. Si il marche ^^

----------------------
Posté par Tigre-

Love Programme winkle.gif,Love jeux winkle.gif,Love S....,Love intelligence.
Un peu d'aide? (à propos de la calculette winkle.gif)
LISTE DES JEUX SUR LE FORUM
Liste des caractère ù,ü,ect... Clique ici
Lien pour télécharger un catalogue de touche Ti basic
Lien pour traduire un programme et le tapez à la calculatrice happy.gif

Tigre =)
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 27 Mai 2011, 18:35   Citer 

surtout n'hésite pas à dire si ça plante et si oui où, j'était un peu fatigué quand j'ai remplacé les signes qui ne passent pas depuis TI-Editor

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 28 Mai 2011, 22:26   Citer 

Voici un lien vers un .83p (pas totalement optimisé (moins que la version à taper à la main) TRIANGLE.83p

faire enregistrer et si nécessaire modifier le nom et remettre .83p comme extention

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Tigre-obscure



Autorisation : Membre
Nb de messages : 133
Inscrit le : Mar 24 Mai 2011, 21:39
Posté le : Mar 31 Mai 2011, 14:20   Citer 

Désolé j'avais promis d'essayé mais mes prof mon fait des contrôle a la suite donc je n'ai pas pu le faire je le ferais samedi. Encore désolé

++ Tigre

----------------------
Posté par Tigre-

Love Programme winkle.gif,Love jeux winkle.gif,Love S....,Love intelligence.
Un peu d'aide? (à propos de la calculette winkle.gif)
LISTE DES JEUX SUR LE FORUM
Liste des caractère ù,ü,ect... Clique ici
Lien pour télécharger un catalogue de touche Ti basic
Lien pour traduire un programme et le tapez à la calculatrice happy.gif

Tigre =)
 Adresse email Haut de page Bas de page 
 
question
Invité
Posté le : Jeu 14 Juil 2011, 10:11   Citer 

coucou ce programme a l'air super mais j'ai une question pour simplifier : est-ce qu'on peut mettre le signe [différent de] à la place de =!= ?
PS je te dirai s'il marche sur la ti-82 happy.gif

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Cocodidou
Avatar

Autorisation : Membre
Nb de messages : 84
Inscrit le : Dim 15 Mai 2011, 11:33
Posté le : Jeu 14 Juil 2011, 11:19   Citer 

Le != signifie "différent de": sur la machine à calculer, il doit être remplacé par le #.

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 14 Juil 2011, 12:49   Citer 

Parle de égal barré plutôt que de dièse "#".
Ce programme ne contient aucune fonction qui ne soit pas compatible avec la 82.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





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

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa