|
La somma dei valori contenuti nel vettore
Function SommaVett(V: Vettore; L: Integer): Real;
Var
i: Integer;
Somma: Real;
Begin
Somma:=0;
For i:=1 to L do
Somma:=Somma+V[i];
SommaVett:=Somma;
End;
Confronta le somme dei valori contenuti nei vettori
Function UgualiSommaVett(Va: Vettore; La: Integer;
Vb: Vettore; Lb: Integer): Boolean;
Var
i: Integer;
Sa, Sb: Real;
Begin
Sa:=0;
For i:=1 to La do
Sa:=Sa+Va[i];
Sb:=0;
For i:=1 to Lb do
Sb:=Sb+Vb[i];
UgualiSommaVett:=(Sa = Sb);
End;
oppure (utilizzando la prima funzione...)
Function UgualiSommaVett(Va: Vettore; La: Integer;
Vb: Vettore; Lb: Integer): Boolean;
Begin
UgualiSommaVett:=(SommaVett(Va, La) = SommaVett(Vb, Lb));
End; | 
