Mese: Ottobre 2014

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

Si considerino i 3 seguenti frammenti di programma, dove le variabili i, k e n sono di tipo Integer, le variabili finito e p sono di tipo Boolean, e n è inizializzata con un valore positivo maggiore di 1: p:=TRUE; finito:=FALSE; i:=2; k:=n; while((Not finito) And (i < k)) Do     begin     ... Leggi tutto

Si consideri il seguente frammento di programma: Var n, i, j, a, b: Integer; Begin a:=0; b:=0; Write(‘Inserire un numero intero: ‘); Readln(n); If(n < 0) Then n:=-n; i:=n; j:=n; While(i > 0) Do Begin a:=a+1; i:=i-1 End; Repeat b:=b+1; j:=j-1 Until(j

Si consideri il seguente frammento di programma: Var   r, c, s: Integer; … Write(‘Inserire un numero intero compreso fra -10000 e 10000: ‘); Readln(r); c:=1; c:=r*c; s:=1; If(c