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