Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Equation de droite

Equation de droite

Auteur

Message

webmaster

Autorisation : Administrateur
Nb de messages : 775
Inscrit le : Mer 18 Aoû 2004, 22:13

Posté le : Lun 12 Jan 2009, 18:21

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

tope83400

Autorisation : Membre
Nb de messages : 1
Inscrit le : Mer 03 Nov 2010, 19:51

Posté le : Mer 03 Nov 2010, 20:53

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

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Equation de droite

Page générée en 9 requêtes

Flux RSS