2007/08 – Fase scolastica – 07

di

Si considerino le seguenti procedure

Type
   TVET10 = Array[0..9] Of Integer;
 
Procedure mf(n: Integer; k: Integer; var t: TVET10; e: Integer);
Var
   i: Integer;
Begin
   If(e < n-1) Then
      For i:=t[e]+1 To k Do
         Begin
            t[e+1]:=i;
            mf(n, k, t, e+1);
         End;
End;
 
Procedure ES7(n: Integer; k: Integer);
Var
   t: TVET10;
   i: Integer;
Begin
   For i:=0 To n-1 Do
      Begin
         t[0]:=i+1;
         mf(n, k, t, 0);
      End;
   For i:=0 To n-1 Do
      Write(t[i], ' ');
   Writeln;
End;

Si assuma che sempre si verifichi n <= 10.
Dire cosa stampa su schermo la chiamata ES7(3, 4).

Risposte:

  1. 1 2 4
  2. 2 3 4
  3. 3 4 4
  4. nessuna delle precedenti