OII – Fase Scolastica

Si consideri il seguente frammento di programma: Function B(n: Integer): Integer; Forward; Function A(n: Integer): Integer; Begin    If (n = 0) Then       A:=0    Else If(n Mod 2 = 0) Then       A:=n+B(n)    Else       A:=B(n) End; Function B(n: Integer): Integer; Begin   If(n = 0) … Leggi tutto

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: Function funzione(): Integer; Var    contatore: Integer;    sum : Integer; Begin    contatore:=0;    sum :=0;    While(contatore

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

Si consideri la seguente funzione A() Function B(n: Integer): Integer; Forward; Function A(n: Integer): Integer; Begin    If(n > 1) Then       A:=n*B(n+1)    Else       A:=1 End; Function B(n: Integer): Integer; Begin    If(n > 1) Then       B:=(n-1)*A(n-2)    Else       B:=1 End; Indicare quali … Leggi tutto

Cosa stampa il seguente programma? Program cosa(Input, Output); Function calcola(n: Integer): Integer; Begin   If(n = 1) Then       calcola:=1   Else If(n = 2) Then       calcola:=3   Else If(n = 3) then       calcola:=n+calcola(n-1)   Else       calcola:=n+calcola(n-1)+calcola(n-2) End; Begin   Writeln(calcola(6)); End. Risposte: 41 … Leggi tutto

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

Si consideri il seguente frammento di codice: Var   a: Integer;   b: Integer; Procedure foo(var a: Integer; b: Integer); Var   temp: Integer; Begin   temp:=a;   a :=b;   b :=temp; End; Begin   a:=1;   b:=5;   foo(a, b); End. Quanto valgono le variabili a e b alla fine dell’esecuzione? Soluzione: a=5 … Leggi tutto

Data la seguente porzione di codice: procedure foo(); var   contatore: Integer;   sum      : Integer; begin   sum :=0;   contatore:=1000;   Repeat       sum :=0;       contatore:=contatore-1;       sum :=sum+contatore;   Until(contatore >= 0);   Writeln(sum); End; Quanto vale la variabile sum alla fine dell’elaborazione? … Leggi tutto