-
Lenguaje
Pascal
-
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.
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
65
66
67
68
69
70
71
72
73
74
75
76
77
uses crt;
var condicion_de_trabajo, grado : integer;
var AFP, bono, nota_mensual, sueldo_bruto_mensual, sueldo_neto_mensual : real;
var tecla_repetir : char;
begin
repeat
clrscr;
write ('Ingresa el valor de nota mensual: ');
readln (nota_mensual);
writeln ('Selecciona el valor de condicion de trabajo.');
writeln (' 1.- Estable');
writeln (' 2.- Contratado');
write (' : ');
repeat
readln (condicion_de_trabajo);
if (condicion_de_trabajo<1) or (condicion_de_trabajo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (condicion_de_trabajo>=1) and (condicion_de_trabajo<=2);
writeln ('Selecciona el valor de grado.');
writeln (' 1.- Sin grado');
writeln (' 2.- Maestr'#161'a');
writeln (' 3.- Doctorado');
write (' : ');
repeat
readln (grado);
if (grado<1) or (grado>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (grado>=1) and (grado<=3);
sueldo_bruto_mensual := 0;
if (condicion_de_trabajo=1) and (grado=1) then
begin
sueldo_bruto_mensual := 2000;
end;
if (condicion_de_trabajo=1) and (grado=2) then
begin
sueldo_bruto_mensual := 3000;
end;
if (condicion_de_trabajo=1) and (grado=3) then
begin
sueldo_bruto_mensual := 4000;
end;
if (condicion_de_trabajo=2) and (grado=1) then
begin
sueldo_bruto_mensual := 1000;
end;
if (condicion_de_trabajo=2) and (grado=2) then
begin
sueldo_bruto_mensual := 2000;
end;
if (condicion_de_trabajo=2) and (grado=3) then
begin
sueldo_bruto_mensual := 3000;
end;
bono := 0;
if (nota_mensual>=14) and (nota_mensual<16) then
begin
bono := sueldo_bruto_mensual*0.05;
end;
if (nota_mensual>=16) and (nota_mensual<=20) then
begin
bono := sueldo_bruto_mensual*0.3;
end;
AFP := (sueldo_bruto_mensual+bono)*0.06;
sueldo_neto_mensual := sueldo_bruto_mensual+bono-AFP;
writeln ('Valor de AFP: ', AFP:0:6);
writeln ('Valor de bono: ', bono:0:6);
writeln ('Valor de sueldo bruto mensual: ', sueldo_bruto_mensual:0:6);
writeln ('Valor de sueldo neto mensual: ', sueldo_neto_mensual:0:6);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
end.