Altillo.com > Exámenes > ORT > Programación II

Programación II

4° Parcial

Prof: Lipkin 1° Cuat. de 2002 Altillo.com

Dada la siguiente declaración y procedimiento:
Const
  N = 5;

Type
  TyVec = array[1..N] of Integer;

Var
  VECTOR: TyVec;
  IND, CAN, CUN: Integer;

Procedure REC200202 (Var PV: TyVec; K, A, B: Integer; Var C: Real);
  Begin
    If K <= N Then
      Begin
        A: = A+1;
        B: = B + PV[K];
        REC200202 (PV, K+1, A, B, C);
        If PV[K] < C Then
          Begin
            PV[K]: = 0
          End;
      End
    Else
      If A <> 0 Then
        C: = B/A
      Else
        C: = 0.0;
End;

Se pide:
a) Realizar su seguimiento cuando se lo invoca con las siguientes instrucciones y el vector:

VEC

8 4 6 2 5

IND: = 1
CAN: = 0;
CUN: = 0;
MEX: = 0.0;
REC200202 (VEC, IND, CAN, CUN, MEX);
Indicar claramente el valor de las variables locales y globales al procedimiento, las modificaciones en el vector, el momento en que se realizan y las llamadas realizadas.

b) ¿Qué hace el procedimiento REC200202? (No mas de 3 renglones).