Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 3406
Réponses : 2
Type : discussion
Etat : réponses autorisées

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 L1L2
linkakro le 02/06/2012 à 17:45
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/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 cry.gif