Poster un nouveau sujet Poster une réponse
Triangle de Pascal.
Auteur Message
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Sam 02 Jui 2012, 16:40   Citer 

Programme Pascal V2 par L.Davin 128 octéts.

Le triangle de Pascal est une représentation des coefficients binomiaux
nécessaire à développer les formules de type : (A+B)^N
Par example (A+B)^2 donne 1,2,1 soit : 1A²+ 2AB + 1B²
Aussi (A+B)^4 donne 1,4,6,4,1 soit :
1(A^4 x B^0) + 4(A^3 x B^1) + 6(A^2 x B^2) + 4(A^1 x B^3) + 1(A^1 x B^4)
ou : A^4 + 4(A³ x B) + 6(A² x B²) + 4(A x B³) + B^4
Ce prgm vous permet de les résoudres pour toutes les puissance de N.

--------------------------------------------------------------

:Input "(A+B)^",P
:{1,2,1->L1
: P+1->dim(L1
:L1->L2
:1->L2(2)
:3->C
:For(A,1,P-2
:Output(8,1,P-2-A
:For(B,1,C
:L1(B)+L1(B+1->L2(B+1
:End
:L2->L1
:C+1->C
:End
:Pause L1
:EffVar L1L2

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 02 Jui 2012, 17:45   Citer 

C'est sympathique. happy.gif
(et bon retour parmi nous)

Mon prog Binome calcule un binome de newton en entier, en précisant les coefficients.
http://www.mediafire.com/download.php?29dp284r82tula5

Si on veut se contenter de calculer les coefficients, voire même le tableau de Pascal, on peut utiliser la fonction "Combinaison" ("nCr" en anglais).
Et puis la fonction seq() (suite() en français) permet de se passer d'une boucle.

Code
Prompt N
seq(N nCr P,P,0,N


Code
Prompt M
For(N,0,M
Pause seq(N nCr P,P,0,N
End



----------------------
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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Sam 02 Jui 2012, 22:19   Citer 

Cà pique cry.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 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 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink