Mese: Ottobre 2014

2011/12 – Fase scolastica – 12

di

È dato il seguente programma: Program E12(Input, Output); Var   T: Array[0..7] Of Integer; Procedure f(i, dim: Integer); Begin   If(i < dim) Then   Begin         f(2*i+1, dim);         Write(T[i]);         f(2*i+2, dim)     End; End; Begin   T[0]:=1;   T[1]:=2;   T[2]:=3;   ... Leggi tutto

2011/12 – Fase scolastica – 10

di

Si consideri il seguente frammento programma: Program E10(Input, Output); Var R : Array[1..N] Of Integer; Var i, j, c, k: Integer; Begin   i:=1;   j:=9;   c:=0;   While(i < j) Do     Begin         If(R[i]+R[j] > k) Then         Begin             … Leggi tutto

2011/12 – Fase scolastica – 08

di

È dato il seguente programma: Program E8(Input, Output); Const   nrig=5;   ncol=5; Var   i, j: Integer;   m : Array[0..nrig-1, 0..ncol-1] Of Integer; Begin   For i:=0 to nrig-1 do      For j:=0 to ncol-1 do         m[i, j]:=i*j+j;   For j:=ncol-1 downto 0 do     Begin   … Leggi tutto

2011/12 – Fase scolastica – 07

di

È dato il seguente programma: Program E7(Input, Output); Var   x, y: Integer; Procedure alfa(Var x: Integer; y: Integer); Begin   y:=x*y;   x:=x*y End; Procedure beta(Var x: Integer; y: Integer); Begin   x:=x*y;   y:=x*y End; Begin   x:=3;   y:=3;      alfa(x, y);   write(‘x=’, x);    write(‘ y=’, y);   x:=3;  … Leggi tutto

2011/12 – Fase scolastica – 06

di

È 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   End;   Writeln('c=', c); End. Cosa viene visualizzato a video dall’esecuzione ... Leggi tutto

2012/13 – Fase scolastica – 09

di

È 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

2012/13 – Fase scolastica – 10

di

È 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