Mese: Ottobre 2014

Considerate il seguente frammento di programma: Var a, b: Integer; Procedure f1(Var p: Integer; Var c: Integer); Begin p:=c; End; Procedure f2(Var p: Integer; Var c: Integer); Begin p:=b; End; Procedure f3(Var p: Integer; Var c: Integer); Begin p:=b; End; Procedure f4(Var p: Integer; Var c: Integer); Begin c:=b; End; Dite quale delle seguenti chiamate … Leggi tutto

Qual è il ciclo corretto per calcolare in n il numero di elementi di valore intero e dispari in un vettore dichiarato come v: Array [1..MAX] Of Real; For i:=1 To MAX Do   If(odd(v[i])) Then     n:=n+1; For i:=1 To MAX Do   If(v[i] Mod 2 0) Then     n:=n+1; For i:=1 … Leggi tutto

Sia dato il seguente frammento di codice: Var a, b: Integer; …. If(a > 0) Then If(b > 0) Then Writeln(‘ok’) Else Writeln(‘ok’); Discutere l’effetto dell’esecuzione di tale istruzione al variare di a e b.

Cosa stampa il seguente programma? Var x, y: ^Integer; Begin New(x); New(y); y^:=3; x^:=2; x:=y; y^:=y^+1; Writeln(x^+y^) End.

Determinare T e X in modo tale che il programma renda uguali a 0 gli elementi delle due diagonali di una matrice quadrata A di nxn interi. For i:=1 To n Do  Begin       A[i, T]:=0;       A[i, X]:=0 End; Ad esempio A={{1, 2, 3, 4}, {2, 3, 4, 5}, {3, … Leggi tutto

Quale sarà il contenuto del vettore V al termine del ciclo se è V={1, 21, 31, 4, 51, 6} e n=6? t:=n div 2; For i:=1 To t Do   Begin      temp:=V[i];      V[i]:=V[n-i+1];      V[n-i+1]:=temp   End;

Determinare quale è la relazione che assume valore vero quando x è esterno all’intervallo [A, B] e y è interno allo stesso intervallo? (xB) And (y>=A) And (y=A) And (y=A) Or (y=A) Or (y=A) Or (y=A) And (y

Cosa stampa il seguente programma? Type    r = Record       x,y: Integer;    End; Var    x, z: Integer;    y : r; Begin    z:=3;    With y Do       Begin          x:=3;          y:=5;          z:=5       … Leggi tutto