Quomon.esRespuesta
ene. 29, 2010 - 04:00
No entiendo bien la consulta y por otro lado observo algunos errores en la defincion de variables y en la sintaxis de tu programa propuesto.
Sin embargo si simplemente quieres calcular el total de horas trabajadas de 4 empleados, 5 dptos. y 10 sucursales, un programa simple sería este:
program horastrabajadas;
var
he,hd,hs: integer; (* he:hora empleados, hd:hora dpto, hs:hora sucursal*)
i:integer;
hora:integer
begin
he:=0; hd:0; hs:=0;
(*calculo las horas de los 4 empleados*)
for i:= 1 to 4 do
begin
writeln('Ingresa las horas trabajadas del empleado:',i);
readln(hora);
he:=he+hora;
end;
(*calculo las horas de los 5 dptos.*)
for i:= 1 to 5 do
begin
writeln('Ingresa las horas trabajadas del departamento:',i);
readln(hora);
hd:=hd+hora;
end;
(*calculo las horas de los 10 sucursales*)
for i:= 1 to 10 do
begin
writeln('Ingresa las horas trabajadas de la sucursal:',i);
readln(hora);
hs:=hs+hora;
end;
(* Muestro los valores*)
writeln('Las horas trabajadas de los 4 empleados son:', he);
writeln('Las horas trabajadas de los 5 departamentos son:', hd);
writeln('Las horas trabajadas de las 10 sucursales son:', hs);
end.
Saludos...
Sin embargo si simplemente quieres calcular el total de horas trabajadas de 4 empleados, 5 dptos. y 10 sucursales, un programa simple sería este:
program horastrabajadas;
var
he,hd,hs: integer; (* he:hora empleados, hd:hora dpto, hs:hora sucursal*)
i:integer;
hora:integer
begin
he:=0; hd:0; hs:=0;
(*calculo las horas de los 4 empleados*)
for i:= 1 to 4 do
begin
writeln('Ingresa las horas trabajadas del empleado:',i);
readln(hora);
he:=he+hora;
end;
(*calculo las horas de los 5 dptos.*)
for i:= 1 to 5 do
begin
writeln('Ingresa las horas trabajadas del departamento:',i);
readln(hora);
hd:=hd+hora;
end;
(*calculo las horas de los 10 sucursales*)
for i:= 1 to 10 do
begin
writeln('Ingresa las horas trabajadas de la sucursal:',i);
readln(hora);
hs:=hs+hora;
end;
(* Muestro los valores*)
writeln('Las horas trabajadas de los 4 empleados son:', he);
writeln('Las horas trabajadas de los 5 departamentos son:', hd);
writeln('Las horas trabajadas de las 10 sucursales son:', hs);
end.
Saludos...
Añadir Nuevo Comentario