Mese: Ottobre 2014

Si considerino le funzioni mutuamente ricorsive Function foo(n: Integer): Integer; Forward; Function ES9(n: Integer): Integer; begin    If(n mod 2 = 1) Then       ES9:=foo(n-3)    Else       ES9:=n; End; Function foo(n: Integer): Integer; Begin  If(n Mod 2 = 0) Then     foo:=ES9(2*n)  Else     foo:=n; End; Dire cosa … Leggi tutto

Si consideri la funzione Function ES8(m: Integer): Integer; Var    a, b, c, g, t: Integer; Begin              a:=m*m;    b:=a div 2;    c:=4*b*a;    t:=m;    g:=m+a+t+t+a;    While(g < b+a+c+c+a) Do    Begin       g:=g+a+t+t+a;       c:=t+a+t+a;    End;    ES8:=g; end; Dire ... Leggi tutto

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; ... Leggi tutto

Si consideri la funzione Function ES6(x: Integer; y: Integer): Integer; Begin    If(x = 0) And (y = 0) Then       ES6:=0    Else if(x Mod 10 < y Mod 10) Then       ES6:= ES6(x, y div 10)    Else if(x Mod 10 > y Mod 10) Then       … Leggi tutto

Si consideri la procedura Procedure ES5(n: Integer; d: Integer); Begin    While(n 1) Do     Begin       If(n mod d = 0) Then           Begin             Writeln(d);             n:=n Div d;          End     … Leggi tutto

Si consideri la seguente funzione Function ES4(x: Integer): Integer; Begin    If(x Div 10 = 0) Then       ES4:=x    Else       ES4:=x Mod 10+ES4(x Div 10); End; Dire cosa restituisce l’invocazione ES4(ES4(731)). Risposte: 2 9 36 nessuna delle precedenti

Si consideri la seguente funzione Function ES3(x: Integer): Integer; Begin    If(x

Si consideri il seguente programma: Program main(Output); Const    DMAX = 5; Type    TMAT = Array[1..DMAX, 1..DMAX] Of Integer;    TVET = Array[1..DMAX] Of Integer; Var    M: TMAT;    I: Integer; Procedure ES2(Var M: TMAT; R, C: Integer); Var    I, K: Integer;    V: TVET; Begin      For I:=1 To R … Leggi tutto

Si consideri la seguente funzione Function ES1(a, b: Integer): Integer; Var    k, p, j: Integer; begin          k:=1;    p:=0;    While k

Cosa stampa il seguente programma? Program cosa(Input, Output); 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(n-1, mistero(m-1, n-1)) End; Begin  Writeln(mistero(0, 3), ‘ ‘, mistero(1, 3), ‘ ‘, mistero(2, 3), ‘ ‘, mistero(3, … Leggi tutto