-
Lenguaje
Pascal
-
Descripción
Calcular la paga neta de un trabajador conociendo el número de horas trabajadas (Horas), la tarifa horaria (Tarifa) y la tasa de impuestos (Tasa). Sabiendo que la paga bruta (PagaBruta) son el número de horas por la tarifa, luego los impuestos (Impuestos), se calculan la paga bruta por la tasa y finalmente la paga neta (PagaNeta) es la diferencia entre la paga bruta y los impuestos. En el ejercicio lo que está entre paréntesis son las variables con sus nombres identificadores. Ingrese desde teclado las horas, tarifa horaria y la tasa de impuestos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program PagaNeta;
uses crt;
var Horas, Impuestos, PagaBruta, PagaNeta, Tarifa : real;
var Tasa : real;
begin
write ('Ingresa el valor de Horas: ');
readln (Horas);
write ('Ingresa el valor de Tarifa: ');
readln (Tarifa);
write ('Ingresa el valor de Tasa: ');
readln (Tasa);
PagaBruta := Horas*Tarifa;
Impuestos := PagaBruta*Tasa/100;
PagaNeta := PagaBruta-Impuestos;
writeln ('Valor de Impuestos: ', Impuestos:0:6);
writeln ('Valor de PagaBruta: ', PagaBruta:0:6);
writeln ('Valor de PagaNeta: ', PagaNeta:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var Horas, Impuestos, PagaBruta, PagaNeta, Tarifa : real;
var Tasa : real;
begin
write ('Ingresa el valor de Horas: ');
readln (Horas);
write ('Ingresa el valor de Tarifa: ');
readln (Tarifa);
write ('Ingresa el valor de Tasa: ');
readln (Tasa);
PagaBruta := Horas*Tarifa;
Impuestos := PagaBruta*Tasa/100;
PagaNeta := PagaBruta-Impuestos;
writeln ('Valor de Impuestos: ', Impuestos:0:6);
writeln ('Valor de PagaBruta: ', PagaBruta:0:6);
writeln ('Valor de PagaNeta: ', PagaNeta:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.