====== Examen Parcial - 75.40. Algoritmos y Programación I======

**Cátedra:** García, Elena\\ 
**Fecha:** 2ª Oportunidad - 1º Cuatrimestre 2006\\ 
**Día:** 15/06/2007

<note important>
Esta página está incompleta; podés ayudar completando el material.
</note>

===== Enunciado =====

==== Punto I ====

Se realiza una encuesta de satisfacción de clientes de una empresa.
Los datos de la misma se ingresan consignando los siguientes datos por cada encuestado:

  * Zona Geográfica: carácter (Valores permitidos: A,B,C,D,E,F,G,H)
  * Sexo del Encuestado: carácter (1,2,3 o 4)
  * Grado de satisfacción con el servicio: carácter (valores permitidos M,R,B,E,N que corresponden a Malo,     Regular, Bueno, Excelente, No contesta, respectivamente)
  * Día de la encuesta: entero (1 a 20)

Los encuestados no superan las mil personas.

Se pide desarrollar un algoritmo que permita:
  - Cargar los datos de los encuestados; el ingreso se realiza por teclado, se ingresan los 5 datos correspondientes a cada encuestado en forma sucesiva. El fin de datos se determina a través de la consulta por pantalla acerca si se terminaron o no los datos a ingresar. Se validan los datos al ser ingresados no permitiéndose ningún valor fuera de los datos indicados.
  - Al finalizar la carga de datos emitir los siguientes totales:

  * Cantidad de encuestados registrados por cada uno de los 20 días.
  * Zona Geográfica donde el descontento por el servicio es mayor (Mayor porcentaje de respuestas Malo y Regular).
  * Cantidad de encuestados del rango etario 3, que valoran el servicio como Bueno o Excelente.
  * Porcentaje de mujeres de las zonas A,B y C que perteneciendo a un rango etario mayor o igual a 3 valoran el servicio como regular.
  * Mostrar la cantidad de encuestados por zona Geográfica, (hacerlo en forma ascendente según número de encuestados).

==== Punto II ====

Desarrollar un algoritmo recursivo que permita realizar la productoria de los elementos de un arreglo de reales de N componentes (N es un entero mayor o igual a 1).









===== Resolución =====


==== Punto II ====

<code>
function prod(vec: array[1..n] of real;n:integer):real;

begin
   If n:=1 then prod:= vec[1]
   else prod:= vec[n]*prod[vec,n-1];
end;
</code>

===== Discusión =====

<note warning>
Si ves algo que te parece incorrecto en la resolución y no te animás a cambiarlo, dejá tu comentario acá.
</note>