PRINCIPIOS DE ALGORITMOS

EJERCICIOS- SEMANA13

1. Se registran de los empleados de una empresa Número de legajo, sueldo y sexo (1

femenino y 2 masculino). Diseñar un algoritmo que permita informar cuantas mujeres
ganan más de $ 500 y cuantos hombres ganan menos de $ 400.

Proceso cantidad_de_hombres_y_mujeres_segun_su_sueldo
Definir num,edad, sueldo, cant_hombres,cant_mujeres,c1,c2,c3 Como Entero
Definir legajo, genero Como Caracter
Escribir "Ingrese El Numero De Empleados"
leer num
Para i=1 Hasta num Con Paso 1 Hacer
Escribir "Ingrese legajo ";
leer legajo;
Escribir "Ingrese Sexo";
leer sexo;
Escribir "Ingrese Sueldo";
leer sueldo;
Si sexo="hombre" o sexo="mujer" Entonces
Si sexo="hombre" Entonces
Si sueldo<400 Entonces

c2=c2+1;

FinSi

cant_hombres=cant_hombres+1;

SiNo
si sexo = "mujer" Entonces
Si sueldo>500 Entonces

c1=c1+1;

FinSi
cant_mujeres=cant_mujeres+1;
FinSi
FinSi
FinSi
FinPara
Escribir "Hombres: ",cant_hombres;
Escribir "Mujeres: ",cant_mujeres;
Escribir "Mujeres Con Sueldo Mayor a $500: ",c1;
Escribir "Hombres con Sueldo Menor a $400: ",c2;

FinProceso

1
 PRINCIPIOS DE ALGORITMOS

2. En una universidad con un número determinado de alumnos se desea obtener el

promedio y el porcentaje de la población femenina, el promedio y porcentaje de la
población masculina y el promedio general. Por cada alumno se ingresa MATRICULA,
SEXO, SEMESTRE y PROMEDIO. Calcular e imprimir lo solicitado.

Proceso PromedioYPorcentajeDeUnaUniversidad
    porcentaje_femeninas <- 0;
    porcentaje_masculinos <- 0;
    promedio_femeninas <- 0;
    promedio_general <- 0;
    promedio_masculinos <- 0;
    Escribir Sin Saltar "Ingrese el valor de n:";
    Leer n;
    Para i=1 Hasta n Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingrese el matricula:";
        Leer matricula;
        Escribir Sin Saltar "Ingrese el semestre:";
        Leer semestre;
        Escribir Sin Saltar "Ingrese el valor de promedio:";
        Leer promedio;
        Escribir "Seleccione el valor de sexo.";
        Escribir "    1.- Femenino";
        Escribir "    2.- Masculino";
        Escribir Sin Saltar "    :";
        Repetir
            Leer sexo;
            Si sexo<1 O sexo>2 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingréselo nuevamente.: ";
            FinSi
        Hasta Que sexo>=1 Y sexo<=2;
        promedio_general <- promedio_general+promedio;
        Si sexo = 1 Entonces
            promedio_femeninas <- promedio_femeninas+promedio;
            porcentaje_femeninas <- porcentaje_femeninas+1;
        SiNo
            promedio_masculinos <- promedio_masculinos+promedio;
            porcentaje_masculinos <- porcentaje_masculinos+1;
        FinSi
        Escribir "Matricula: ", matricula;
        Escribir "Semestre: ", semestre;
        Escribir "";
    FinPara
    Si n = 0 Entonces
        porcentaje_femeninas <- 0;
    SiNo
        porcentaje_femeninas <- 100.0*porcentaje_femeninas/n;
    FinSi
    Si n = 0 Entonces
        porcentaje_masculinos <- 0;
    SiNo

2
 PRINCIPIOS DE ALGORITMOS

        porcentaje_masculinos <- 100.0*porcentaje_masculinos/n;
    FinSi
    Si n = 0 Entonces
        promedio_femeninas <- 0;
    SiNo
        promedio_femeninas <- promedio_femeninas/n;
    FinSi
    Si n = 0 Entonces
        promedio_general <- 0;
    SiNo
        promedio_general <- promedio_general/n;
    FinSi
    Si n = 0 Entonces
        promedio_masculinos <- 0;
    SiNo
        promedio_masculinos <- promedio_masculinos/n;
    FinSi
    Escribir "Valor de porcentaje femeninas: ", porcentaje_femeninas;
    Escribir "Valor de porcentaje masculinos: ", porcentaje_masculinos;
    Escribir "Valor de promedio femeninas: ", promedio_femeninas;
    Escribir "Valor de promedio general: ", promedio_general;
    Escribir "Valor de promedio masculinos: ", promedio_masculinos;
