Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe

Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
Dim 3 Sep 2017 - 19:50 par Clément.7

» Lancement du TI-Concours 2017 !
Sam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Ven 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Ven 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Dim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Mer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Jeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Jeu 15 Déc 2016 - 10:24 par Ti64CLi++

» flappy bird
Jeu 15 Déc 2016 - 10:23 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois
Ti64CLi++
 
Clément.7
 


Regroupement de Programmes de Maths 2

Voir le sujet précédent Voir le sujet suivant Aller en bas

Regroupement de Programmes de Maths 2

Message par ashtrail le Jeu 3 Oct 2013 - 21:52

Bonjour à tous,
Voici la deuxième compilation de mes programmes de maths. Elle comprends toutes les fonctions de la description soit : vérifie si deux droites sont sécantes et en quel point à partir de leur écriture cartésienne, vérifie si deux vecteurs sont colinéaires et auquel cas quel est le coefficient, et finalement forme canonique et racines des polynômes du second degré.
Ce programme s'appelle MATHS2 et pèse 779 octets (enfin je l'ai amélioré je vais mettre le lien plus léger après, le programme écrit est déjà optimisé lui).

le lien : 4shared.com/file/OzHBo-LO/MATHS2.html

Code:
:Lbl M
:ClrHome
:Menu("MATHS2","SECANTE",1,"VECTEUR2",2,"CANONIQUE",3,"QUITTER",Q
:Lbl 1
:Disp "AX+BY+C","DX+EY+F
:Prompt A,B,C,D,E,F
:If not(A and not(B or not(D and not(E
:Then
:Disp "ERREUR COEFF
:Else
:If AE-BD
:Then
:(-CE+BF)/(AE-BD→X
:Disp "SECANTE EN","a(X,Y) X=",Ans►Frac,"Y=",(‾AX-C)/B►Frac
:Else
:Disp "NON SECANTES
:End
:End
:Pause
:Goto M
:Lbl 2
:Disp "u(A,B) v(C,D)
:Prompt A,B,C,D
:AD=BC→E
:If not(E
:Then
:Disp "NON COLINEAIRE
:Else
:Disp "COLINEAIRE
:If not(A and not(B
:Then
:Disp "u=0.v
:Else
:If A
:Then
:C/A→K
:Else
:B/D
:End
:Disp "v=Ku AVEC K=",Ans►Frac","AU ²",Ans²►Frac
:End
:End
:Pause
:Goto M
:Lbl 3
:Disp "AX²+BX+C
:Prompt A,B,C
:B²-4AC→D
:Lbl Z
:ClrHome
:Menu("CANONIQUE","a(X-α)²+ϐ",A,"RACINE",B,"NOUVEAU",C,"RETOUR",D  // désolé pour le alpha et le bêta remplacer par les minuscules dans le menu var, puis stats
:Lbl D
:Goto M
:Lbl C
:Goto 3
:Lbl A
:Disp "a(X-α)²+ϐ","Δ=",Ans►Frac,"α=",‾B/(2A)►Frac","ϐ=",‾D/(4A)►Frac
:Pause
:Goto Z
:Lbl B
:If not(D:Then
:Disp "Δ=0 1 SOLUCE
:Disp "a(X-α)²
:Disp "α=",‾B/(2A)►Frac
:Pause
:Goto Z
:End
:If D<0:Then
:Disp "0 SOLUCE Δ=",D
:Pause
:Goto Z
:End
:If D>0:Then
:Disp "2 SOLUCE A=",A,"A(X-X1)(X-X2),"X1=",(‾B-√(D))/(2A)►Frac,"X2=",(‾B+√(D))/(2A)►Frac,"D=",D
:Pause
:Goto Z
:End
:Lbl Q

__________________________________________________________________________
Mes programmes :
-JEUX : Le TAPTAUPE, Le MINSTEP, Un Plus-Moins
-MATHS : Regroupement n°1, Regroupement n°2, tout sur les pourcentages
-AUTRE : Le programme qui jauge les prénoms
avatar
ashtrail
Connaisseur
Connaisseur

Messages : 248
Points Concours : 21
Productivité : 21
Date d'inscription : 18/06/2013
Localisation : Paris
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://ti-freeworld.fr1.co/

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum