Mese: Ottobre 2014

Si consideri la seguente procedura: Const   N = 10; Var   vett: Array[0..N-1] Of Integer; Procedure p(); Var   i: Integer; Begin   For i:=0 To N-1 Do     vett[i]:=i;   For i:=0 To N-1 Do     vett[i]:=vett[vett[i] Mod (N-i)] End; Indicare il contenuto di tutti gli elementi del vettore vett[] al … Leggi tutto

È dato il seguente programma: Program E8(Input, Output); Var   mat : Array[1..10, 1..10, 1..10] Of Integer;   i, j, k: Integer; Begin   For i:=1 To 10 Do       For j:=1 To 10 Do         For k:=1 To 10 Do             mat[i,j,k]:=i+j+k-3;   For … Leggi tutto

Cosa restituisce la seguente funzione? Function f(n: Integer): Integer; Var   k: Integer; Begin   k:=2;   While((k*k n) Then     f:=1   Else     f:=0 End; 0 se k<n e 1 altrimenti 1 se n è primo e 0 altrimenti 0 se n è primo e 1 altrimenti 1 se n=k*k e … 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

È dato il seguente programma: Program E12(Input, Output); Function G(a, b: Integer): Integer; Forward; Function F(a, b: Integer): Integer; Begin   If(a = b) Then     F:=b   Else If(a > b) Then     F:= G(a-b, b)   Else     F:=F(b, b-a) End; Function G(a, b: Integer): Integer; Begin   If(a = … Leggi tutto

È dato il seguente programma: Program E11(Input, Output); Function G(x: Integer): Integer; Forward; Function F(x: Integer): Integer; Begin   If(x

È dato il seguente programma: Program E10(Input, Output); Const   N=10; Var   v: Array[1..N] Of Integer;   i: Integer; Procedure p(); Var   i, t, s: Integer; Begin   Repeat   s:=0;     For i:=3 To N-1 Do         If(v[i-1] < v[i]) Then           Begin   ... Leggi tutto

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