Algoritmos y Programación en Pascal

5.6. Ejercicios 81
5.6 Ejercicios
1. Escriba programas que den cada una de las siguientes salidas:
***** * *
***** * ***
***** * *****
***** * *******
***** * *
2. Enmiende los errores cometidos en la escritura del siguiente programa:
program Par-o-impar (imput); {Este programa
pide un entero: si es par contesta "TRUE", y si
no, "FALSE" } beguin {datos} Write(’Dame un
entero y averigüaré si es par); ReadLn(n);
{cálculos} esPar:= not odd n {resultados}
WriteLn(’Solución: ’ esPar); end
3. Escriba un programa para cada uno de los siguientes problemas, documentándolo
debidamente. Incluir además bajo el encabezamiento la información concerniente
al autor (código, grupo, nombres, etc.), así como la fecha de realización. Una vez
acabados, obténgase una copia escrita de ellos.
(a) Solución de una ecuación de la forma ax + b = 0, supuesto a=0.
(b) Lectura de los coeficientes a, b y c de una ecuación de segundo grado
ax 2 + bx + c = 0 y cálculo de sus raíces, en los siguientes casos:
i. Suponiendo que las raíces son reales. Ejecutarlo con los siguientes juegos
de datos:
1 2 1
1 0 -1
1 0 0
ii. Suponiendo que son imaginarias. Ejecutarlo con el siguiente juego de
datos:
1 1 1
(c) Desarrolle un programa que, para una cierta cantidad de dinero (en pesetas),
da el cambio apropiado, en billetes de mil, monedas de quinientas, de cien,
de veinticinco, de duro y de peseta.
⎧
⎨ bill1000
cantidad
mon100
⎩ resto1000
resto100 . . .
(d) Convierta una cantidad de tiempo (en segundos, Z), en la correspondiente
en horas, minutos y segundos, con arreglo al siguiente formato:
3817 segundos = 1 horas, 3 minutos y 37 segundos