Outils pour utilisateurs

Outils du site


dante:tpmaths

Différences

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

Lien vers cette vue comparative

dante:tpmaths [2019/04/03 18:41] (Version actuelle)
80.214.67.246 créée
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)
  
dante/tpmaths.txt · Dernière modification: 2019/04/03 18:41 par 80.214.67.246