|
L'interfaccia utente č relativa...
Procedure InsVett(Var V: Vettore; Var L: Integer);
Var
i: Integer;
Begin
Write('Quanti elementi? ');
Readln(L);
For i:=1 to L do
Begin
Write(i:5, ' = ');
Readln(V[i]);
End;
End;
Si puņ scegliere di segnalare il termine della fase di inserimento con un valore "speciale"
Procedure InsVett(Var V: Vettore; Var L: Integer);
Var
i: Integer;
Begin
Writeln('Elementi? (0 per terminare)');
L=1;
Repeat
Write(i:5, ' = ');
Readln(V[L]);
Inc(L);
Until(V[L] = 0) Or (L > Nmax);
Dec(L);
End;
| 
