"'O
0
c
:J
0
li)
..--t
0
N
@
.......
J::
O'l
·;::::
>0.
0
u
Chapitre l 0 • Travaux pratiques
236
Variables locales : i,j (entiers), C (liste)
Début
c f - [[0,0,0],[0,0,0],[0,0 ,0]]
Pour i de 0 à 2 Faire
Pour j de 0 à 2 Faire
1
C[i]Li] f - A[iJU]+B[iJU]
Fin Pour
Fin Pour
Retourner(C)
Fin Fonction
Fonction produitR(x: réel, A: liste) : liste
Rôle : calcule le produit xA
Variables locales : i,j (entiers), C (liste)
Début
c f - [[0,0,0],[0,0,0],[0,0,0]]
Pour i de 0 à 2 Faire
Pour j de 0 à 2 Faire
1
C[i]Li] f - x
1
'A[i]Li]
Fin Pour
Fin Pour
Retourner(C)
Fin Fonction
Fonction produit(A,B: listes) : liste
Rôle : calcule le produit AB
Variables locales : i,j,k (entiers), C (liste)
Début
c f - [[0,0 ,0],[0,0,0],[0,0 ,0]]
Pour i de 0 à 2 Faire
Pour j de 0 à 2 Faire
Pour k de 0 à 2 Faire
1 C[i]Li] f - C[i]Li]+A[i][k]* B[k]Li]
Fin Pour
Fin Pour
Fin Pour
Retourner(C)
Fin Fonction
Fonction puissance(A: liste, n: entier) : liste
Rôle : calcule A"n
Début
Si n==O:
1
Retourner([[l ,O,O],[O, 1,0],[0,0,1]])
# matrice identité 1_3
Sinon
1
Retourner(produit(puissance(A,n-1 ),A))
# A" n=N'A"(n-1)
FinSi
Fin Fonction
.. .. .. . ... . ... . .. .. .. . . Partie principale ... . ... . .. . ... . ... . ... . .. . .
Début
Afficher "Calcul de x_0
1
' 1_3+x_ l *A" 1 +x_2
1
'A"2+ ... +x_n
1
'A"
Afficher "Rentrer n : "
Saisir N