2005/06 – Fase scolastica – 07

di

Sia data la seguente funzione ricorsiva:

Function mistero(m: Integer; n: Integer): Integer;
Begin
   If(m = 0) Then
      mistero:=n
   Else If(n = 0) Then
      mistero:=mistero(m-1, 1) 
   Else
      mistero:=mistero(mistero(m-1, n-1), n-1)
End;

Calcolare quale tra le seguenti risposte corrisponde ai valori restituiti invocando:

Writeln(mistero(0, 3), ' ', mistero(1, 3), ' ', mistero(2, 3), ' ', mistero(3, 3));

Risposte:

  1. 3 1 2 0
  2. 3 2 1 0
  3. 0 1 2 3
  4. Nessuna delle risposte precedenti.