Différences

Ci-dessous, les différences entre deux révisions de la page.

@@ Ligne 1: / Ligne 1: @@
+# tpmaths
+(MicroAlg "tpmaths-src")
+(Declarer L1 L2 L3 De_type "liste")
+(Declarer COL1 COL2 COL3 COL4 De_type "liste")
+(Affecter_a COL1 (Liste 1 2 ))
+(Affecter_a COL2 (Liste 3 4 ))
+(Affecter_a COL3 (Liste 5 6 ))
+(Affecter_a COL4 (Liste 7 8 ))
+(Afficher "La matrice L1 est égale à : ")
+(Affecter_a L1 (Liste COL1 COL2))
+(Afficher L1)
+(Afficher "La matrice L2 est égale à : ")
+(Affecter_a L2 (Liste COL3 COL4))
+(Afficher L2)
+(Afficher (Concatener))
+(Affecter_a L3 (Liste 0 0 0 0))
+(Declarer i j De_type "nombre")
+(Affecter_a i 1)
+(Affecter_a j 1)
+(Declarer m n De_type "nombre")
+(Affecter_a m 0)
+(Affecter_a n 0)
+(Declarer x De_type "nombre")
+(Affecter_a x 0)
+(Declarer z De_type "nombre")
+(Affecter_a z 1)
+(Tant_que (<= i 2) Faire
+ (Tant_que (<= j 2) Faire
+  (Affecter_a n (Nieme (Nieme L1 i) j))
+  (Affecter_a m (Nieme (Nieme L2 i) j))
+  (Affecter_a x (+ m n))
+  (Affecter_a L3 x En_position z)
+  (Affecter_a z (+ z 1))
+  (Affecter_a j (+ j 1))
+ )
+(Affecter_a i (+ i 1))
+(Affecter_a j 1)
+)
+(Afficher "Apres l'addition de L1 & L2")
+(Afficher L3)
+(Afficher (Concatener))
+(Afficher "Multiplication des matrices")
+(Afficher (Concatener))
+  (Affecter_a n (* (Nieme (Nieme L1 1) 1) (Nieme (Nieme L2 1) 1)))
+  (Affecter_a m (* (Nieme (Nieme L1 1) 2) (Nieme (Nieme L2 2) 1)))
+  (Affecter_a x (+ m n))
+  (Affecter_a L3 x En_position 1)
+  (Affecter_a n (* (Nieme (Nieme L1 1) 1) (Nieme (Nieme L2 1) 2)))
+  (Affecter_a m (* (Nieme (Nieme L1 1) 2) (Nieme (Nieme L2 2) 2)))
+  (Affecter_a x (+ m n))
+  (Affecter_a L3 x En_position 2)
+   (Affecter_a n (* (Nieme (Nieme L1 2) 1) (Nieme (Nieme L2 2) 1)))
+  (Affecter_a m (* (Nieme (Nieme L1 2) 2) (Nieme (Nieme L2 2) 2)))
+  (Affecter_a x (+ m n))
+  (Affecter_a L3 x En_position 3)
+   (Affecter_a n (* (Nieme (Nieme L1 2) 1) (Nieme (Nieme L2 1) 1)))
+  (Affecter_a m (* (Nieme (Nieme L1 2) 2) (Nieme (Nieme L2 2) 2)))
+  (Affecter_a x (+ m n))
+  (Affecter_a L3 x En_position 4)
+  (Afficher L3)
+(/MicroAlg)

Galerie MicroAlg

Outils pour utilisateurs

Outils du site

Différences

Outils de la page-