Pseudocódigo 37

Con un bucle While, elaborar un algoritmo el cual pida el numero de empleados de una empresa de seguros, y hasta el numero total de empleados el programa debe hacer: pedir el nombre, el salario semanal, cuantos seguros vendió en la semana, imprimir el salario neto semanal y por cada venta que haga, se le aumenta el 5% de su salario.

Proceso Ventas_De_Seguros // Cruz Sosa Aldo ING.Biomedica "B"
    Definir ems,v,f,ventas,salariominimo,comision,salarioneto,em,costoseguro Como Real
    Definir emple Como Caracter
    comision<-300
    Escribir ' Cuantos empleados hay? '
    Leer ems
    em <- 0
    Mientras em<20 Hacer
        em <- em+1
        Escribir ' Nombre... '
        Leer emple
        Escribir ' Cual es el sueldo del empleado? (semanal) (minimo) '
        Leer salariominimo
        Escribir ' Cuantos Seguros Vendio? ',emple
        Leer ventas
        Escribir ' Cual Fue el Total de los Seguros Vendidos? (Moneda Nacional) '
        Leer costoseguro
        salarioneto<-(costoseguro*comision)+(salariominimo)
        Escribir " Su Salario Neto es: ",salarioneto
        v<-costoseguro*0.05
        Escribir " El 5% de Todas Sus Ventas es ",v
        f<-salarioneto+v
        Escribir " Su Salario Total Es: ",v
FinMientras
FinProceso

Pseudocódigo 36

Elaborar un menú con un WHILE el cual de la opción al usuario de selecciones el numero del mes que desee y este imprima por pantalla el nombre del mes.

Proceso los_12_Meses //Cruz Sosa Aldo ING.Biomedica "B"
    Definir m Como caracter
    Definir op Como entero
    op<-0
    Mientras op!=13 Hacer
        Escribir " #1 Para Mes 1 "
        Escribir " #2 Para Mes 2 "
        Escribir " #3 Para Mes 3 "
        Escribir " #4 Para Mes 4 "
        Escribir " #5 Para Mes 5 "
        Escribir " #6 Para Mes 6 "
        Escribir " #7 Para Mes 7 "
        Escribir " #8 Para Mes 8 "
        Escribir " #9 Para Mes 9 "
        Escribir " #10 Para Mes 10 "
        Escribir " #11 Para Mes 11 "
        Escribir " #12 Para Mes 12 "
        Escribir " #13 Para Salir "
        Escribir " Seleccionar La Pocision (Numerica) De Un Mes "
        leer op
        si op=1 Entonces
        Escribir " La Pocision # ",op, " Es Enero ";
      SiNo
        si op=2 Entonces
            Escribir " La Pocision # ",op, " Es Febrero ";
        sino
            si op=3 Entonces
                Escribir " La Pocision # ",op, " Es Marzo ";
            SiNo
                si op=4 Entonces
                    Escribir " La Pocision # ",op, " Es Abril ";
                SiNo
                    si op=5 Entonces
                        Escribir " La Pocision # ",op, " Es Mayo ";
                    sino
                        si op=6 Entonces
                            Escribir " La Pocision # ",op, " Es Junio ";
                        SiNo
                            si op=7 Entonces
                                Escribir " La Pocision # ",op, " Es Julio ";
                            SiNo
                                si op=8 Entonces
                                    Escribir " La Pocision # ",op, " Es Agosto ";
                                SiNo
                                    si op=9 Entonces
                                        Escribir " La Pocision # ",op, " Es Septiembre ";
                                    SiNo
                                        si op=10 Entonces
                                            Escribir " La Pocision # ",op, " Es Octubre ";
                                        SiNo
                                            si op=11 Entonces
                                                Escribir " La Pocision # ",op, " Es Noviembre ";
                                            sino
                                                si op=12 Entonces
                                                    Escribir " La Pocision # ",op, " Es Diciembre ";
                                                SiNo
                                                    si op<1 o op>12 Entonces
                                                        Escribir " Numero Incorrecto ";
                                                        Escribir " Terminamos "
                                                    FinSi
                                                FinSi
                                             FinSi
                                         FinSi
                                     FinSi
                                 FinSi
                             FinSi
                         FinSi
                     FinSi
                 FinSi
             FinSi
         FinSi
     FinSi
 FinMientras
 FinProceso

Pseudocódigo 35

Con un ciclo FOR, elaborar un algoritmo el cual muestre los números del -3 al 5, sumándoles 1, con su respectiva respuesta.

Proceso Carga_de_n_valores_enteros
    Definir n,u,valores Como Entero;
    n<-1;
    para u<--3 hasta 5 Hacer
        Escribir u," + ",n," = ",u+n;
    FinPara
   
    Si  n<0 Entonces
        Escribir " Es Negativo ";
    SiNo
      
    FinSi
   
FinProceso

 

Pseudocódigo 34

Con el ciclo FOR, elaborar un algoritmo, el cual una cantidad de N valores numéricos, y mostrar en pantalla cuantos de esos valores son: positivos, negativos, múltiplos de 15 y mostrar de esos valores la suma de los pares.

 Proceso Valores_Enteros  //Cruz Sosa Aldo ING.Biomedica "B"
    Definir n,i,cneg,cpos,cmulti15,valor,avalpar Como Real;
    cneg<-0;
    avalpar<-0;
    cmulti15<-0;
    cpos<-0;
    Escribir " Cuantos Valores se Procesaran? ";
    leer n;
    para i<-1 hasta n hacer
        Escribir " Dar valor No. ",i;
        leer valor;
        si valor>0 Entonces
            cpos<-cpos+1;
        SiNo
            si valor<0 Entonces
                cneg<-cneg+1;
            SiNo
                Escribir " Valor 0 no Procesado ";
            FinSi
        FinSi
        si valor MOD 2==0 entonces
            avalpar<-avalpar+valor;
        FinSi
    FinPara
    Escribir " Valores Positivos ",cpos;
    Escribir " Valores Negativos ",cneg;
    Escribir " Valores Multiplos de 15: ",cmulti15;
    Escribir " Suma de Numeros Pares: ",avalpar;
FinProceso