como puedo arreglar un programa que calcule horas trabajadas de 4 empleados, 5 dptos y 10 sucursale

estará bien así..?

Const
i= ;
Type
Horastrabajadas= array (horas) of Read;
Var
Horas: Horastrabajadas;
S.Mg. P, C: Real
Begin
For C.=1 to i do
[Repeat
Write (‘ingresar horas de 4 empleados’);
Write (‘Ingresar horas de 5 departamentos’);
Write (‘Ingresar horas de 10 sucursales’);
Read (‘Horas’);
[Until Horas
S:= S + horas
ICFC: 1 Then
My:= Horas
Else
If Horas > My Then
My:= Horas
Else End If
Write (C:3);
P:= S/i
Write (‘ horas trabajadas es:’, My);
Write (‘El promedio de las horas es:’, P);
End.

Comments (0) | New Comment

Add New Comment

Do you have the same question? Follow this Question

Answer this Question

Report it

Tags: programa, 4, 3, 5

Answers

frearg

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

Comments (0) | New Comment

Add New Comment

Jan 29, 2010 - 05:00 AM

Report it

Question

como puedo arreglar un programa que calcule horas trabajadas de 4 empleados, 5 dptos y 10 sucursale

Answers

OTHER QUESTIONS NEEDING ANSWERS

Popular Tags

Tools