FinProceso

3. Determinar la suma de los N primeros términos de la siguiente serie:

1+ X + X 2 + X3 + X 4 + ........................
2! 3! 4!

Proceso algoritmo_de_N_terminos
escribir "ingrese el número de terminos";
leer T;
escribir "ingrese el valor de x";
leer x;
i=3;
ST=0;
ex=1;
num=x;
mientras i<=T Hacer
num=num;
ex=ex+1;
ST=ST+(num^ex);
i=i+1;

FinMientras

sumTotal=ST+1+x;
escribir "la suma de los terminos es -->",sumTotal;

3
 PRINCIPIOS DE ALGORITMOS

FinProceso
4. En un centro meteorológico se llevan los promedios mensuales de las lluvias caídas en las
principales regiones del país. Existen 3 regiones importantes. NORTE, CENTRO y SUR.
Escriba un algoritmo para calcular lo siguiente:
- El promedio anual de la región centro.
- El mes y región con menor lluvia en la región sur.
- La región con mayor lluvia anual.

Proceso AguaCaidaDuranteUnMes
    dia_mayor <- 0;
    dia_menor <- 0;
    cantidad_mayor <- 0;
    cantidad_menor <- 0;
    promedio <- 0;
    Para i<-1 Hasta 30 Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingrese el valor de cantidad de agua en
mm:";
        Leer cantidad_de_agua_en_mm;
        promedio <- promedio+cantidad_de_agua_en_mm;
        Si i = 1 O cantidad_mayor<cantidad_de_agua_en_mm Entonces
            cantidad_mayor <- cantidad_de_agua_en_mm;
            dia_mayor <- i;
        FinSi
        Si i = 1 O cantidad_menor>cantidad_de_agua_en_mm Entonces
            cantidad_menor <- cantidad_de_agua_en_mm;
            dia_menor <- i;
        FinSi
        Escribir "";
    FinPara
    promedio <- promedio/30;
    Escribir "Valor de dia mayor: ", dia_mayor;
    Escribir "Valor de dia menor: ", dia_menor;
    Escribir "Valor de cantidad mayor: ", cantidad_mayor;
    Escribir "Valor de cantidad menor: ", cantidad_menor;
    Escribir "Valor de promedio: ", promedio;
FinProceso

5. En un estadio se tienen 5 tipos diferentes de localidades, las cuales se

identifican por un valor comprendido entre 1 y 5. Los precios de cada localidad,
y los datos referentes a las ventas de boletos para el próximo juego se
proporcionan como sigue:
Precios: p1, p2, p3, p4, p5
Localidad1 Cant
1
Localidad2 Cant
2
…. ….
Localidad 5 Cant
5
Diseñe un algoritmo para:
 Lea los precios
 Lea los datos de las ventas de boletos

4
 PRINCIPIOS DE ALGORITMOS

 Imprima para cada venta, la clave, la cantidad y el importe total de los

boletos vendidos en esta venta
 Calcule e imprima la cantidad de boletos vendidos de cada tipo
 Calcule e imprima la recaudación total del estadio.
Proceso BoletosDeUnEstadio
    boletos_vendidos_localidad_1 <- 0;
    boletos_vendidos_localidad_2 <- 0;
    boletos_vendidos_localidad_3 <- 0;
    boletos_vendidos_localidad_4 <- 0;
    boletos_vendidos_localidad_5 <- 0;
    recaudacion_total <- 0;
    Escribir Sin Saltar "Ingrese el valor de precio localidad 1:";
    Leer precio_localidad_1;
    Escribir Sin Saltar "Ingrese el valor de precio localidad 2:";
    Leer precio_localidad_2;
    Escribir Sin Saltar "Ingrese el valor de precio localidad 3:";
    Leer precio_localidad_3;
    Escribir Sin Saltar "Ingrese el valor de precio localidad 4:";
    Leer precio_localidad_4;
    Escribir Sin Saltar "Ingrese el valor de precio localidad 5:";
    Leer precio_localidad_5;
    Escribir Sin Saltar "Ingrese el valor de n:";
    Leer n;
    Para i<-1 Hasta n Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingrese el clave:";
        Leer clave;
        Escribir Sin Saltar "Ingrese el valor de cantidad de boletos:";
        Leer cantidad_de_boletos;
        Escribir "Seleccione el valor de localidad.";
        Escribir "    1.- Uno";
        Escribir "    2.- Dos";
        Escribir "    3.- Tres";
        Escribir "    4.- Cuatro";
        Escribir "    5.- Cinco";
        Escribir Sin Saltar "    :";
        Repetir
            Leer localidad;
            Si localidad<1 O localidad>5 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingréselo
