Mese: Ottobre 2014

È dato il seguente programma: Program E6(Input, Output); Var   i,c: Integer; Begin   c:=0;   i:=0;   While i < 100 Do      Begin          c:=c+1;          If(c mod 2 0) Then           i:=i+1          Else         ... Leggi tutto

Si consideri la seguente funzione: Function A(a: Integer; b: Integer): Integer; Var  p: Integer; Begin  p:=0;  While a > 0 Do       Begin         If a Mod 2 = 1 Then             p:=b+p;         a:=a Div 2;         b:=2*b; … Leggi tutto

Si consideri la seguente funzione: Function A(n: Integer; m: Integer): Integer; Begin  If n = 0 Then     A:=1  Else     If n Mod 2 = 0 Then        A:=A(n Div 2, m)*A(n Div 2, m)     Else        A:=m*A(n-1, m) End; Dire quale sarà il valore tornato … Leggi tutto

Si consideri la seguente funzione conta() che prende in input un vettore di numeri di lunghezza n (assumendo che n sia compreso fra 2 e 100): Type   sequenza = Array[1..100] Of Integer; Function conta(vett: sequenza; n: Integer): Integer; Var  i, j, k: Integer; Begin  i:=0;  k:=0;  j:=1;   For i:=1 To n-1 Do   … Leggi tutto

Si considerino le due seguenti funzioni: Function A(n: Integer): Integer; Begin    If n > 0 Then       A:=n+A(n-1)    Else       A:=0 End; function B(n: integer): integer; begin    B := (n*(n+1) div 2) end; Quale delle seguenti affermazioni è vera? Risposte: la funzione A calcola il fattoriale di un … Leggi tutto

Si consideri il seguente frammento di programma: Type    vettore = Array [1..10] Of Integer;    vettore2 = Array [1..20] Of Integer; Procedure quack(Var a: vettore; Var b: vettore; Var c: vettore2; l: Integer); Var    i, j, k: Integer; Begin    i:=1;    j:=1;    k:=1;    While k

Cosa stampa il seguente programma? Program Test(Input, Output); Var  a,b,c: Integer; Function prova(x: Integer; Var y:Integer): Integer; Begin  x:=x+y;  y:=x+2;  prova:=x End; Begin  a:=11;  b:=1;  c:=prova(a, b);  WriteLn(‘a =’, a, ‘; b =’, b, ‘; c = ‘, c, ‘;’); End. Risposte: a=11; b=1; c=12; a=11; b=1; c=14; a=12; b=14; c=14; a=11; b=14; c=12; Risposta: … 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!, NN. Dovete stabilire qual è il valore calcolato da ogni funzione. FUNCTION A(N: INTEGER): INTEGER; BEGIN IF N > 0 THEN A:=A(N-1)+A(N-1) ELSE A:=1 END; FUNCTION B(N: … Leggi tutto

Cosa stampa il seguente programma Pascal? Program Stampa(input, output); Type  vett=array[0..4] of Integer; Var  N, M, I, bit, dim: Integer;  V : vett; Function F(Var W: vett; dim: Integer; bit: Integer): Integer; Var  I: Integer; Begin  I:=0;  While I < dim Do      Begin        W[I]:=W[I]+I;        bit:=1;     ... Leggi tutto

Considerate il seguente frammento di programma, dove n contiene un intero non negativo (si noti che in Pascal l’operatore AND sugli interi funziona bit a bit, come in Turbo Pascal); che cosa viene stampato? IF(N MOD 2) (N AND 1) THEN    WRITELN(‘vero’) ELSE    WRITELN(‘falso’); Risposte: Viene stampato vero se n è pari, e … Leggi tutto