Ci-dessous, les différences entre deux révisions de la page.
— |
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) | ||