1. Realice un subprograma que calcule la suma de los
elementos de una progresión geométrica, conociendo
el primer término, la razón y el número de términos.
2. Elabore un programa en Pascal que permita verificar
si un número natural “N” es capicúa o no.
Nota: “Un número es capicúa si al leerse en forma
invertida, resulta el mismo número”.
3. Se tiene la siguiente función f (x):
f (x) =
10x,K)1x(f
10x5,x
5x0,!x
2
Elabore un programa en Pascal que permita calcular
f (x), siendo “x” y “K”, números naturales.
Nota. Deberá implementar, al menos, una función
dentro del programa.
4. Desarrollar un subprograma que calcule la potencia
de un número para un exponente entero.
5. Elabore en Pascal que permita simular el siguiente
juego:
El juego tendrá 2 fichas (una blanca y una negra)
que se desplazarán en 100 casilleros
consecutivos.
Cada ficha avanzará, según sea su turno; el
número de lugares que indique el resultado de
tirar un dado, pudiendo darse el caso que ambas
fichas caigan en el mismo lugar en algún
momento.
El juego culminará cuando alguna de las 2 fichas
llegue exactamente a la casilla 100, en caso de
excederse deberá retroceder una cantidad de
lugares igual al exceso cometido.
Al final se deberá indicar cuál es la ficha ganadora.
6. Escriba un programa que convierta una cantidad S de
soles en el menor número de billetes de 100, 50, 20 y
10 dólares, usando el procedimiento.
Convierte (S : Integer; Var D100, D50, D20, D10,
RestoS : Integer)
de manera que en D100, D50, D20 y D10 se obtengan
los respectivos números de billetes convertidos y en
RestoS, la cantidad de soles sobrantes o a devolver.
Se asume que cada dólar se cambia por 3.50 soles.
El programa lee la cantidad de soles a ser convertida,
luego ejecuta el procedimiento e imprime los números
de billetes de cada denominación y el monto a
devolver, solamente si éstos son positivos.
7. Realizar un subprograma que calcule la suma de n
números invertidos. Ejemplo: de 254 452
8. Realice un programa que calcule la siguiente suma:
S = 1! + 2! + 3! + 4! + .... n!
El programa deberá contar con funciones y
procedimientos de lectura y escritura
9. Sumar n números en base b menor que 10.
- 1 -
Av. Universitaria 1875
Teléfono: 261-8730