2014/15 – Fase scolastica – 08

di

È dato il seguente programma

Program E8(Input, Output); 
Var
   i, j: integer; 
Function max(a, b: Integer): Integer;
Begin 
   If(a > b) Then
      max:=a 
   Else
      max:=b
End; 
Function f(a, b: Integer): Integer;
Begin 
   If(a = b) Then
      f:=b 
   Else If(a < 0) Then
      f:=-b 
   Else 
      f:=max(f(a-1, 2*b), f(a-1, 2*b+1)) 
End;
Begin 
   Write(' ', f(8, 0))
End.

Cosa viene visualizzato a video dall’esecuzione del programma?