OII – Fase Scolastica

È dato il seguente programma: Program E9(Input, Output); Var   vett: Array[0..9] Of Integer;   i : Integer; Procedure scambia(Var a, b: Integer); Var   c: Integer; Begin   c:=a;   a:=b;   b:=c End; Begin   For i:=0 To 9 Do       vett[i]:=i;   For i:=9 DownTo 0 Do       … Leggi tutto

È 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:=2 To N-1 Do         If(v[i-1] > v[i]) Then         … Leggi tutto

È dato il seguente programma: Program E11(Input, Output); Function f (i: Integer): Integer; Begin   If(i

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