-
Lenguaje
Pascal
-
Descripción
En una empresa de computadoras, los salarios de los empleados se van a aumentar de acuerdo a su contrato actual:
1) Los contratos que están de $0 a $9,000 el aumento es de un 20%.
2) Los contratos de $9,001 a $15,000 el aumento es de un 10%.
3) Los contratos de $15,001 a $20,000 el aumento es de 5%.
4) Los contratos más de $20,000 el aumento es de 0.
Permita conocer las cantidad de empleados en cada uno de los rangos y cuento les corresponde de aumento.
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
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
program AumentoPorRango;
uses crt;
var rango_1, rango_2, rango_3, rango_4 : integer;
var aumento, salario, salario_aumentado : real;
var tecla_repetir : char;
begin
rango_1 := 0;
rango_2 := 0;
rango_3 := 0;
rango_4 := 0;
repeat
clrscr;
write ('Ingresa el valor de salario: ');
readln (salario);
aumento := 0;
if (salario>=0) and (salario<=9000) then
begin
rango_1 := rango_1+1;
aumento := salario*0.2;
end;
if (salario>9000) and (salario<=15000) then
begin
rango_2 := rango_2+1;
aumento := salario*0.1;
end;
if (salario>15000) and (salario<=20000) then
begin
rango_3 := rango_3+1;
aumento := salario*0.05;
end;
if salario>20000 then
begin
rango_4 := rango_4+1;
end;
salario_aumentado := salario+aumento;
writeln ('Valor de aumento: ', aumento:0:6);
writeln ('Valor de salario aumentado: ', salario_aumentado: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');
writeln ('Valor de rango 1: ', rango_1);
writeln ('Valor de rango 2: ', rango_2);
writeln ('Valor de rango 3: ', rango_3);
writeln ('Valor de rango 4: ', rango_4);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var rango_1, rango_2, rango_3, rango_4 : integer;
var aumento, salario, salario_aumentado : real;
var tecla_repetir : char;
begin
rango_1 := 0;
rango_2 := 0;
rango_3 := 0;
rango_4 := 0;
repeat
clrscr;
write ('Ingresa el valor de salario: ');
readln (salario);
aumento := 0;
if (salario>=0) and (salario<=9000) then
begin
rango_1 := rango_1+1;
aumento := salario*0.2;
end;
if (salario>9000) and (salario<=15000) then
begin
rango_2 := rango_2+1;
aumento := salario*0.1;
end;
if (salario>15000) and (salario<=20000) then
begin
rango_3 := rango_3+1;
aumento := salario*0.05;
end;
if salario>20000 then
begin
rango_4 := rango_4+1;
end;
salario_aumentado := salario+aumento;
writeln ('Valor de aumento: ', aumento:0:6);
writeln ('Valor de salario aumentado: ', salario_aumentado: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');
writeln ('Valor de rango 1: ', rango_1);
writeln ('Valor de rango 2: ', rango_2);
writeln ('Valor de rango 3: ', rango_3);
writeln ('Valor de rango 4: ', rango_4);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.