Taller Práctico Ciclo
FOR
Diseñar un programa que resuelva los ejercicios propuestos indicados por el
tutor (Validar con el docente que ejercicios resolver en el foro de
acompañamiento permanente o sesiones de clase) a través de diagramas de
flujo, Seudocódigo y su respectiva prueba de escritorio, utilizando las formas y
procedimientos adecuados.
1. Leer un número entero y mostrar todos los enteros comprendidos entre 1
yel número leído.
2. Leer un número entero y mostrar todos los pares comprendidos entre 1 y
elnúmero leído.
3. Leer un número entero y determinar a cuánto es igual la suma de todos
los
enteros comprendidos entre 1 y el número leído.
4. Leer un número entero y determinar a cuánto es igual al promedio
detodos los enteros comprendidos entre 1 y el número leído
5. Leer un número entero y determinar si es primo.
6. Leer un número entero positivo N y calcular e imprimir su factorial
7. Leer una palabra e indicar cuantas vocales tiene
8. Leer una palabra e indicar cuantas letras (No vocales) tiene
9. Leer 10 enteros, almacenarlos en un vector y determinar en qué
posicióndel vector está el mayor número leído.
10. Leer 10 enteros, almacenarlos en un vector y determinar en qué
posición
del vector está el mayor número par leído.
11. Leer 10 números enteros, almacenarlos en un vector y determinar a
cuántoes igual la suma de los números pares de los números leídos.
12. Leer 10 números enteros, almacenarlos en un vector y determinar a
cuántoes igual la suma de los números impares de los números leídos.
Solución
Algoritmo Ejercicio_1
//Leer un número entero y mostrar todos los enteros comprendidos
entre 1 y el número leído
Definir N como entero
Escribir "Digite un numero entero"
Leer N
contador=()
//For
para contador = 1 +1 Hasta N-1 Hacer
escribir"todos los numeros comprendidos entre 1 y el número ingresado
son: ",contador
FinPara
FinAlgoritmo
Algoritmo Ejercicio_2
// Leer un número entero y mostrar todos los pares comprendidos entre
1 y el número leído
Definir N, I Como Entero
Escribir 'Digite un numero entero'
Leer N
Para I = 1 Hasta N
Si (I mod 2 ) = 0 Entonces
Escribir "Los pares comprendidos entre 1 y el número leído son:", I
FinSi
FinPara
FinAlgoritmo
Algoritmo Ejercicio_3
// Leer un número entero y determinar a cuánto es igual la suma de
todos los enteros comprendidos entre 1 y el número leído
Definir N,S,I Como Entero
Escribir 'Digite un numero entero'
Leer N
SI N > 0 Entonces
S=0
Para I = 1 Hasta N
S=S+I
FinPara
Escribir "la Suma de todos los enteros es:",S
SiNo
Escribir "Numero fuera de Rango "
FinSi
FinAlgoritmo
Algoritmo Ejercicio_4
//Leer un número entero y determinar a cuánto es igual al promedio de
todos los enteros comprendidos entre 1 y el número leído
Definir num,i,suma,contador Como Entero
Definir promedio Como Real
Escribir 'ingrese un numero entero'
Leer num
Si num>1 Entonces
Para i<-1 Hasta num Hacer
suma <- suma+i
contador<-contador+1
FinPara
promedio=suma/contador
Escribir 'El promedio de todos los numero es:',promedio
SiNo
Escribir 'Por favor ingresar un numero mayor que 1'
FinSi
FinAlgoritmo
Algoritmo Ejercicio_5
// Leer un número entero y determinar si es primo.
Escribir "Digite un numero"
Leer n
si n=1 Entonces
Escribir "Es un numero primo"
SiNo
con=0;
Para i<-1 Hasta n Con Paso 1 Hacer
si n mod i= 0 Entonces
con=con+1
FinSi
FinPara
si con=2 Entonces
Escribir "es un numero primo"
sino
Escribir "no es un numero primo"
FinSi
FinSi
FinAlgoritmo
Algoritmo Ejercicio_6
//Leer un número entero positivo N y calcular e imprimir su factorial.
Definir n, fact Como Real;
Definir i Como Entero
Escribir 'Digite un numero entero positivo'
Leer n
fact<-1;
si n > 0 Entonces
para i<-1 Hasta n Con Paso 1 Hacer
fact<-fact*i;
FinPara
Escribir "el factorial es:",fact;
SiNo
Escribir "No existe Factorial"
FinSi
FinAlgoritmo
Algoritmo Ejercicio_7
// Leer una palabra e indicar cuantas vocales tiene
Definir palabra, vocales Como Caracter;
vocales = "aeiouAEIOU" ;
Escribir "Introduce una palabra:" ;
Leer palabra ;
Definir numVoc,cantidadLetras, i, j Como Entero;
cantidadLetras = Longitud(palabra) ;
numVoc = 0 ;
i=0;
j=0;
Para i = 0 Hasta cantidadLetras -1 Con Paso 1 Hacer
Para j = 0 Hasta 9 Con Paso 1 Hacer
Si Subcadena(palabra,i,i) = Subcadena(vocales,j,j) Entonces
numVoc = numVoc +1 ;
FinSi
Fin Para
Fin Para
Escribir "La palabra ", palabra, " tiene ", numVoc, " vocales"
FinAlgoritmo
Algoritmo Ejercicio_8
//Leer una palabra e indicar cuantas letras (No vocales) tiene.
Definir num,i,j,cantvocales Como Entero
Definir palabra Como Caracter
Escribir 'ingresa una palabra'
Leer palabra
palabra <- Minusculas(palabra)
vocales <- 'aeiouáéíóú'
cantvocales <- 0
Para i<-1 Hasta longitud(palabra)
Hacer
Para j<-1 Hasta longitud(vocales) Hacer
Si subcadena(palabra,i,i)=subcadena(vocales,j,j) Entonces
cantvocales <- cantvocales+1
FinSi
FinPara
FinPara
Escribir 'La palabra ',palabra,' tiene ',longitud(palabra)-cantvocales,'
letras'
FinAlgoritmo
Algoritmo Ejercicio_9
//Leer 10 enteros, almacenarlos en un vector y determinar en qué
posición del vector está el mayor número leído.
Definir numeros,i,mayor,posicion Como Entero
dimension numeros[10]
mayor<-0
Para indice<-1 hasta 9 hacer
numeros[indice]<-aleatorio(1,100);
Escribir 'numero ',numeros[indice], ' posicion ', indice
FinPara
Para indice<-1 hasta 9 hacer
Si numeros[indice]>=mayor Entonces
mayor=numeros[indice]
posicion=indice
Fin Si
FinPara
Escribir 'el numero mayor es ',mayor,' y esta en la posicion ',posicion
FinAlgoritmo
Algoritmo Ejercicio_10
// Leer 10 enteros, almacenarlos en un vector y determinar en qué
posición del vector está el mayor número par leído
Definir numeros,i,mayor,posicion Como Entero
Dimension numeros[10]
mayor <- 0
Para indice<-1 Hasta 9 Hacer
numeros[indice] <- aleatorio(1,100)
Escribir 'numero ',numeros[indice],' posicion ',indice
FinPara
Para indice<-1 Hasta 9 Hacer
Si numeros[indice] mod 2=0 Entonces
Si numeros[indice]>=mayor Entonces
mayor <- numeros[indice]
posicion <- indice
FinSi
Fin Si
FinPara
Escribir 'el numero mayor par es ',mayor,' y esta en la posicion ',posicion
FinAlgoritmo
Algoritmo Ejercicio_11
// Leer 10 números enteros, almacenarlos en un vector y determinar a
cuánto es igual la suma de los números pares de los números leídos
Definir numeros,i,suma Como Entero
Dimension numeros[10]
suma <- 0
Para indice<-1 Hasta 9 Hacer
numeros[indice] <- aleatorio(1,100)
Escribir 'numero ',numeros[indice],' posicion ',indice
FinPara
Para indice<-1 Hasta 9 Hacer
Si numeros[indice] MOD 2=0 Entonces
suma <- suma+numeros[indice]
FinSi
FinPara
Escribir 'La suma de los numeros pares es ',suma
FinAlgoritmo
Algoritmo Ejercicio_12
// Leer 10 números enteros, almacenarlos en un vector y determinar a
cuánto es igual la suma de los números impares de los números leídos.
Definir numeros,i,suma Como Entero
Dimension numeros[10]
suma <- 0
Para indice<-1 Hasta 9 Hacer
numeros[indice] <- aleatorio(1,100)
Escribir 'numero ',numeros[indice],' posicion ',indice
FinPara
Para indice<-1 Hasta 9 Hacer
Si numeros[indice] MOD 2<>0 Entonces
suma <- suma+numeros[indice]
FinSi
FinPara
Escribir 'La suma de los numeros impares es ',suma
FinAlgoritmo