nuevamente.: ";
            FinSi
        Hasta Que localidad>=1 Y localidad<=5;
        Si localidad = 1 Entonces
            precio <- precio_localidad_1;
           
boletos_vendidos_localidad_1 <- boletos_vendidos_localidad_1+cantidad_de
_boletos;
        FinSi
        Si localidad = 2 Entonces
            precio <- precio_localidad_2;
           
boletos_vendidos_localidad_2 <- boletos_vendidos_localidad_2+cantidad_de
_boletos;
        FinSi
        Si localidad = 3 Entonces
            precio <- precio_localidad_3;
           
boletos_vendidos_localidad_3 <- boletos_vendidos_localidad_3+cantidad_de
_boletos;
        FinSi
5
 PRINCIPIOS DE ALGORITMOS

        Si localidad = 4 Entonces
            precio <- precio_localidad_4;
           
boletos_vendidos_localidad_4 <- boletos_vendidos_localidad_4+cantidad_de
_boletos;
        FinSi
        Si localidad = 5 Entonces
            precio <- precio_localidad_5;
           
boletos_vendidos_localidad_5 <- boletos_vendidos_localidad_5+cantidad_de
_boletos;
        FinSi
        importe_total <- cantidad_de_boletos*precio;
        recaudacion_total <- recaudacion_total+importe_total;
        Escribir "Clave: ", clave;
        Escribir "Valor de importe total: ", importe_total;
        Escribir "Valor de precio: ", precio;
        Escribir "";
    FinPara
    Escribir "Valor de boletos vendidos localidad 1:
", boletos_vendidos_localidad_1;
    Escribir "Valor de boletos vendidos localidad 2:
", boletos_vendidos_localidad_2;
    Escribir "Valor de boletos vendidos localidad 3:
", boletos_vendidos_localidad_3;
    Escribir "Valor de boletos vendidos localidad 4:
", boletos_vendidos_localidad_4;
    Escribir "Valor de boletos vendidos localidad 5:
", boletos_vendidos_localidad_5;
    Escribir "Valor de recaudacion total: ", recaudacion_total;
FinProceso

6. Hacer un programa que calcule el sueldo mensual de N empleados de una empresa. Se

ingresa el nombre, número de días trabajados, faltas por cada empleado. También se
pide el monto total de sueldos de todos los empleados. El número de empleados que
ganan entre 2500 y 3500. El número de empleados que ganan menos de 1000 o más
de 4000. Considere constante el pago por día a cada empleado y que el descuento por
día de falta es de 100% del pago diario.

Proceso SueldoMensualDeNEmpleados
    empleados_menos_1000 <- 0;
    empleados_entre_2500_y_3500 <- 0;
    empleados_mas_4000 <- 0;
    sueldos_de_todos <- 0;
    Escribir Sin Saltar "Ingrese el valor de n:";
    Leer n;
    Para i<-1 Hasta n Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingrese el nombre:";
        Leer nombre;
        Escribir Sin Saltar "Ingrese el valor de dias
6
 PRINCIPIOS DE ALGORITMOS

trabajados:";
        Leer dias_trabajados;
        Escribir Sin Saltar "Ingrese el valor de faltas:";
        Leer faltas;
        Escribir Sin Saltar "Ingrese el valor de pago por dia:";
        Leer pago_por_dia;
        sueldo_mensual <- (dias_trabajados-faltas)*pago_por_dia;
        Si sueldo_mensual<1000 Entonces
            empleados_menos_1000 <- empleados_menos_1000+1;
        FinSi
        Si sueldo_mensual>=2500 Y sueldo_mensual<=3500 Entonces
           
empleados_entre_2500_y_3500 <- empleados_entre_2500_y_3500+1;
        FinSi
        Si sueldo_mensual>4000 Entonces
            empleados_mas_4000 <- empleados_mas_4000+1;
        FinSi
        sueldos_de_todos <- sueldos_de_todos+sueldo_mensual;
        Escribir "Nombre: ", nombre;
        Escribir "Valor de sueldo mensual: ", sueldo_mensual;
        Escribir "";
    FinPara
    Escribir "Valor de empleados menos 1000:
