Pascal/Turbo Pascal - ayuda!! que hago mal???

   
Vista:

ayuda!! que hago mal???

Publicado por Lorena (4 intervenciones) el 02/06/2008 09:31:46
Hola! Alguien me puede decir qué estoy haciendo mal???? Gracias!!

TArchHoras = file of RecHoras;

Procedure CrearCargarArch(var Horas : TArchHoras);
var
RegH: RecHoras;
begin
assign(Horas,'HORAS.Dat');
{$I-}
reset(Horas);
{$I+}
if ioresult=2 then
Rewrite (Horas)
else begin
write('Error desconocido. ');
write('El programa terminará .');
readkey;
halt
end{.};

write('Ingrese el ID del empleado: ');
read(RegH.Id_Empleado);

while RegH.Id_Empleado <> 0 do {carga datos hasta ingresar Empleado=0}
begin
write (RegH.Id_Empleado);

write('Ingrese ID del Proyecto: ');
read(RegH.Id_Proyecto);
write (RegH.Id_Proyecto);

write('Ingrese la fecha del proyecto (aaaammdd): ');
read(RegH.Fecha);
write (RegH.Fecha);

writeln('Ingrese la cantidad de horas trabajadas');
read(RegH.Cant_H_Trab);
write (RegH.Cant_H_Trab);

write('Ingrese la descripci¢n de la tarea realizada.');
writeln ('(M ximo 50 caracteres)');
read(RegH.D_Tarea);
write (RegH.D_Tarea);

write('Ingrese el ID del empleado: ');
read(RegH.Id_Empleado);

end;
end;

begin
clrscr;
CrearCargarArch(Horas);
Close (Horas);
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder