Oahsdhaskjdh

Algoritmos y Estructuras de Datos Práctica 3

ALGORITMOS Y ESTRUCTURAS DE DATOS

Ejercicios Resueltos
CUADERNILLO DE PRACTICA TERCERA PARTE

1

Algoritmos y Estructuras de Datos Práctica 3SUBPROGRAMAS

Ejercicio Resuelto: Escribir un programa que calcule la expresión:

∑x
0

N

i

=

para cualquier par de valores de n y x. Para evaluar cada uno de los términos de lasumatoria, crear y utilizar una función POTEN que tenga como parámetros la base x y el exponente i. Exhibir x, n y el resultado de la sumatoria. Chapín
Funcion poten(BAS: real; EX: integer): real; Ejer1Leer( n, x) sumaß 0 para i = 0 a n sumaß suma + poten (x, i) mostrar( x, n, suma) pß 1 para e= 1 a ex pß p * bas potenßp

Programa Pascal. PROGRAM EJER1 (input, output); VAR N, I: INTEGER; X, SUMA:REAL; FUNCTION POTEN (BAS: REAL; EX: INTEGER) : REAL; VAR P: REAL; E: INTEGER; BEGIN P:= 1; FOR E:= 1 TO EX DO P:= P * BAS; POTEN:= P END; BEGIN WRITE ('INGRESE EXTREMO SUMATORIA Y NRO'); READLN (N,X); SUMA:= 0; FOR I:= 0 TO N DO SUMA:= SUMA + POTEN(X, I); WRITELN ('LA SUMATORIA DE LOS TERMINOS DE BASE',X:3:2); WRITELN ('DESDE POTENCIA 0 A POTENCIA', N); WRITE ('ES IGUAL A', SUMA:10:2) END.

2Algoritmos y Estructuras de Datos Práctica 3

Ejercicio Resuelto: Escribir un programa en Pascal que reciba un numero del 1 al 12 desde el teclado y muestre el número de dias correspondiente almes que corresponda con ese día (usar funciones).
Chapín FUNCION dia_mes (i: INTEGER): INTEGER; i 1,3,5,7,8,10,12 dia_mes ß 31 4,6,9,11 2 dia_mes ß 30 dia_mes ß 28

Ejer2 mostrar('Introduzca unnumero del 1 al 12: ') leer (mes) V (mes < 1) o (mes > 12) mostrar('El numero introducido no corresponde a ningun mes.') V Mostrar(' o 29 si es año bisiesto') mostrar('El mes tiene ',dia_mes(mes),'dias.')

F

mes = 2

F

Programa Pascal. PROGRAM EJER2 (input, output); VAR mes: INTEGER; FUNCTION dia_mes (i: INTEGER): INTEGER; BEGIN CASE i OF 1,3,5,7,8,10,12: dia_mes := 31; 4,6,9,11:...