", empleados_menos_1000;
    Escribir "Valor de empleados entre 2500 y 3500:
", empleados_entre_2500_y_3500;
    Escribir "Valor de empleados mas 4000:
", empleados_mas_4000;
    Escribir "Valor de sueldos de todos: ", sueldos_de_todos;
FinProceso

7. Determinar la suma de los N primeros términos de la serie de Fibonacci, y mostrar

sus valores considerando que N sea mayor que 1. La secuencia de la serie es el
siguiente:
0, 1, 1, 2, 3, 5, 8, 13, 21, .......................

Proceso SumaDeLaSerieDeFibonacci
    f1 <- 0;
    f2 <- 0;
    suma <- 0;
7
 PRINCIPIOS DE ALGORITMOS

    Escribir Sin Saltar "Ingrese el valor de n:";

    Leer n;
    Para i<-1 Hasta n Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Si i = 1 Entonces
            f2 <- 1;
        FinSi
        termino <- f2;
        suma <- suma+f2;
        f3 <- f1+f2;
        f1 <- f2;
        f2 <- f3;
        Escribir "Valor de f3: ", f3;
        Escribir "Valor de termino: ", termino;
        Escribir "";
    FinPara
    Escribir "Valor de f1: ", f1;
    Escribir "Valor de f2: ", f2;
    Escribir "Valor de suma: ", suma;
FinProceso

8. Mostrar la suma de todos los divisores de un número entero. Si el número sólo tiene
por divisores al 1 y al propio número, mostrar además el mensaje “Número Primo”.

Proceso mostrar suma de divisores de un numero

definir e Como Entero
Escribir "Ingrese el numero entero:"
Leer e
Dimension div[2*e]

k=1
sum=0
Para i<-1 hasta e con paso 1 Hacer
Si e MOD i = 0 entonces
div[k]=i
sum=sum+div[k]
k=k+1

FinSi
FinPara

Si sum = e+1 Entonces

Escribir "es un numero primo"
escribir "la suma de sus divisores es " sum
sino
escribir "la suma de sus divisores es " sum
FinSi

8
 PRINCIPIOS DE ALGORITMOS

9. Se ingresa por teclado la cantidad de agua caída, en milímetros día a día durante un
mes. Se pide determinar el día de mayor lluvia, el de menor y el promedio.

Proceso AguaCaidaDuranteUnMes
    dia_mayor <- 0;
    dia_menor <- 0;
    cantidad_mayor <- 0;
    cantidad_menor <- 0;
    promedio <- 0;
    Para i<-1 Hasta 30 Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingrese el valor de cantidad de agua en
mm:";
        Leer cantidad_de_agua_en_mm;
        promedio <- promedio+cantidad_de_agua_en_mm;
        Si i = 1 O cantidad_mayor<cantidad_de_agua_en_mm Entonces
            cantidad_mayor <- cantidad_de_agua_en_mm;
            dia_mayor <- i;
        FinSi
        Si i = 1 O cantidad_menor>cantidad_de_agua_en_mm Entonces
            cantidad_menor <- cantidad_de_agua_en_mm;
            dia_menor <- i;
        FinSi
        Escribir "";
    FinPara
    promedio <- promedio/30;
    Escribir "Valor de dia mayor: ", dia_mayor;
    Escribir "Valor de dia menor: ", dia_menor;
    Escribir "Valor de cantidad mayor: ", cantidad_mayor;
    Escribir "Valor de cantidad menor: ", cantidad_menor;
    Escribir "Valor de promedio: ", promedio;
FinProceso

10. Hacer el algoritmo que imprima el mayor y el menor de una serie de 5 números que
vamos introduciendo por teclado.

proceso mayor_menor

con <- 1
n <- 0
maximo <- 0
minimo <- 99999
MIENTRAS con <= 5 HACER
ESCRIBIR "ingrese el numero: "
LEER n
SI n > maximo ENTONCES
maximo = n
FINSI
SI n < minimo ENTONCES
minimo <- n
FINSI
con <- con + 1
FINMIENTRAS
ESCRIBIR "El mayor de los n£meros es: "
ESCRIBIR maximo
9
 PRINCIPIOS DE ALGORITMOS

ESCRIBIR "El menor de los n£meros es: "

ESCRIBIR minimo
FinProceso

1
0