PROBLEMI

Dire quale dei programmi seguenti ordina il vettore di interi v contenente n elementi: For i:=1 To n Do   Begin      m:=i;      For j:=i+1 To n Do         If(v[j] < v[m]) Then m:=j;      t:=v[m];      v[m]:=v[i];      v[i]:=t   End; For i:=1 To n Do ... Leggi tutto

Considerate la seguente funzione: Function f(x: Integer): Integer; Begin If(x = 0) Then f:=0 Else f:=(x Mod 2)+f(x Div 2); End; Tale funzione viene eseguita su tutti i valori di x compresi fra 100 e 500. Chiamate a il minimo valore ottenuto in queste esecuzioni, e b il massimo valore. Quanto valgono a e b?

Considerate il seguente frammento di codice: Var i, f: Real; … f:=1/50; i:=0.0; While(i 1.0) Do Begin Write(‘A’); i:=i+f End; Quale dei seguenti effetti ha il ciclo for indicato? Stampa 50 volte il carattere A; Stampa 51 volte il carattere A; Stampa 49 volte il carattere A; Il ciclo potrebbe non terminare, stampando infinite volte … Leggi tutto

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