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