2002/03 – Fase scolastica – 06

Cosa stampa il seguente programma Pascal?

Program Stampa(input, output);
Type
   vett=array[0..4] of Integer;
Var
   N, M, I, bit, dim: Integer;
   V                : vett;
Function F(Var W: vett; dim: Integer; bit: Integer): Integer;
Var
   I: Integer;
Begin
   I:=0;
   While I < dim Do
      Begin
         W[I]:=W[I]+I;
         bit:=1;
         I:=I+2;
         F:=I
      End
End;
Begin
   For I:=0 To 4 Do
      V[I]:=I+1;
   N:=4;
   M:=5;
   bit:=0;
   Write(F(V, M, bit));
   For I:=N DownTo 1 Do
      Write(V[i]);
   Writeln;
   Writeln('bit=', bit);
End.

Risposte:

1. 6 9 4 5 2
   bit=0
2. 5 1 2 3 4
   bit=1
3. 6 5 4 3 2
   bit=0
4. 7 5 3 4 1
   bit=0.