Mese: Ottobre 2014

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.

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 il seguente frammento di programma Type  sequenza = array[1..100] of integer; Function verifica(vett: sequenza; n: Integer): Boolean; Var  i, j : integer;  appoggio: sequenza; Begin  j:=1;  For i:=1 To n Do      If(j = 0) Then         Begin            appoggio[j]:=vett[i];            … Leggi tutto

Si consideri il seguente frammento di programma Type    sequenza = Array[1..100] Of Integer; Function calcola(vett: sequenza; n: Integer): Integer; Var  i, y, x: Integer; Begin  y:=0;  x:=vett[1];  For i:= 1 To n-1 Do    Begin       If(x < vett[i+1]) Then          Begin             y:=vett[i+1]-x+y; ... Leggi tutto