• Lenguaje

    Pascal

  • Descripción

    Solicite el nombre, documento, teléfono, sueldo básico, días laborados de un empleado. El empleado gana además de su sueldo una bonificación de $80,000 y un auxilio de transporte de $40,000. El programa debe imprimir los datos del empleado y el neto a pagar según los días laborados y lo que gana además del sueldo.

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
program SueldoYBonifiacionDeUnEmpleado;
uses crt;

var auxilio_de_transporte, bonificacion, dias_laborados, sueldo_basico, sueldo_bruto : real;
var sueldo_neto : real;
var nombre, documento, telefono : string;
begin
    write ('Ingresa el nombre: ');
    readln (nombre);
    write ('Ingresa el documento: ');
    readln (documento);
    write ('Ingresa el telefono: ');
    readln (telefono);
    write ('Ingresa el valor de dias laborados: ');
    readln (dias_laborados);
    write ('Ingresa el valor de sueldo basico: ');
    readln (sueldo_basico);
    bonificacion := 80000;
    auxilio_de_transporte := 40000;
    sueldo_bruto := sueldo_basico*dias_laborados;
    sueldo_neto := sueldo_bruto+bonificacion+auxilio_de_transporte;
    writeln ('Nombre: ', nombre);
    writeln ('Documento: ', documento);
    writeln ('Telefono: ', telefono);
    writeln ('Valor de auxilio de transporte: ', auxilio_de_transporte:0:6);
    writeln ('Valor de bonificacion: ', bonificacion:0:6);
    writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
    writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.