• 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
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.