OII – Fase Scolastica

Si consideri il seguente frammento di programma: Var   i, j: Integer; Begin   i:=3;   j:=0;   Repeat       i:=(i + 2*i) Mod 10;       j:=j+1   Until(i = 7);   Writeln(‘j=’,j) End. Cosa viene visualizzato a video dall’esecuzione del programma?

Si consideri il seguente frammento di programma: Var   M: Array [1..3,1..3,1..3] Of Integer;   i, j, k: Integer; Begin   For i:=1 To 3 Do       For j:=1 To 3 Do         For k:=1 To 3 Do             M[i,j,k] := i+k-2;   For i:=1 … Leggi tutto

Si consideri il seguente frammento di programma: Var   a, b, c: Integer; Begin   a:=3;   b:=2;   c:=a*b Div 4*(a Div b)*4 + a*(b Div 4*a) Div (b*4);   Writeln(‘c=’, c) End. Cosa viene visualizzato a video dall’esecuzione del programma principale?

Si consideri il seguente frammento di programma: Var   a, b: Integer; Procedure foo(Var a: Integer; b: Integer); Begin   b:=b*a;   a:=a*b End; Begin   a:=2;   b:=3;   foo(a,b);   foo(b,a);   Writeln(‘a=’, a,’, b=’, b) End. Cosa viene visualizzato a video dall’esecuzione del programma principale?

Si consideri il seguente frammento di programma: Var   a, b, c, d: Integer; Begin   a:=3;   b:=2;   c:=2*a Div b;   d:=2*(a Div b);   Writeln(c*d) End. Quale tra i seguenti valori viene visualizzato a video dall’esecuzione del programma principale? Risposte: 4 9 6 5

È data la seguente funzione: Function foo(): Integer; Var   i, sum: Integer; Begin   sum:=0;   For i:=10 DownTo 0 Do      sum:=sum+i+(10-i);   foo:=sum End; Quale tra i seguenti valori viene restituito dalla funzione foo()? Risposte: 100 110 10 90.

Si consideri il seguente frammento di programma: Var   T: Array[0..13] of Integer; Function f(D, k: Integer): Integer; Var i, j, ris: Integer; Begin   i:=0;   j:=D-1;   ris:=0;   While(i < j) Do      If(T[i]+T[j] > k) Then       Begin            ris:=ris+1;          … Leggi tutto

Si consideri il seguente frammento di programma: Function succ(i: Integer): Integer; Begin   If(i

Si consideri il seguente frammento di programma: Const   D=10; Var   i: Integer;   M: Array [0..D-1] Of Integer; Begin   For i:=0 To D-1 Do       M[i]:=9*i;   Write(‘Sequenza=’);   For i:=0 To D-1 Do       If(M[i] Mod (i+1) = 0) Then         Write(‘ ‘, M[i] … Leggi tutto

Si consideri il seguente frammento di programma: Var   a, b, c, d, e, n, m: Integer; Begin   a:=4;   b:=5;   c:=6;   d:=7;   e:=8;   n:=a Mod b * c Mod d Div e;   m:=(a Mod b) * (c Mod d) Div e;   Writeln(‘n=’, n, ‘ m=’, m) End. … Leggi tutto