|
Somme |
   |
|
|
Se i due vettori hanno lo stesso numero di elementi (La = Lb) è possibile calcolare le somme per posizione.
Procedure Somma2Vett( Va: Vettore; La: Integer;
Vb: Vettore; Lb: Integer;
Var Vc: Vettore; Var Lc: Integer);
Var
i: Integer;
Begin
if(La = Lb) then
Begin
For i:=1 to La do
Vc[i]:=Va[i]+Vb[i]);
Lc:=La;
End;
End;
|
|