Algoritmos y Programación en Pascal

282 Capítulo 13. Registros
13.3 Ejercicios
1. Defina un tipo de datos para manejar fechas, incluyendo la información usual para
un día cualquiera del calendario: el número de día dentro del mes, el día de la
semana, el mes y el año, y con él, los siguientes subprogramas:
(a) Lectura y escritura.
(b) Avance (que pasa de un día al siguiente), con ayuda de una función que
indica el número de días de un mes de un cierto año.
(c) Distancia entre fechas, usando la función avance.
2. Considérese una representación de los números reales mediante su signo, positivo
o negativo, su parte entera, formada por N dígitos (por ejemplo, 25) de cero a
nueve y por su parte decimal, formada por NDEC cifras (por ejemplo, 5).
(a) Defina en Pascal este tipo de datos.
(b) Defina procedimientos apropiados para su lectura y escritura.
(c) Defina un subprograma para sumar reales, controlando el posible desbordamiento.
(d) Defina un subprograma para comparar reales.
3. (a) Defina un tipo de datos registro que permita almacenar un punto del plano
real y un tipo vector formado por tres registros del tipo anterior. 2
(b) Escriba un subprograma que determine si los tres puntos almacenados en
una variable del tipo vector forman un triángulo.
(c) Escriba un subprograma tal que, si tres puntos forman un triángulo, calcule
su área aplicando la fórmula de Herón (véase el ejercicio 6 del capítulo 4).
4. (a) Defina un tipo registro que permita almacenar un ángulo dado en forma de
grados (sexagesimales), minutos y segundos.
(b) Escriba dos subprogramas, el primero para convertir un ángulo dado en
radianes en una variable del tipo registro anterior, y el segundo para realizar
la conversión inversa. En el primero se tendrá en cuenta que el resultado
debe tener el número de grados inferior a 360 o , el de minutos inferior a 60’
y el de segundos inferior a 60”.
5. La posición de un objeto lanzado con velocidad inicial v y con ángulo α con
respecto a la horizontal, transcurrido un cierto tiempo t, puede expresarse (despreciando
el rozamiento) con las siguientes ecuaciones:
x = vt cos α y = vt sen α − 1
2 gt2
donde g es la aceleración de la gravedad (9.8m/seg 2 ).
(a) Defina un registro que almacene la velocidad inicial y el ángulo α.
2 Obsérvese que ésta es una definición alternativa a la de arrays, tal vez más apropiada por ser
las componentes del mismo tipo.