Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Triangle de Pascal.
ld le 02/06/2012 à 16:40
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 L1L2linkakro le 02/06/2012 à 17:45
C'est sympathique.
(et bon retour parmi nous)
Mon prog Binome calcule un binome de newton en entier, en précisant les coefficients.
http://www.mediafire.com/file/[...]a5/BINOME_2.83p
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
ld le 02/06/2012 à 22:19
Cà pique

Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.