-
Lenguaje
Pascal
-
Descripción
Aceptar por teclado: cédula, nombre, apellido, sueldo_b. Si el sueldo_b es mayor o igual a $33,000, entonces descuente: un 11% de impuesto sobre la renta (isr), un 8% de seguro familiar de salud (sfs), un 6% de administradora de fondos de pensiones (afp); de lo contrario descuente: un 8% de impuesto sobre la renta (isr), un 6% de seguro familiar de salud (sfs), un 4% de administradora de fondos de pensiones (afp). Calcular el total de descuento (td), que será la suma de los tres descuentos; y calcular el sueldo (sn), que será la resta del sueldo_b menos el total de descuento (td). Imprimir todas las variables y finalizar.
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 DescuentoDeIsrSfsYAfp;
uses crt;
var afp, isr, sfs, sn, sueldo_b : real;
var td : real;
var cedula, nombre, apellido : string;
begin
write ('Ingresa el cedula: ');
readln (cedula);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el apellido: ');
readln (apellido);
write ('Ingresa el valor de sueldo b: ');
readln (sueldo_b);
if sueldo_b>33000 then
begin
isr := sueldo_b*0.11;
sfs := sueldo_b*0.08;
afp := sueldo_b*0.06;
end
else
begin
isr := sueldo_b*0.08;
sfs := sueldo_b*0.06;
afp := sueldo_b*0.04;
end;
td := isr+sfs+afp;
sn := sueldo_b-td;
writeln ('Cedula: ', cedula);
writeln ('Nombre: ', nombre);
writeln ('Apellido: ', apellido);
writeln ('Valor de afp: ', afp:0:6);
writeln ('Valor de isr: ', isr:0:6);
writeln ('Valor de sfs: ', sfs:0:6);
writeln ('Valor de sn: ', sn:0:6);
writeln ('Valor de td: ', td:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var afp, isr, sfs, sn, sueldo_b : real;
var td : real;
var cedula, nombre, apellido : string;
begin
write ('Ingresa el cedula: ');
readln (cedula);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el apellido: ');
readln (apellido);
write ('Ingresa el valor de sueldo b: ');
readln (sueldo_b);
if sueldo_b>33000 then
begin
isr := sueldo_b*0.11;
sfs := sueldo_b*0.08;
afp := sueldo_b*0.06;
end
else
begin
isr := sueldo_b*0.08;
sfs := sueldo_b*0.06;
afp := sueldo_b*0.04;
end;
td := isr+sfs+afp;
sn := sueldo_b-td;
writeln ('Cedula: ', cedula);
writeln ('Nombre: ', nombre);
writeln ('Apellido: ', apellido);
writeln ('Valor de afp: ', afp:0:6);
writeln ('Valor de isr: ', isr:0:6);
writeln ('Valor de sfs: ', sfs:0:6);
writeln ('Valor de sn: ', sn:0:6);
writeln ('Valor de td: ', td:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.