|
Presente? |
   |
|
|
Presenza/assenza di un certo valore k Function PresenteVett(V: Vettore; L: Integer; K: Real): Boolean;
Var
i: Integer;
Risposta: Boolean;
Begin
Risposta:=False;
for i:=1 to L do
if(V[i] = K) then
Risposta:=True;
PresenteVett:=Risposta;
End;
Con il while () do si ferma prima... Function PresenteVett(V: Vettore; L: Integer; K: Real): Boolean;
Var
i: Integer;
PRESENTE: Boolean;
Begin
PRESENTE:=False;
i:=1;
While(i <= L) And (Not PRESENTE) do
Begin
If(V[i] = K) Then
PRESENTE:=True;
i:=i+1;
End;
PresenteVett:=PRESENTE;
End;
Si puņ risparmiare l'operazione Not ad ogni passo del while() Function PresenteVett(V: Vettore; L: Integer; K: Real): Boolean;
Var
i: Integer;
ANCORA: Boolean;
Begin
ANCORA:=True;
i:=1;
While(i <= L) And (ANCORA) do
Begin
If(V[i] = K) Then
ANCORA:=True;
i:=i+1;
End;
PresenteVett:=(Not ANCORA);
End;
Si puņ semplificare tutto... Function PresenteVett(V: Vettore; L: Integer; K: Real): Boolean;
Var
i: Integer;
Begin
i:=1;
While(i <= L) And (V[i] <> K) do
i:=i+1;
PresenteVett:=(i <= L);
End;
|
|