-
Lenguaje
Pascal
-
Descripción
El sueldo bruto de los empleados de una empresa se calcula multiplicando las horas trabajadas por una tarifa horaria que depende de la categoría del empleado de acuerdo con la siguiente tabla:
Categoría | Tarifa
A | 45.0
B | 42.5
C | 40.0
D | 37.5
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
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
program SueldoBrutoPorCategoria;
uses crt;
var categoria : integer;
var horas_trabajadas, sueldo_bruto : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
sueldo_bruto := 0;
writeln ('Selecciona el valor de categoria.');
writeln (' 1.- A');
writeln (' 2.- B');
writeln (' 3.- C');
writeln (' 4.- D');
write (' : ');
repeat
readln (categoria);
if (categoria<1) or (categoria>4) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (categoria>=1) and (categoria<=4);
if categoria=1 then
begin
sueldo_bruto := 45.0*horas_trabajadas;
end;
if categoria=2 then
begin
sueldo_bruto := 42.5*horas_trabajadas;
end;
if categoria=3 then
begin
sueldo_bruto := 40.0*horas_trabajadas;
end;
if categoria=4 then
begin
sueldo_bruto := 37.5*horas_trabajadas;
end;
writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var categoria : integer;
var horas_trabajadas, sueldo_bruto : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
sueldo_bruto := 0;
writeln ('Selecciona el valor de categoria.');
writeln (' 1.- A');
writeln (' 2.- B');
writeln (' 3.- C');
writeln (' 4.- D');
write (' : ');
repeat
readln (categoria);
if (categoria<1) or (categoria>4) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (categoria>=1) and (categoria<=4);
if categoria=1 then
begin
sueldo_bruto := 45.0*horas_trabajadas;
end;
if categoria=2 then
begin
sueldo_bruto := 42.5*horas_trabajadas;
end;
if categoria=3 then
begin
sueldo_bruto := 40.0*horas_trabajadas;
end;
if categoria=4 then
begin
sueldo_bruto := 37.5*horas_trabajadas;
end;
writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.