Discussion :

[Poseidon62]

Slt,

Dans le cadre d'un exercice, on me demande de calculer la transposée d'une matrice.

Je comprends ce que je dois faire, mais je ne vois pas comment

Pour expliquer ce qu'est la transposée, voici un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Soit la matrice (m1)
1.0  2.0  3.0
1.5  2.5  3.5
1.9  2.9  3.9
 
La matrice transposée est la suivante (tm) est
1.0  1.5  1.9
2.0  2.5  2.9
3.0  3.5  3.9

C'est à dire que la colonne 1 devient la ligne 1, ...

Donc, on crée un paquetage avec une fonction du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
pmatrice.ads
...
type matrice is array (integer range <>, integer range <>) of float;
 
function transp (m : matrice) return matrice;
...
 
pmatrice.adb
...
function transp (m : matrice) return matrice is
begin
....
end transp;

et c'est cette partie que je n'arrive pas à écrire.

Si quelqu'un pouvait m'expliquer comment je dois m'y prendre.

Merci

++

[Poseidon62]

re-,

j'ai trouvé la solution
c'était tout c..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   function transp (m : matrice) return matrice is
      swap : matrice := m;
   begin
      for I in M'range loop
         for J in M'range loop
            swap(i, j) := m(j, i);
         end loop;
      end loop;
      return swap;
   end transp;

Je n'avais pas l'esprit très clair !!!

++