OII – Fase Scolastica

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), … Leggi tutto

Data la seguente funzione che inizializza i valori di un array bidimensionale matrice: Const N=5; Procedure inizializza(); Var  matrice : Array [1..N, 1..N] Of Integer;  riga, colonna: Integer; Begin  For riga:=1 To N Do     For colonna:=1 To N Do        Begin           If(riga = colonna) Then   … Leggi tutto

Cosa stampa il seguente programma? Program Test(Input, Output); Type    vett = Array[0..9] Of Integer; Var    i, f, a, b: Integer;    arr : vett; Function funzione1(arr: vett): Integer; Var   i: Integer; Begin   i:=1;   While(arr[i] -1) Do      i:=i*2;   funzione1:=i; End; Function funzione2(arr: vett; f: Integer; k: Integer): Integer; … Leggi tutto

Cosa stampa il seguente programma? Program cosa(Input, Output); Type    vett = Array[0..10] Of Integer; Var    a, b, i : Integer;    arr1, arr2: vett; Function funzione(arr: vett; dim: Integer): Integer; Var    i, t: Integer; Begin    i:=0;    t:=0;    If((dim Mod 2) = 1) Then      While(i < dim) Do ... Leggi tutto

Si consideri la seguente funzione: Type sequenza = Array[1..10] Of Integer; Procedure calcola(Var vett: sequenza; n: Integer); Var i, j, x, y: Integer; Begin For i:=1 To n Do Begin y:=vett[1]; For j:=1 To n-1 Do Begin x:=vett[j+1]; vett[j+1] := y; y:=x; End; vett[1]:=y; End; End; Assumendo che vett contenga il vettore [10, 9, 8, … Leggi tutto

Si consideri la seguente funzione: Function funzione(): Integer; Var  contatore: Integer;  sum : Integer; Begin  contatore:=0;  sum :=0;  While(contatore

Dopo l’esecuzione della seguente porzione di codice: Program principale; Var  a: Integer;  b: Integer; Procedure funzione(Var a: Integer; b: Integer); Var  temp: Integer; Begin  temp:=a;  a:=b;  b:=temp; End; Begin    a:=2;    b:=5;    funzione(a, b); End. Quanto valgono a e b?

Si consideri la seguente funzione: Function trova(bersaglio: Integer; valori: sequenza): Integer; Var    contatore: Integer; Begin    contatore:=1;    While valori[contatore] bersaglio Do       Begin          contatore:=contatore+1;       End;    trova:=contatore-1; End; Essa serve a determinare l’indice in cui si trova un certo valore (rappresentato dal parametro bersaglio) … Leggi tutto

Si consideri la seguente funzione: Type  sequenza = Array[1..100] Of Integer; Function calcola(numero: Integer; vettore: sequenza; i: Integer; j: Integer): Boolean; Var  m, off: Integer; Begin  m:=(i+j) Div 2;  off:=vettore[m]-numero;  If off = 0 Then     calcola:=true  Else If i = j Then     calcola:=false  Else If off > 0 Then     … Leggi tutto

Si consideri la seguente funzione: Function calcola(n: Integer): Integer; Begin  If n = 1 Then     calcola:=1  Else If n = 2 Then     calcola:=n*calcola(n-1)  Else     calcola:=n*calcola(n-1)*calcola(n-2) End; Quale valore restituisce se viene richiamata con parametro 5? Risposte: 120 1400 414720 nessuna delle precedenti.