|
Se il vettore non č vuoto (L > 0)
Function MinimoVett(V: Vettore; L: Integer): Real;
Var
i: Integer;
Min: Real;
Begin
Min:=V[1];
For i:=2 to L do
if(V[i] < Min) then
Min:=V[i];
MinimoVett:=Min;
End;
Se č richiesta la posizione del minimo
Function PosMin(V: Vettore; L: Integer): Integer;
Var
i, P: Integer;
Min: Real;
Begin
Min:=V[1];
P:=1;
For i:=2 to L do
if(V[i] < Min) then
Begin
Min:=V[i];
P:=i;
End;
PosMin:=P;
End;
Con una risorsa locale in meno
Function PosMin(V: Vettore; L: Integer): Integer;
Var
i, P: Integer;
Begin
P:=1;
For i:=2 to L do
if(V[i] < V[P]) then
P:=i;
PosMin:=P;
End;
L'accesso all'elemento nel vettore (V[P]) ad ogni passo rallenta perņ l'esecuzione...
| 
