• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    La Universidad Tecnológica del Perú paga a sus docentes por el servicio de enseñanza un sueldo mensual de acuerdo a su condición de trabajo (contratado, estable) y además si tiene maestría y doctorado de acuerdo a la siguiente tabla:
    Sin grado | Maestría | Doctorado
    Estable | 2000 | 3000 | 4000
    Contratado | 1000 | 2000 | 3000

    La Universidad motiva a sus profesores de manera económica(bono) por los resultados de su evaluación docente por cada mes. A Continuación, vamos a mostrarle una tabla que lo estratifica por rangos de notas mensuales y % de bonos correspondiente:
    Nota de evaluación mensual | % bono
    0-13 | 0
    14-16 | 5%
    16-20 | 30%

    Además, a todos los docentes se les descuenta el 6% de sus ingresos (sueldo bruto mensual y bono) por concepto de AFP.
    Desarrollar el algoritmo que permita calcular el sueldo neto a recibir por un docente, correspondiente a un mes determinado.

    a. Cálculo del sueldo bruto mensual.
    b. Cálculo del bono.
    c. Cálculo del sueldo neto mensual de un docente.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Proceso UniversidadTecnologicaDelPeru
    Repetir
        Escribir Sin Saltar "Ingresa el valor de nota mensual:";
        Leer nota_mensual;
        Escribir "Selecciona el valor de condicion de trabajo.";
        Escribir "    1.- Estable";
        Escribir "    2.- Contratado";
        Escribir Sin Saltar "    :";
        Repetir
            Leer condicion_de_trabajo;
            Si condicion_de_trabajo<1 O condicion_de_trabajo>2 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
            FinSi
        Hasta Que condicion_de_trabajo>=1 Y condicion_de_trabajo<=2;
        Escribir "Selecciona el valor de grado.";
        Escribir "    1.- Sin grado";
        Escribir "    2.- Maestría";
        Escribir "    3.- Doctorado";
        Escribir Sin Saltar "    :";
        Repetir
            Leer grado;
            Si grado<1 O grado>3 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
            FinSi
        Hasta Que grado>=1 Y grado<=3;
        sueldo_bruto_mensual <- 0;
        Si condicion_de_trabajo = 1 Y grado = 1 Entonces
            sueldo_bruto_mensual <- 2000;
        FinSi
        Si condicion_de_trabajo = 1 Y grado = 2 Entonces
            sueldo_bruto_mensual <- 3000;
        FinSi
        Si condicion_de_trabajo = 1 Y grado = 3 Entonces
            sueldo_bruto_mensual <- 4000;
        FinSi
        Si condicion_de_trabajo = 2 Y grado = 1 Entonces
            sueldo_bruto_mensual <- 1000;
        FinSi
        Si condicion_de_trabajo = 2 Y grado = 2 Entonces
            sueldo_bruto_mensual <- 2000;
        FinSi
        Si condicion_de_trabajo = 2 Y grado = 3 Entonces
            sueldo_bruto_mensual <- 3000;
        FinSi
        bono <- 0;
        Si nota_mensual>=14 Y nota_mensual<16 Entonces
            bono <- sueldo_bruto_mensual*0.05;
        FinSi
        Si nota_mensual>=16 Y nota_mensual<=20 Entonces
            bono <- sueldo_bruto_mensual*0.3;
        FinSi
        AFP <- (sueldo_bruto_mensual+bono)*0.06;
        sueldo_neto_mensual <- sueldo_bruto_mensual+bono-AFP;
        Escribir "Valor de AFP: ", AFP;
        Escribir "Valor de bono: ", bono;
        Escribir "Valor de sueldo bruto mensual: ", sueldo_bruto_mensual;
        Escribir "Valor de sueldo neto mensual: ", sueldo_neto_mensual;
        Escribir "";
        Repetir
            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
            Leer tecla_repetir;
        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
    Hasta Que tecla_repetir='n' O tecla_repetir='N'
FinProceso