• Lenguaje

    Pascal

  • Descripción

    Determine el sueldo semanal de N trabajadores considerando que se les descuenta 5% de su sueldo si ganan entre 0 y 150 pesos. Se les descuenta 7% si ganan más de 150 pero menos de 300, y 9% si ganan más de 300 pero menos de 450. Los datos son horas trabajadas, sueldo por hora y nombre de cada trabajador.

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
33
34
35
36
37
38
39
program SueldoSemanalDeNTrabajadores;
uses crt;

var i, n : integer;
var descuento, horas_trabajadas, sueldo_por_hora, sueldo_semanal : real;
var nombre_del_trabajador : string;
begin
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el nombre del trabajador: ');
        readln (nombre_del_trabajador);
        write ('Ingresa el valor de horas trabajadas: ');
        readln (horas_trabajadas);
        write ('Ingresa el valor de sueldo por hora: ');
        readln (sueldo_por_hora);
        sueldo_semanal := horas_trabajadas*sueldo_por_hora;
        descuento := 0;
        if (sueldo_semanal>0) and (sueldo_semanal<=150) then
            begin
                descuento := sueldo_semanal*0.05;
            end;
        if (sueldo_semanal>150) and (sueldo_semanal<=300) then
            begin
                descuento := sueldo_semanal*0.07;
            end;
        if (sueldo_semanal>300) and (sueldo_semanal<=450) then
            begin
                descuento := sueldo_semanal*0.09;
            end;
        sueldo_semanal := sueldo_semanal-descuento;
        writeln ('Nombre del trabajador: ', nombre_del_trabajador);
        writeln ('Valor de descuento: ', descuento:0:6);
        writeln ('Valor de sueldo semanal: ', sueldo_semanal:0:6);
        writeln;
    end;
end.