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

if round (oc_m+oc_m*1.5*nki)> round(tar_rab*8*kol_d+tar_rab*8*kol_d*1.5*nkr)

then begin p:=p+q; q:=q/10; end;

p:=p-q;

nkr:=(1-p)*fzp/br;

nki:=p*fzp/bi;

{ writeln (round (oc_m+oc_m*1.5*nki),' ',round(tar_rab*8*kol_d+tar_rab*8*kol_d*1.5*nkr));

writeln ('oc_m ',round(oc_m),' nki ',round( nki));

writeln ('oc_m ',round(oc_m),' nkr ',round( nkr));}

until round (oc_m+oc_m*1.5*nki)<> round(tar_rab*8*kol_d+tar_rab*8*kol_d*1.5*nkr);

{writeln ('ok ',round (oc_m+oc_m*1.5*nki),' ',round(tar_rab*8*kol_d+tar_rab*8*kol_d*1.5*nkr));

writeln ('ok nkr : ',round(nkr) ,' nki : ',nki);}

{ Зарплата по КТУ выпл. рабочим }

for i:=1 to 3 do

for j:=1 to kol_vo[i] do a[i,j,7]:=round(nkr*balls[i,j]);

{ Зарплата по КТУ выпл. ИТР }

for j:=1 to kol_vo[i] do a[4,j,7]:=round(nki*balls[4,j]);

{ Итоговое суммирование }

for i:=1 to 4 do

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

a[i,j,17]:=0;a[i,j,20]:=0;

for h:=3 to 5 do a[i,j,17]:=a[i,j,17]+a[i,j,h];

for h:=7 to 16 do a[i,j,17]:=a[i,j,17]+a[i,j,h];

for h:=17 to 19 do a[i,j,20]:=a[i,j,20]+a[i,j,h];

end;

end;

end.

Файл, отвечающий за вывод данных в выводные таблицы.

Unit4.pas

unit unit4;