Реферат Автоматизація розрахунку нарахувань заробітної плати в будівельному управлінні N 151

_vo [i]]: = copy (z, 1, j-1); z: = copy (z, j +1,250); {ПІБ}

j: = pos ('|', z); val (copy (z, 1, j-1), ktu [i, kol_vo [i]], conv); z: = copy (z, j +1,300); {КТУ}

{Розряд працівника}

j: = pos ('|', z); val (copy (z, 1, j-1), a [i, kol_vo [i], 6], conv); z: = copy (z, j +1,300 );

{Тариф/оклад працівника}

j: = pos ('|', z); val (copy (z, 1, j-1), t [i, kol_vo [i], 1], conv); z: = copy (z, j +1,300 );

{Табель часу працівника}

j: = pos ('|', z); val (copy (z, 1, j-1), t [i, kol_vo [i], 2], conv); z: = copy (z, j +1,300 );

j: = pos ('|', z); val (copy (z, 1, j-1), t [i, kol_vo [i], 3], conv); z: = copy (z, j +1,300 );

{Вихідні працівника}

j: = pos ('|', z); val (copy (z, 1, j-1), t [i, kol_vo [i], 4], conv); z: = copy (z, j +1,300 );

j: = pos ('|', z); val (copy (z, 1, j-1), t [i, kol_vo [i], 5], conv); z: = copy (z, j +1,300 );

{Понаднормові працівника}

j: = pos ('|', z); val (copy (z, 1, j-1), t [i, kol_vo [i], 6], conv); z: = copy (z, j +1,300 );

j: = pos ('|', z); val (copy (z, 1, j-1), t [i, kol_vo [i], 7], conv);

until eof (f);

close (f); end;

{Зчитування даних із другої таблиці}

for i: = 1 to 4 do begin

str (i, s); assign (f, 'vhod ' + s + '-2 -' + mw + '. txt'); reset (f);

for g: = 1 to 7 do readln (f, z); {пропустити шапку таблиці}

for g: = 1 to kol_vo [I] do begin

readln (f, z); j: = pos ('|', z); z: = copy (z, j +1,250);

j: = pos ('|', z); z: = copy (z, j +1,250);

for h: = 8 to 10 do begin j: = pos ('|', z); val (copy (z, 1, j-1), x, c);

a [i, g, h]: = round (x); fzp: = fzp-a [i, g, h]; z: = copy (z, j +1,250); end;

j: = pos ('|', z); val (copy (z, 1, j-1), x, c);

a [i, g, 18]: = round (x); z: = copy (z, j +1,250);

for h: = 11 to 12 do begin j: = pos ('|', z); val (copy (z, 1, j-1), x, c);

a [i, g, h]: = round (x); fzp: = fzp-a [i, g, h]; z: = copy (z, j +1,250); end;

j: = pos ('|', z); val (copy (z, 1, j-1), x, c); a [i, g, 19]: = round (x);

for h: = 13 to 16 do begin z: = copy (z, j +1,250); j: = pos ('|', z);

val (copy (z, 1, j-1), x, c); a [i, g, h]: = round (x); fzp: = fzp-a [i, g, h]; end;

end;

close (f); end;

end;

end.

Файл, що відповідає за основний розрахунок.

Unit3.pas

unit unit3;

interface

uses unit1;

procedure prog;

implementation

procedure prog;

var i, j, h: integer;

begin

br: = 0;

bi: = 0;

for i: = 1 to 4 do for j: = 1 to kol_vo [i] do begin

if a [i, j, 6] =...