|
Se i due vettori hanno la stessa lunghezza, altrimenti...
Function UgualiVett(Va: Vettore; La: integer;
Vb: Vettore; Lb: integer): Boolean;
Var
i: Integer;
Risposta: Boolean;
Begin
If(La <> Lb) then
Risposta:=False
Else
Begin
Risposta:=True;
For i:=1 to La do
If(Va[i] <> Vb[i]) then
Risposta:=False;
End;
UgualiVett:=Risposta;
End;
Il For() non si ferma anche se sono diversi i primi due elementi, meglio usare il While() e semplificando tutto...
Function UgualiVett(Va: Vettore; La: integer;
Vb: Vettore; Lb: integer): Boolean;
Var
i: Integer;
Begin
If(La <> Lb) then
UgualiVett:=False
Else
Begin
i:=1;
While(i <= La) And (Va[i] = Vb[i]) do
i:=i+1;
UgualiVett:=(i > L);
End;
End;
| 
