{
Exercice :
Soit A une matrice de type réel et d’ordre N x M.
Ecrire un algorithme/programme PASCAL qui permet de calculer le produit de la matrice A
par un vecteur V de type réel et de taille M.
}
Program Produit_Matrice_Vecteur;
Var
A : array [1..10, 1..10] of real ;
V, P : array [1..10] of real ;
N, M, i, j : integer ;
Begin
{*-*-* Entrées *-*-*}
Write('Donner la dimension de la matrice A : ');
Read(N, M);
Writeln('Donner les composantes de la matrice A : ');
For i:=1 to N do
For j:=1 to M do
Read(A[i, j]);
Writeln('Donner les composantes du vecteur V : ');
For i:=1 to M do
Read(V[i]);
{*-*-* Traitements *-*-*}
For i:=1 to N do
Begin
P[i]:=0;
For j:=1 to M do
P[i]:= P[i]+ A[i,j]*V[j];
End;
{*-*-* Sorties *-*-*}
Writeln('Le résultat de produit :') ;
For i:=1 to N do
write(P[i]:8:2);
End.