Gamme TI-82


Poster un nouveau sujet Poster une réponse
Equation de droite
Auteur Message
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 789
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 - 2019 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink