2005/06 – Fase scolastica – 03

di

Si consideri la seguente funzione:

Type sequenza = Array[1..10] Of Integer;
Procedure calcola(Var vett: sequenza; n: Integer);
Var
   i, j, x, y: Integer;
Begin
   For i:=1 To n Do
      Begin
         y:=vett[1];
         For j:=1 To n-1 Do
            Begin
               x:=vett[j+1];
               vett[j+1] := y;
               y:=x;
            End;
      vett[1]:=y;
   End;
End;

Assumendo che vett contenga il vettore

[10, 9, 8, 7, 6, 5, 4, 3, 2, 1],

quali sono gli elementi di vett dopo l’esecuzione di calcola (usando 10 come secondo parametro)?

Risposte:

  1. [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
  2. [10, 9, 8, 7, 6, 5, 4, 3, 2, 1]
  3. [1, 3, 5, 7, 9, 2, 4, 6, 8, 10]
  4. nessuna delle precedenti.