OII – Fase Scolastica

Si considerino i 3 seguenti frammenti di programma, dove le variabili i, k e n sono di tipo Integer, le variabili finito e p sono di tipo Boolean, e n è inizializzata con un valore positivo maggiore di 1: p:=TRUE; finito:=FALSE; i:=2; k:=n; while((Not finito) And (i < k)) Do     begin     ... Leggi tutto

Si consideri il seguente frammento di programma: Var n, i, j, a, b: Integer; Begin a:=0; b:=0; Write(‘Inserire un numero intero: ‘); Readln(n); If(n < 0) Then n:=-n; i:=n; j:=n; While(i > 0) Do Begin a:=a+1; i:=i-1 End; Repeat b:=b+1; j:=j-1 Until(j

Si consideri il seguente frammento di programma: Var   r, c, s: Integer; … Write(‘Inserire un numero intero compreso fra -10000 e 10000: ‘); Readln(r); c:=1; c:=r*c; s:=1; If(c

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