-
Lenguaje
Pascal
-
Descripción
Determine el salario de 10 trabajadores con la siguiente información:
Nombre de la variable | Descripción de la variable
numero_de_empleado | Número de empleado
nombre | Nombre del empleado
pago_por_hora | Pago por hora trabajada
horas_trabajadas | Horas trabajadas
bono | Bono de productividad
El bono de productividad se calcula con el 5% del subtotal.
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
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
program SalarioDe10Trabajadores;
uses crt;
var i : integer;
var bono, horas_trabajadas, pago_por_hora, salario, subtotal : real;
var numero_de_empleado, nombre : string;
begin
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el numero de empleado: ');
readln (numero_de_empleado);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
subtotal := pago_por_hora*horas_trabajadas;
bono := subtotal*0.05;
salario := subtotal+bono;
writeln ('Numero de empleado: ', numero_de_empleado);
writeln ('Nombre: ', nombre);
writeln ('Valor de bono: ', bono:0:6);
writeln ('Valor de salario: ', salario:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln;
end;
end.
uses crt;
var i : integer;
var bono, horas_trabajadas, pago_por_hora, salario, subtotal : real;
var numero_de_empleado, nombre : string;
begin
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el numero de empleado: ');
readln (numero_de_empleado);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
subtotal := pago_por_hora*horas_trabajadas;
bono := subtotal*0.05;
salario := subtotal+bono;
writeln ('Numero de empleado: ', numero_de_empleado);
writeln ('Nombre: ', nombre);
writeln ('Valor de bono: ', bono:0:6);
writeln ('Valor de salario: ', salario:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln;
end;
end.