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

0]: = a [i, j, 20] + a [i, j, h];

end;

end;

end.

Файл, що відповідає за виведення даних у вивідні таблиці.

Unit4.pas

unit unit4;

interface

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 - № ìåñÿöà;

conv

f, f1 -Òåêñòîâûå;

z, s, mw: string; x, yl-äîïîëíèòåëüíûå ïåðåìåííûå;

kol_d, tar_rab, fzp, oc_m-Èñõîäíàÿ èíôîðìàöèÿ;

kol_vo [1 .. 4]-Êîëè ÷ åñòâî ðàáîòíèêîâ â ãðóïïå;

ktu [1 .. 4,1 .. 20]-ГЉГ’Г“;

fio [1 .. 4,1 .. 20]-Г”амілія, Г€мя, ГЋчество працівника;

a [1 .. 4,1 .. 20,3 .. 20]-Âûõîäíàÿ èíôîðìàöèÿ èç òàáëèöû;

t: [1 .. 4,1 .. 20,1 .. 7]-Òàðèô, îêëàä è òàáåëü;

balls [1 .. 4,1 .. 20] of extended -Áàëëû ðàáîòíèêîâ;

br, bi-Ñóììи áàëëîâ робітників та ІТП;

i, j, g, h, c;

nkr, nki, p, q-Íîðìàòèâíûå êîýôôèöèåíòû, Äîëÿ

fr, fi-Ñðåäñòâà ðàñïðåä. ïî ÊÒÓ ðàáî ÷ èì è ÈÒÐ;

mes-найменування месецев;

Додатково:

Програма здійснює порядковий введення з вхідних файлів, обробляє їх за допомогою робочих файлів, роблячи порядковий висновок у вихідні файли. Для функціонування програми використовуються форматні файли. Максимальний об'єм введеної інформації обмежений структурою таблиці. Крім основних, програма використовує стандартні модулі мови Delphi.

В В В В В В В В В В В В В В В В В В В ...