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
Equation de droite
Auteur Message
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Lun 12 Jan 2009, 18:21   Citer 

J'ai reçu ce programme de Pierric :

EQUATION DE DROITE


Code

effecr
disp"EQ DROITE"
input"XA=",B
input"XB=",C
input"YA=",D
input"YB=",E
if B=C
then
disp"DTE EQUATION X=",B
else
(E-D)/(C-B)->A
effecr
disp"DT EQU Y=AX+B"
disp"AVEC"
disp"A=",A
disp"B=",D-A*B
end



@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
tope83400



Autorisation : Membre
Nb de messages : 1
Inscrit le : Mer 03 Nov 2010, 19:51
Posté le : Mer 03 Nov 2010, 20:53   Citer 

j'ai fait il y a peu de temps un programme semblable à celui que tu as posté

Code

:Input "XA=", A
:Input "YA=", B
:Input "XB=", C
:Input "YB=", D
:EffEcr
:C-A → E: D-B → F
:F/E → G
:If G ≠ 0: Then
:Y → A
:G – A → Z
:Else: Then
:Disp "Y(AB)=",A
:End
:If Z>0: Then
:Disp "Y(AB)=",G,"X +",Z:End
:If Z<0: Then
:Disp "Y(AB)=",G,"X - ",-Z:End
:If Z=0: Then
:Disp "Y(AB)=" ,G,"X"
:End
:Pause
:EffEcr



les seules différences sont au niveau de l'affichage
je pense que l'affichage de mon programme peut etre plus simple à comprendre

 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