ALGORITMOS RESUELTOS
1) Leer un número y mostrar por la salida estándar si dicho número es
o no es par.
ALGORITMO
VARIABLES
Numero: entero;
INICIO
ESCRIBIR ( “Introduzca un numero” );
LEER (numero);
SI (numero mod 2 = 0 ) ENTONCES
ESCRIBIR ( “ El numero es par
” );
SINO
ESCRIBIR ( “El numero es impar
” );
FIN_SI
FIN
FIN_ALGORITMO
2) Leer 20 números y di cual es el mayor
ALGORITMO
MAYOR
CONSTANTE
ENTERO CS = 20;
ENTERO CI =1;
VARIABLES
ENTERO
numero;
ENTERO mayor;
ENTERO índice;
INICIO
Mayor=0
PARA
índice = 1 HASTA CS
INCREMENTO 1
ESCRIBIR (“introduce un numero”);
LEER (numero);
SI
(numero > mayor) ENTONCES
mayor = numero;
FIN_SI
FIN_PARA
ESCRIBIR (“mayor es” + mayor );
FIN_INICIO
FIN
ALGORITMO
3) Leer una secuencia de números, hasta que se introduce un número
negativo y mostrar la suma de dichos números.
ALGORITMO
VARIABLES
ENTERO numero;
ENTERO suma ;
INICIO
Suma =0;
ESCRIBIR (“Introduce un numero”);
LEER (numero);
MIENTRAS
(numero >= 0) HACER
suma = suma + numero;
ESCRIBIR (“Introduce un
numero”);
LEER (numero);
FIN_MIENTRAS
ESCRIBIR (“La suma es:”, suma );
FIN_INICIO
FIN_ALGORITMO
4) Leer una secuencia de números y sumar solo los pares mostrando el
resultado del proceso
ALGORITMO
VARIABLE
ENTERO Numero;
ENTERO Suma
CARÁCTER Fin;
INICIO
Suma=0
FIN=”S”
MIENTRAS FIN <>”N” and
FIN <> “n” HACER
ESCRIBIR (“Introduce un
numero”);
LEER (Numero);
SI (Numero mod 2=0) ENTONCES
Suma = Suma + numero
SINO
ESCRIBIR (“Error, introduzca numero
par”);
FIN SI
ESCRIBIR (“Desea seguir s/n”);
LEER (Fin);
FIN MIENTRAS
ESCRIBIR (“La suma es :” + Suma);
FIN_INICIO
FIN_ALGORITMO
5) Desarrolla un algoritmo que lea por el teclado una secuencia de 20
enteros y visualice por pantalla los que sean pares.
ALGORITMO
VARIABLES
ENTERO Numero;
ENTERO Indice;
INICIO
PARA Indice = 2 HASTA
20 INCREMENTO 2
ESCRIBIR (“Introduce un
numero”);
LEER(numero);
FIN_PARA
FIN_INICIO
FIN_ALGORITMO
6) Lee una secuencia de 30 numeros y mostar la suma de su factorial
ALGORITMO
CONSTANTE
FIN_CONSTANTE
VARIABLE
ENTERO Numero;
ENTERO Indice;
ENTERO Contador;
ENTERO Suma;
ENTERO Factorial;
FIN_VARIABLE
INICIO
ESCRIBIR (“Introduce un
numero”);
LEER (Numero);
Contador =0;
Suma
=0;
MIENTRAS (Contador <
3) HACER
Factorial = 1
PARA (Indice=2)
HASTA (Numero) INCREMENTO 1
Factorial=Factorial * Indice
FIN_PARA
Contador =
Contador + 1
Suma
= Suma + Factorial;
FIN MIENTRAS
ESCRIBIR (“El resultado total es ” + suma);
FIN_INICIO
FIN_ALGORITMO
7) Desarrollar un algoritmo para leer 20
números. De los 20 números leídos
imprimir cuál es el mayor número de dichos números leídos por teclado.
ALGORITMO
CONSTANTE
ENTERO C_S = 20;
ENTERO C_I =1;
FIN_CONSTANTE
VARIABLES
ENTERO numero;
ENTERO mayor;
ENTERO indice;
FIN_VARIABLE
INICIO
PARA índice = 1 HASTA
C_S INCREMENTO 1
ESCRIBIR (“Introduce un numero”);
LEER (numero);
SI
(numero > mayor) ENTONCES
mayor = numero;
FIN_SI
FIN_PARA
ESCRIBIR (“mayor es” + mayor );
FIN_INICIO
FIN ALGORITMO
8) Dado un entero extraer cada uno de los dígitos
que lo forman
ALGORITMO
VARIABLE
ENTERO
numero;
ENTERO
cociente;
FIN_VARIABLE
INICIO
ESCRIBIR
(“introduce un numero entero positivo”);
LEER
(numero);
cociente = numero
MIENTRAS
(cociente >= 0) HACER
ESCRIBIR (cociente mod 10);
cociente = cociente \ 10;
FIN_MIENTRAS
FIN_INICIO
FIN_ALGORITMO