Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 13 Mai 2011, 10:55
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
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 26 Mai 2011, 21:18
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
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
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 14 Juil 2011, 12:49
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)