Pascal/Turbo Pascal - actualizar archivo

   
Vista:

actualizar archivo

Publicado por federico (2 intervenciones) el 18/01/2013 21:57:44
Bueno el problema o mas bien consulta es el siguiente, tengo un archivo de registros de unos 500 empleados y necesito hacer un procedimiento que aumente en porcentaje (pidiendolo) a todos los empleados . el registro es el siguiente

1
2
3
4
5
6
7
8
9
10
type
    tanual=array [1..12] of real; // son los meses 
 
    rmaster= record
     legajo:integer;
     categoria:integer;
     nomyape:string[40];
     sdobruto:tanual;
 
tmaster=file of rmaster;


por ejemplo si quiero q a todos los empleados se les aumente un 10 porciento el sueldo que tome lo que cobro el mes anterior y le sume su 10 porciento. eso repetido 500 veces.

desde ya gracias!!!
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

actualizar archivo

Publicado por ramon (2072 intervenciones) el 19/01/2013 11:45:51
Mira tendrías que realizar lo siguiente.

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
procedure aumentosueldo(tanto : integer; mes : integer);
   var
       cont : integer;
        aumento : real;
        f :  file of rmaster;
        emple : rmaster;
         arch : longint;
   begin
           assign(f,'nombre archivo y extension);
     {$I-} reset(f); {$I+}
    if ioresult <> 0 then
    begin
            writeln('Error el archivo no se encontro');
     end
  else
          begin
               arch := 0;
      repeat
                 seek(f,arch);
                  read(f,emple);
                 emple.sdobruto[mes] := emple.sdobruto[mes] + (emple.sdobruto[mes] * tanto / 100);
                  write(f,emple);
                 arch := arch + 1;
      until arch > filesize(f) - 1;
       close(f);
          end;
    end;


como podrás apreciar tendrás que entrar el tanto por ciento y el mes que cambiara su
sueldo por ese tanto por ciento.
Lógica mente el aumento se realiza sobre el sueldo de ese mes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

actualizar archivo

Publicado por federico (2 intervenciones) el 22/01/2013 03:24:19
Genial muchas gracias es exacto lo que queria hacer!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar