Algoritmos y Programación en Pascal

118 Capítulo 6. Instrucciones estructuradas
3. Escriba un programa que lea un carácter, correspondiente a un dígito hexadecimal:
’0’, ’1’,..., ’9’, ’A’, ’B’,..., ’F’
y lo convierta en el valor decimal correspondiente:
0, 1,..., 9, 10, 11,..., 15
4. Para hallar en qué fecha cae el Domingo de Pascua de un anno cualquiera, basta
con hallar las cantidades a y b siguientes:
a:= (19 * (anno mod 19) + 24) mod 30
b:= (2 * (anno mod 4) + 4 * (anno mod 7) + 6 * a + 5) mod 7
y entonces, ese Domingo es el 22 de marzo + a + b días, que podría caer en abril.
Escriba un programa que realice estos cálculos, produciendo una entrada y salida
claras.
5. Considere el siguiente fragmento de programa válido en Pascal:
...
if P then if Q then if x < 5 then WriteLn(’a’) else
WriteLn(’b’) else if x < y then WriteLn(’c’) else
WriteLn(’d’) else if x < 0 then if Q then WriteLn(’e’)
else WriteLn(’f’) else if Q then WriteLn(’g’)
else WriteLn(’h’)
...
siendo P, Q: boolean y x, y: integer.
(a) Reescríbalo usando una disposición más clara.
(b) Siendo P ≡ x < 3 y Q ≡ y < x, detecte y suprima las condiciones redundantes.
(c) Detecte y suprima las condiciones redundantes, asumiéndose que en la entrada
la siguiente sentencia es cierta:
(P = ¬Q) ∧ (x < y < 0)
6. El cuadrado de todo entero positivo impar se puede expresar como 8k + 1, donde
k es entero positivo; por ejemplo
. . . , 3 2 = 8 ∗ 1 + 1, 5 2 = 8 ∗ 3 + 1, . . .
Sin embargo, algunos valores de k no producen cuadrados, como k = 2 que da
17. Se pide un programa que lea un número entero y lo clasifique según las
posibilidades de los siguientes ejemplos,