ALGORITMO CONDICIONALES
1. Escribir un algoritmo que, ingresada una calificación del 1 al 10, muestre por pantalla los
siguiente mensajes. Cuando la calificación sea de 7 o superior mostrar “APROBADO”
Solucion:
inicio.
Definir variable NOTA= 0
Ingresar un valor para NOTA
SI NOTA >= 7
muestra por pantalla “APROBADO”
FINSI
fin
2. Escribir un algoritmo que, ingresada una calificación del 1 al 10, muestre por pantalla los
siguiente mensajes. Cuando la calificaciòn sea de 7 o superior mostrar “APROBADO” y si
no obtuvo esa calificaciòn mostrar “REPROBADO”
Solucion:
inicio.
Definir variable NOTA= 0
Ingresar un valor para NOTA
SI NOTA >= 7
muestra por pantalla “APROBADO”
SINO
muestra por pantalla “REPROBADO”
FINSI
Fin
3. Un hombre desea saber cuanto dinero se genera por concepto de intereses sobre la
cantidad que tiene en inversión en el banco. El decidirá reinvertir los intereses siempre y
cuando estos excedan a $7000, y en ese caso desea saber cuanto dinero tendrá finalmente
en su cuenta.
Inicio
Leer p_int, cap
int = cap * p_int
si int > 7000 entonces
capf = cap + int
fin-si
Imprimir capf
fin
4. En un almacén se hace un 20% de descuento a los clientes cuya compra supere los $ 1000
¿ Cual será la cantidad que pagara una persona por su compra?
Inicio
Leer compra
Si compra > 1000 entonces
desc = compra * 0.20
si no
desc = 0
fin-si
tot_pag = compra - desc
imprimir tot_pag
fin.
5. Que lea dos números y los imprima en forma ascendente
Inicio
Leer num1, num2
Si num1 < num2 entonces
Imprimir num1, num2
si no
Imprimir num2, num1
fin-si
fin
ALGORITMO CICLO PARA
1. Un algoritmo que lea 5 numeros dados por un usuario y luego muestra el resultado de la
suma.
INICIO
ENTERO: N, i, SUMA
SUMA=0
PARA(i= 1 HASTA ,5 , 1)
MOSTRAR ('DIGITE UN NUMERO')
LEER (N)
SUMA= SUMA+N
FIN PARA
MOSTRAR ('LA SUMA ES:', SUMA)
FIN
2. Un algoritmo que muestre los pares que hay entre 1 y N.
INICIO
ENTERO: N, i
MOSTRAR ('DIGITE NUMERO')
LEER (N)
PARA( i= 2 HASTA N, 2)
MOSTRAR (LOS NUMERO PARES SON:', i)
FIN PARA
FIN.
3. Un algorimo que reciba un dato y lo calcule y mustre el factorial.
INICIO
ENTERO: N,i, FACTORIAL
MOSTRAR ('DIGITE UN NUMERO')
LEER(N)
FACTORIAL=1
PARA( i= 1, HASTA , N, 1)
FACTORIAL= FACTORIAL* i
FIN PARA
MOSTRAR ('EL FACTORIAL ES:', FACTORIAL)
FIN
4. Un algoritmo que permita mostrar los numeros primos existentes entre 1 y N.
INICIO
ENTEROS:N,i,PRIMO,j
MOSTRAR('DIGITE HASTA Q NUMEERO DESEA VER NUMEROS PRIMOS')
LEER:(N)
PARA(i=1, N,1)
PRIMO:1
SI ((i=1)OR(i=2)OR(i=3))
MOSTRAR(i,' ES NUMERO PRIMO')
SINO
PARA(j=2,i-1,1)
SI((i MOD j)!=0)
PRIMO=PRIMO+1
SI(PRIMO=i-1)
MOSTRAR(i,' ES NUMERO PRIMO')
FIN SI
FIN SI
FIN PARA
FIN PARA
FIN
5. Un algoritmo que permita ingresar N datos correspondientes al genero de N, numero de
personas y determine el porcentaje de hombres y mujeres que hay.
INICIO
ENTEROS:N,i,SEXO
REALES:M,F
MOSTRAR:('DIGITE N° DE PERSONAS')
LEER:(N)
M=0
F=0
PARA(i,1,N,1)
MOSTRAR:('DIGITE SEXO 1 MASCULINO, 2 PARA FEMENINO')
LEER:(SEXO)
SI (SEXO=1)
M=M+1
SINO
F=F+1
FIN PARA
F=(F*100)/N
M=(M*100)/N
MOSTRAR:('EL PORSENTAJE DE MUJERES ES: ',F)
MOSTRAR:('EL PORSENTAJE DE HOMBRES ES: ',M)
FIN
ALGORITMO CICLO MIENTRAS
1. Escribir los números del 1 al 100
VAR
ENTERO Contador;
INICIO
Contador <- 1;
MIENTRAS( Contador <= 100 ) HACER
ESCRIBIR( Contador );
Contador <- Contador + 1;
FIN MIENTRAS
FIN
2. Programa que permite calcular la suma de los 5 primeros números enteros positivos
VAR
ENTERO contador, suma;
INICIO
contador <- 1;
suma <- 0;
MIENTRAS( contador <= 5 ) HACER
suma <- suma + contador;
contador <- contador + 1;
FIN MIENTRAS
ESCRIBIR("La suma es: ", suma);
FIN
3. Leer una serie de números hasta obtener uno inferior a 100
VAR
ENTERO Numero;
INICIO
ESCRIBIR("Dime un número menor de 100");
LEER( Numero );
MIENTRAS( Numero >= 100 ) HACER
ESCRIBIR("Dime un número menor de 100");
LEER( Numero );
FIN MIENTRAS
ESCRIBIR("Ha introducido un número inferior a 100: ", Numero);
FIN
4. Pedir 10 números al usuario, y mostrar cuántos de ellos han sido mayores de cero
VAR
ENTERO contador;
ENTERO positivos <- 0;
ENTERO numero;
INICIO
PARA contador DESDE 1 HASTA 10
ESCRIBIR("Dame un número: ");
LEER( numero );
SI( numero > 0 )
positivos <- positivos + 1;
FIN SI
FIN_PARA
ESCRIBIR("Has introducido", positivos, " números mayores de cero");
FIN
5. Mostrar los cinco primeros números pares
VAR
ENTERO contador;
INICIO
PARA contador DESDE 1 HASTA 10 INCREMENTO 2
ESCRIBIR( contador );
FIN_PARA
FIN
