OII – Fase Scolastica

Si consideri la seguente funzione, che viene chiamata con n >= k >= 1. Function f(n, k: Integer): Integer; Begin If(n = k) Or (k = 0) Then f:=1 Else f:=f(n-1, k-1)+f(n-1, k) End; Quale tra le seguenti espressioni viene calcolata dalla funzione f? Si ricordi che e che n! è il fattoriale di n … Leggi tutto

È dato il seguente programma: Program E11(input, output); Function g(x: Integer): Integer; forward; Function f(x: Integer): Integer; Begin If(x

Siano A e B due insiemi di uguale cardinalità N (cioè con uguale numero di elementi) contenenti ciascuno N numeri interi diversi tra loro. I numeri dei due insiemi A e B vengono memorizzati, ordinati per valori crescenti, nei due vettori v e w. Si dica che insieme calcola nel vettore z il seguente codice: … Leggi tutto

Si consideri la seguente funzione: Function f(a, b: Integer): Integer; Begin If(a = b) Then f:=a Else If(a > b) Then f:=f(a-b, b) Else f:=f(a, b-a) End; Cosa restituisce la funzione se viene chiamata passandole due numeri a e b maggiori di zero? 1 se a, b sono entrambi dispari, 2 altrimenti 1 se a, … Leggi tutto

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

È dato il seguente programma: Program E7(Input, Output); Var    f: Array[1..10] Of Integer;    i: Integer; Begin    f[1]:=5;    f[2]:=3;    For i:=1 To 8 Do f[i+2]:=f[i]-f[i+1];    For i:=1 To 10 Do Write(f[i], ‘, ‘) End. Cosa viene visualizzato a video dall’esecuzione del programma? 5, 3, 2, 1, 1, 0, 1, -1, … Leggi tutto

È dato il seguente programma: Program E6 (input, output); Var   i, c: Integer; Begin c:=0; i:=0;   While(i < 100) Do Begin c:=c+1; If(c mod 2 0) Then i:=i+1 Else i:=i+c; End; Writeln('c=', c); End. Cosa viene visualizzato a video dall’esecuzione del programma? il ciclo while non termina mai, quindi non viene visualizzato nulla ... Leggi tutto

Si consideri la seguente funzione: Function A(n: Integer; m: Integer): Integer; Begin  If n = 0 Then     A:=1  Else     If n Mod 2 = 0 Then        A:=A(n Div 2, m)*A(n Div 2, m)     Else        A:=m*A(n-1, m) End; Dire quale sarà il valore tornato … Leggi tutto

Si consideri la seguente funzione conta() che prende in input un vettore di numeri di lunghezza n (assumendo che n sia compreso fra 2 e 100): Type   sequenza = Array[1..100] Of Integer; Function conta(vett: sequenza; n: Integer): Integer; Var  i, j, k: Integer; Begin  i:=0;  k:=0;  j:=1;   For i:=1 To n-1 Do   … Leggi tutto

Si considerino le due seguenti funzioni: Function A(n: Integer): Integer; Begin    If n > 0 Then       A:=n+A(n-1)    Else       A:=0 End; function B(n: integer): integer; begin    B := (n*(n+1) div 2) end; Quale delle seguenti affermazioni è vera? Risposte: la funzione A calcola il fattoriale di un … Leggi tutto