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 |
|
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).