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

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;