Sezione di VALCON.IT
Si consideri il seguente programma: Program main(Output); Const DMAX = 5; Type TMAT = Array[1..DMAX, 1..DMAX] Of Integer; TVET = Array[1..DMAX] Of Integer; Var M: TMAT; I: Integer; Procedure ES2(Var M: TMAT; R, C: Integer); Var I, K: Integer; V: TVET; Begin For I:=1 To R … Leggi tutto
Si consideri la seguente funzione Function ES1(a, b: Integer): Integer; Var k, p, j: Integer; begin k:=1; p:=0; While k
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), ‘ ‘, mistero(3, … 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 45 49 nessuna delle precedenti.
Cosa stampa il seguente programma, con input 5? Program cosa(Input, Output); Var x : Integer; y, z: Real; Begin x:=0; y:=0; Read(z); Repeat x:=x+1; y:=y+1/x; Until y > z; Write(x) End. Risposte: 5 12 25 nessuna delle precedenti.
Si consideri la seguente funzione: Function f(n: Integer): Integer; Begin If(n = 0) Then f:=0 Else If(n Mod 2 = 0) Then f:=2*f(n Div 2) Else f:=2*f(n dDiv 2)+2; End; Indicare qual è il valore restituito dall’invocazione f(f(2)) Risposte: 2 4 6 nessuna … Leggi tutto
Considerate le seguenti sei funzioni, con argomento N (un intero non negativo). Ciascuna di esse calcola un qualche valore scelto tra: N, 2N , N2, N3, 2N, N!. Dovete stabilire qual è il valore calcolato da ogni funzione. Function A(N: Integer): Integer; Begin If N > 0 Then A:= 2*A(N-1) … Leggi tutto
Si consideri la seguente funzione: Const N = 5; Var vett1: Array[1..N] Of Integer; vett2: Array[1..N] Of Integer; Procedure calcola(); Var i, temp: Integer; Begin For i:=1 To N Do vett1[i] := N+1-i; For i:=1 To N Do Begin temp:=vett1[i]; vett2[temp]:=i-1; End End; … Leggi tutto
Quale dei seguenti valori di a e b produce il valore vero per la condizione: (a > 0) And ((b < 0) Or (b > 1)) Risposte: a=5; b=0 a=5; b=2 a=-1; b=5 a=1; b=1.
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 sono i valori restituiti dalle invocazioni A(1), A(2), … Leggi tutto