• Lenguaje

    Pascal

  • Descripción

    Una compañía cuenta con 5 choferes, y desea registrar por cada uno de ellos los siguientes datos: nombre completo, las horas trabajadas por día, para obtener el sueldo correspondiente de la semana (6 días), siendo que el sueldo por hora es de 28 pesos. Mostrar el nombre, las horas trabajadas en la semana y el sueldo correspondiente por cada empleado después de calcularlo.

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 SueldoDe5Choferes;
uses crt;

var horas_trabajadas_por_dia_1, horas_trabajadas_por_dia_2, horas_trabajadas_por_dia_3, horas_trabajadas_por_dia_4, horas_trabajadas_por_dia_5 : integer;
var horas_trabajadas_por_dia_6, horas_trabajadas_por_semana, i, sueldo : integer;
var nombre_completo : string;
begin
    for i:=1 to 5 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el nombre completo: ');
        readln (nombre_completo);
        write ('Ingresa el valor de horas trabajadas por dia 1: ');
        readln (horas_trabajadas_por_dia_1);
        write ('Ingresa el valor de horas trabajadas por dia 2: ');
        readln (horas_trabajadas_por_dia_2);
        write ('Ingresa el valor de horas trabajadas por dia 3: ');
        readln (horas_trabajadas_por_dia_3);
        write ('Ingresa el valor de horas trabajadas por dia 4: ');
        readln (horas_trabajadas_por_dia_4);
        write ('Ingresa el valor de horas trabajadas por dia 5: ');
        readln (horas_trabajadas_por_dia_5);
        write ('Ingresa el valor de horas trabajadas por dia 6: ');
        readln (horas_trabajadas_por_dia_6);
        horas_trabajadas_por_semana := horas_trabajadas_por_dia_1+horas_trabajadas_por_dia_2+horas_trabajadas_por_dia_3+horas_trabajadas_por_dia_4+horas_trabajadas_por_dia_5+horas_trabajadas_por_dia_6;
        sueldo := horas_trabajadas_por_semana*28;
        writeln ('Nombre completo: ', nombre_completo);
        writeln ('Valor de horas trabajadas por semana: ', horas_trabajadas_por_semana);
        writeln ('Valor de sueldo: ', sueldo);
        writeln;
    end;
end.