-
Lenguaje
Pascal
-
Descripción
Una empresa necesita calcular el sueldo de un empleado con la siguiente formula. Sueldo = salario - impuesto - ahorro. Se sabe que el impuesto es del 16% y el ahorro dependerá de su salario, si el salario es mayor a $2000 el ahorro será del 7% del salario, de lo contrario es del 5% del salario.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program SueldoAhorroEImpuesto;
uses crt;
var ahorro, impuesto, salario, sueldo : real;
begin
write ('Ingresa el valor de salario: ');
readln (salario);
impuesto := salario*0.16;
if salario>2000 then
begin
ahorro := salario*0.07;
end
else
begin
ahorro := salario*0.05;
end;
sueldo := salario-impuesto-ahorro;
writeln ('Valor de ahorro: ', ahorro:0:6);
writeln ('Valor de impuesto: ', impuesto:0:6);
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ahorro, impuesto, salario, sueldo : real;
begin
write ('Ingresa el valor de salario: ');
readln (salario);
impuesto := salario*0.16;
if salario>2000 then
begin
ahorro := salario*0.07;
end
else
begin
ahorro := salario*0.05;
end;
sueldo := salario-impuesto-ahorro;
writeln ('Valor de ahorro: ', ahorro:0:6);
writeln ('Valor de impuesto: ', impuesto:0:6);
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.