Реферат: Автоматизация расчета начислений заработной платы в строительном управлении N 151

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]=0 then balls[i,j]:=t[i,j,1]*t[i,j,2]/kol_d

else balls[i,j]:=t[i,j,1]*t[i,j,3];

a[i,j,3]:=round(balls[i,j]);

{Выходные}

if a[i,j,6]=0 then begin a[i,j,4]:=round(1.5*t[i,j,1]*t[i,j,4]/kol_d);

balls[i,j]:=balls[i,j]+t[i,j,1]*t[i,j,4]/kol_d;end

else begin balls[i,j]:=balls[i,j]+t[i,j,1]*t[i,j,5];

a[i,j,4]:=round(1.5*t[i,j,1]*t[i,j,5]);end;

{Сверхурочные}

if a[i,j,6]<>0 then begin balls[i,j]:=balls[i,j]+t[i,j,1]*(t[i,j,6]+t[i,j,7]);

a[i,j,5]:=round(t[i,j,1]*(1.5*t[i,j,6]+2*t[i,j,7]));end

else begin balls[i,j]:=balls[i,j]+t[i,j,1]*(t[i,j,6]+t[i,j,7])/8/kol_d;

a[i,j,5]:=round(t[i,j,1]*(1.5*t[i,j,6]+2*t[i,j,7])/8/kol_d);end;

{Расчет баллов}

balls[i,j]:=balls[i,j]*ktu[i,j];

if a[i,j,6]<>0 then br:=br+balls[i,j] else bi:=bi+balls[i,j];

for h:=3 to 5 do fzp:=fzp-a[i,j,h];{Уменьшение ФЗП}

end;

{writeln (' bi: ',round(bi),' br: ',round(br));}

{ Надбавка по КТУ }

nkr:=0.75*fzp/br;nki:=0.25*fzp/bi;

{writeln('fzp ',round(fzp));}

p:=0;

q:=1;

{ Цикл оптимизации}