Ejercicios de Algoritmos
Ejercicios de Algoritmos
Ejercicios de Algoritmos
1.-Se pide representar el algoritmo que nos calcule la suma de los N primeros nmeros
pares. Es decir, si insertamos un 5, nos haga la suma de 6+8+10+12+14.
1
2
3
4
5
6
7
8
9
10
11
12
13
PSeInt:
1
Proceso ejercicio_14
2
Leer N
3
contador<-0
4
limite<-N
5
Mientras (contador<limite) Hacer
6
si (N MOD 2=0) Entonces
7
suma<-N+suma
8
contador<-contador+1
9
FinSi
10
N<-N+1
11
FinMientras
12
Escribir suma
13 FinProceso
2.-Dada una secuencia de nmeros ledos por teclado, que acabe con un 1, por
ejemplo: 5,3,0,2,4,4,0,0,2,3,6,0,,-1; Realizar el algoritmo que calcule la media
aritmtica. Suponemos que el usuario no insertara numero negativos.
Var num, contador, suma: numerica
Inicio
Leer num
suma<-0
contador<-1
Mientras (num<>-1) Hacer
suma<-suma+num
contador<-contador+1
Leer num
FinMientras
Escribir suma/(contador-1)
Fin
PSeInt:
1
Proceso ejercicio_15
2
Leer num
3
suma<-0
4
contador<-1
5
Mientras (num<>-1) Hacer
6
suma<-suma+num
7
contador<-contador+1
8
Leer num
9
FinMientras
10
Escribir suma/(contador-1)
11 FinProceso
Ejercicios de Pseudocdigos
1.-Escribe una funcin en pseudocdigo que devuelva el rea de un crculo dado su
radio. Recuerda que para calcular el rea, la frmula es * r2
1
Funcion area_circulo (radio: numerico):numerico
2
Var area: numerico
3
Inicio
4
PI<-3.14
5
area<-PI*(radio^2)
6
devolver area
7
Fin-Funcion
8
9
Algoritmo principal
10 Var radio, area: numerica
11 Inicio
12
escribir "Escribe el radio"
13
leer radio
14
area<-area_circulo(radio)
15
escribir area
16 Fin
PseInt:
1
SubProceso area <- area_circulo ( radio )
2
PI<-3.14
3
area<-PI*(radio^2)
4
FinSubProceso
5
6
Proceso ejercicio_funciones_3
7
Escribir "Escribe el radio"
8
leer radio
9
area<-area_circulo(radio)
10
11
Escribir area
FinProceso