Mese: Ottobre 2014

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

Dato il seguente codice Var   a: Integer;   b: Integer;   x: Integer; Function foo(a: Integer; b: Integer ): Integer; Begin   foo:=b-a; End; Begin   a:=3;   b:=5;   x:=0;   x:=foo(b,a)+a-b; End. Quanto vale la variabile x alla fine dell’esecuzione? Risposte: 0 2 -4 nessuna delle precedenti. Soluzione: c (-4). Soluzione Soluzioni … Leggi tutto

Si consideri il seguente frammento di codice: Const   DMAX = 5; Type   TMAT = Array[1..DMAX,1..DMAX] Of Integer; Var   M: TMAT;   i: Integer; Procedure esegui(Var M: TMAT; C, R1, R2: Integer); Var   i: Integer; Begin   For i:=1 To C Do       M[R1,i]:=M[R1,i]+M[R2,i]; End; Begin   For i:=1 To … Leggi tutto

Si consideri la seguente funzione: Function ricorsiva(N: Integer): Integer; Begin   If(N > 1) Then       ricorsiva:=N*ricorsiva(N-1)   Else       ricorsiva:=1 End; Indicare qual è il valore restituito dall’invocazione di ricorsiva(5) Risposte: 5 20 120 nessuno dei precedenti. Soluzione: c (120). Soluzione Soluzioni commentate Dato un intero N non negativo, N! … Leggi tutto