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

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:

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

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

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;