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

uses unit1;

procedure vivod;

implementation

procedure vivod ;

var i,j,h:integer;

begin

{Вывод в таблицу}

for i:=1 to 4 do begin

str(i,s);assign(f,'vihod\'+s+'-'+mw+'.txt');rewrite(f);

s:='Таблица заработной платы по ' +s+' участку на '+mes[n_mes]+' месяц';

writeln(f,s);

{Создание шапки таблицы}

assign(f1,'vhod/shapka');reset(f1);

for j:=1 to 6 do begin readln(f1,z);writeln(f,z);end;close(f1);

for j:=1 to kol_vo[i] do begin {Вывод данных в таблицу}

write(f,'|');write(f,j:2);write(f,'|');

write(f,fio[i,j]:16);write(f,'|');

for h:=3 to 5 do begin write(f,a[i,j,h]:8);write(f,'|');end;

str(round(balls[i,j]),s);write(f,s:8);write(f,'|');

for h:=7 to 20 do begin write(f,a[i,j,h]:8);write(f,'|');end;

write(f,j:2);writeln(f,'|');

end;

close(f);

end;

{readln;}

end;

end.

Список идентификаторов, используемых в программе:

n_mes -№ ìåñÿöà;