2001/02 – Fase scolastica bis – 05

Considerate il seguente frammento di programma: t:=-1; For i:=1 To n Do    If f(i) Then       t:=i; If t >= 0 Then    WriteLn(t); Quale delle seguenti affermazioni è corretta? Il programma cerca e stampa il più piccolo intero x fra 1 e n tale che f(x)=true; se tale intero non esiste, … Leggi tutto

2001/02 – Fase scolastica bis – 03

Dire quale dei frammenti di programma seguenti calcola in j (che è di tipo real) la media del vettore di interi positivi v contenente n elementi, posto che j sia inizializzato a zero: For i:=1 To n Do j:=v[i]; j:=j/n; For i:=1 To n Do j:=j+v[i]; j:=j/n; For i:=1 To n Do j:=j+v[i];

2001/02 – Fase scolastica – 08

Il seguente frammento di programma è stato scritto per effettuare la ricerca di un elemento identificato dalla variabile chiave in array ordinato (in ordine crescente) vett con n componenti intere. Se l’elemento chiave è presente nell’array allora il programma deve fornire nella variabile posizione il valore di un indice dell’array il cui valore è pari … Leggi tutto

2001/02 – Fase scolastica – 07

Supponete di dover memorizzare una matrice quadrata con N righe e N colonne di numeri interi diversi fra loro (con N<=10), e di poterlo fare o usando un array a due dimensioni con 10×10 componenti sia per le righe che per le colonne, oppure utilizzando una lista, in cui ogni nodo contiene tre interi (i … Leggi tutto

2001/02 – Fase scolastica – 06

Considerate il seguente frammento di programma Pascal: Type  s = Set Of 1..5; Var  x : Array [1..5,1..5] Of Integer;  i, j: Integer;  z : s; Begin  For i:=1 To 5 Do     For j:=5 DownTo 1 Do         x[i, j] := sqr(i*j);  z:=[2,4];  For i:=5 DownTo 1 Do     … Leggi tutto

2001/02 – Fase scolastica – 05

Dato il seguente frammento di programma: Var  a, b: Array[1..5] of Integer;  i, j: Integer;  k : Boolean; Begin  a[1]:=10; a[2]:=7; a[3]:=4; a[4]:=2; a[5]:=1;  b[1]:=3;  b[2]:=2; b[3]:=5; b[4]:=6; b[5]:=4;  For i:=1 To 5 Do       Begin        k:=true;        For j:=5 DownTo 1 Do           … Leggi tutto

2001/02 – Fase scolastica – 04

Considerate il seguente frammento di programma Pascal Const  n=4; Type  range=1..10;  srange=set of range;  vett=array [1..n] of range; Var  v1, v2: vett; Function f(v: vett): srange; Var  s: srange;  i: range; Begin  s:=[];  For i:=1 To n Do     s:=s+[v[i]];  f:=s End; Begin  …  For i:=1 To 10 Do       If i … Leggi tutto

2001/02 – Fase scolastica – 03

Cosa stampa il seguente frammento di programma? Function f(Var a: Integer; b: Integer): Integer; Begin    a:=a+b;    b:=a+b;    f:=a+b End; Var  a,b,c: Integer; Begin    a:=1;    b:=2;    c:=f(a,b);    c:=c+a+b;    WriteLn(c) End.