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

end.

Файл, отвечающий за идентификацию переменных.

Unit1.pas

unit unit1;

interface

{ Раздел констант }

const mes:array [1..12] of string [8]=('Январь','Февраль','Март','Апрель','Май',

'Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');

{ Описание переменных }

VAR n_mes:integer;{N месяца}

conv:integer; {перем.-конвектор}

f,f1:system.text;

z,s,mw:string;x,y:real; {дополнительные переменные}

kol_d,tar_rab: integer; {Исходная информация}

fzp,oc_m:extended; {Исходная информация}

kol_vo:array[1..4] of integer; {Количество работников в группе}

ktu:array[1..4,1..20] of real; {КТУ}

fio:array[1..4,1..20] of string[16]; {ФИО}

a:array[1..4,1..20,3..20] of longint; {Выходная информация}

t:array[1..4,1..20,1..7] of real; {Тариф/оклад и табель}

balls:array[1..4,1..20] of extended; {Баллы работников}

br,bi:extended; {Сумма баллов}

{ i,j,g,h,}c:integer; {переменные-счетчики}

nkr,nki,p,q:extended; {Нормативные коэффициенты, Доля ИТР,Перем.-счетчик}

fr,fi:real; { Средства распред. по КТУ рабочим и ИТР}

implementation

end.

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

Unit2.pas