Ejercicio 1
A partir de la siguiente estructura de datos:
const
MaxLongCad = 255;
FinCad = ‘@’;
type
tpCadV = array[1..MaxLongCad+1] of char;

en la que una cadena de caracteres se representa mediante un vector de caracteres
(comenzando desde la posición 1 hasta la aparición del carácter especial FinCad que
no se considerará como parte de la cadena), desarrollar en Pascal los siguientes
procedimientos y funciones:

procedure LeerCadena (var cad: tpCadV);
{lee de teclado una cadena de caracteres finalizada por el carácter FinCadena y la devuelve a través del
parámetro cad}

procedure EscribirCadena (cad: tpCadV);
{escribe en pantalla la cadena de caracteres pasada a través del parámetro cad}

procedure ConcatenarCadenas (cad1, cad2: tpCadV; var cad: tpCadV);
{devuelve a través de cad la cadena de caracteres resultante de concatenar las cadenas cad1 y cad2}

function LongitudCadena (cad: tpCadV): integer;
{devuelve el número de caracteres de la cadena cad}

Pregunta 1: ¿Es necesario definir la dimensión de vector como se ha hecho o podría
hacerse con una componente menos?

Ejercicio 2
Un grupo de compañeros de trabajo quiere concretar una fecha para reunirse a comer durante el
próximo mes de diciembre. Como pueden ser muchos compañeros y cada uno de ellos tiene
comprometidas un buen número de fechas de dicho mes, se pide desarrollar un programa Pascal
que indique las posibles fechas en las que celebrar la comida de confraternización.
Cada compañero de trabajo escribirá las fechas que tiene comprometidas como una secuencia de
enteros finalizada con un fin de línea. Habrá tantas líneas como asistentes a la comida. Para
determinar el final de la introducción de fechas comprometidas, se introducirá el valor cero (marca de
finalización). A partir de ese momento, el programa deberá calcular las posibles fechas para la
celebración de la comida.

Dada la siguiente la entrada de datos

9 5 12 21 24 22
2 9 18 19 25 29 30 31
1 3 10 11 12 22
27 15 16 17 5
0

El resultado de la ejecución sería:

Número de asistentes: 4

Las posibles fechas para la celebración de la comida son:

4 6 7 8 13 14 20 23 26 28


Sugerencia: Utilizar la función eoln, que devuelve true si no hay datos en la línea actual del buffer
de la entrada estándar (teclado) o false en caso contrario (hay datos en la línea).