algoritmos

ALGORITMO ESTRUCTURADO
-- Ejercicio 1
Proceso sin_titulo
Escribir "IMprimir los Numeros entre 1 y 20"
num=1
mientras(num<=20)
Escribir "El numero es ",num
num=num+1
FinMientras
FinProceso
-- Ejercicio 2
Proceso sin_titulo
Escribir "Imprimir todos los numeros pares Menores a un numero Ingresado"
Escribir "Ingrese Numero: "; Leer num
cont=2
Mientras (cont<num)
Escribir "Elnumero es ",cont
cont=cont+2
FinMientras
FinProceso
-- Ejercicio 3
Proceso sin_titulo
Un empresario desea cambiar dolares, el vendedor le plantea el sigte: cuadro para determinar los montos de venta, si compra mas de 1000 dolares el precio de venta sera 2.80 soles, si compra entre 3000 a 5000 dolares el precio de venta sera 2.70 soles, si el monto es menor a 1000 el precio sera 2.85 soles,Cuanto dolares compro el empresario y cuanto dinero pago
Escribir "Compra de Dolares"
Escribir "Ingrese Cantidad de Doalres a Comprar: ";Leer mto_dolar
si(mto_dolar<= 1000) entonces
mto_soles = mto_dolar * 2.85
sino
si(mto_dolar>=3000 & mto_dolar<=5000)
mto_soles = mto_dolar * 2.70
Sino
mto_soles = mto_dolar * 2.8
FinSi
FinSiEscribir "Pago en Soles el monto de ",mto_soles
FinProceso
-- Ejercicio 4
Proceso sin_titulo
//Imprimir los valores de una tabla de multiplicar de un
//numero ingresado por teclado
Escribir "Tabla de Multiplicar "
escribir "Ingrese Numero de la Tabla ";leer numero_tabla
num=1
Mientras (num<=12)
Escribir numero_tabla," * ",num," = ",numero_tabla * num
num = num+1
FinMientrasFinProceso
-- Ejercicio 5
//Se pide Ingresar 20 votos de alumnos, los cuales pueden ser repartido entre los 3 candidatos que existe. Se pide determinar que candidato gano y cual es su porcentaje de cada candidato.
Proceso sin_titulo
Escribir "Votacion para Delegado"
cont_votos=1
can1 = 0;can2=0;can3=0;nulo=0
Escribir "<1> Juana La Cubana <2> EloiCampos <3> Te Encantala"
Mientras(cont_votos<=20)
Escribir "Ingrese Voto ",cont_votos," : ";Leer voto
Si(voto=1)entonces
can1=can1+1
Sino
Si(voto=2)Entonces
can2 =can2+1
Sino
Si(voto=3) Entonces
can3=can3+1
Sino
nulo=nulo+1
FinSi
FinSi
FinSi
cont_votos=cont_votos+1FinMientras
Escribir "Candidato 1= ",can1," votos, Porcentaje = ",(can1/20)*100,"%"
Escribir "Candidato 2= ",can2," votos, Porcentaje = ",(can2/20)*100,"%"
Escribir "Candidato 3= ",can3," votos, Porcentaje = ",(can3/20)*100,"%"
Escribir "Nulos = ",nulo," votos, Porcentaje = ",(nulo/20)*100,"%"
si(can1>can2 & can1>can3)
Escribir "Gano el Candidato 1"Sino
si(can2>can1 & can2>can3)Entonces
Escribir "Gano el Candidato 2"
Sino
Escribir "Gano el Candidato 3"
FinSi
FinSi
FinProceso
-- Ejercicio 6
Proceso sin_titulo
//Hallar el Factorial de un numero Ingresado por teclado
Escribir "Factorial de un Numero"
Escribir "Ingrese el Numero para Hallar su Factorial: "; leer num_fact
cont=1
res_fact=1Mientras (cont<=num_fact)
res_fact=res_fact * cont
cont=cont+1
FinMientras
Escribir "El Factorial de ",num_fact, " es ",res_fact
FinProceso
-- Ejercicio 7
Proceso sin_titulo
Escribir "Factorial de los 10 Numeros"
num_fact= 10
cont=1
res_fact=1
Mientras (cont<=num_fact)
res_fact=res_fact * cont
Escribir "El Factorial de ",cont, " es ",res_fact
cont=cont+1
FinMientrasFinProceso
-- Ejercicio 8
Proceso sin_titulo
// Crear un algoritmo, que permita el ingreso de 13 números, y me
// devuelva el mayor de ellos.
mayor=0
menor=10000
cont=1
Mientras (cont<=13)
Escribir "Ingrese Numero ",cont,": ";Leer numero
si(mayor<numero)Entonces
mayor=numero
FinSi
si(menor>numero) Entonces
menor=numero
FinSi
cont=cont+1
FinMientras
Escribir "El numero...