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