-
Lenguaje
Pascal
-
Descripción
Solicite el apellido del trabajador y su sueldo básico. Con estos datos hallará:
- AFP (11% del sueldo básico).
- Essalud (9% del sueldo básico).
- 5ta categoría (Si el trabajador tiene un sueldo básico mayor o igual a 3000, el impuesto de 5ta categoría será igual a: 5ta categoría = ((14 x Sueldo básico) – 29050) x 15%)/12. Si el trabajador gana menos de 3000 la 5ta Categoría será 0.
- Sueldo Neto (Sueldo básico – AFP – 5ta Categoría)
Muestre como resultado el apellido del trabajador y los datos solicitados.
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
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
program AfpEssaludY5TaCategoria;
uses crt;
var AFP, Essalud, quinta_categoria, sueldo_basico, sueldo_neto : real;
var apellido : string;
begin
write ('Ingresa el apellido: ');
readln (apellido);
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
AFP := sueldo_basico*0.11;
Essalud := sueldo_basico*0.09;
if sueldo_basico>=3000 then
begin
quinta_categoria := (14.0*sueldo_basico-29050)*0.15/12;
end
else
begin
quinta_categoria := 0;
end;
sueldo_neto := sueldo_basico-AFP-quinta_categoria;
writeln ('Apellido: ', apellido);
writeln ('Valor de AFP: ', AFP:0:6);
writeln ('Valor de Essalud: ', Essalud:0:6);
writeln ('Valor de quinta categoria: ', quinta_categoria:0:6);
writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var AFP, Essalud, quinta_categoria, sueldo_basico, sueldo_neto : real;
var apellido : string;
begin
write ('Ingresa el apellido: ');
readln (apellido);
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
AFP := sueldo_basico*0.11;
Essalud := sueldo_basico*0.09;
if sueldo_basico>=3000 then
begin
quinta_categoria := (14.0*sueldo_basico-29050)*0.15/12;
end
else
begin
quinta_categoria := 0;
end;
sueldo_neto := sueldo_basico-AFP-quinta_categoria;
writeln ('Apellido: ', apellido);
writeln ('Valor de AFP: ', AFP:0:6);
writeln ('Valor de Essalud: ', Essalud:0:6);
writeln ('Valor de quinta categoria: ', quinta_categoria:0:6);
writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.