OII – Fase Scolastica

Si consideri la seguente funzione: Function f(n: Integer): Integer; Var   i: Integer; Begin   i:=1;   While(n > 0) Do     Begin         n:=n-i;         i:=i+2     End;   If(n=0) Then     f:=1   Else       f:=0 End; Cosa restituisce la funzione se … Leggi tutto

È dato il seguente programma: Program E8(Input, Output); Var   i, j: Integer; Function max (a, b: Integer): Integer; Begin   If(a > b) Then       max:=a   Else       max:=b End; Function f(a, b: Integer): Integer; Begin   If(a = 0) Then     f:=b   Else       … Leggi tutto

È dato il seguente programma: Program E7(Input, Output); Var   f: Array[1..10] Of Integer;   i: Integer; Begin   f[1]:=5;   f[2]:=3;   For i:=1 To 8 Do     f[i+2]:=f[i+1]-f[i];   For i:=1 To 10 Do     Write(f[i], ‘, ‘) End. Cosa viene visualizzato a video dall’esecuzione del programma ? 5, 3, -2, … Leggi tutto

È 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