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

#39;;

Edit2.Text: = '0 ';

Edit3.Text: = '0 ';

Edit4.Text: = '0 ';

Edit5.Text: = '0 ';

system.assign (f, 'vhod base.dat');

reset (f);

readln (f, z); val (z, fzp, conv); {ФЗП}

Edit3.Text: = FloatToStr (fzp);

readln (f, z); val (z, kol_d, conv); {Кількість днів}

Edit2.Text: = IntToStr (kol_d);

readln (f, z); val (z, tar_rab, conv); {Тариф робочого 5-го розряду}

Edit5.Text: = IntToStr (tar_rab);

readln (f, z); val (z, oc_m, conv); {Оклад майстра}

Edit4.Text: = FloatToStr (oc_m);

readln (f, z); val (z, n_mes, conv);

Edit1.Text: = IntToStr (n_mes);

system.close (f);

end;

end.

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

Unit1.pas

unit unit1;

interface

{Розділ констант } p> 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

unit unit2;

interface

uses unit1;

procedure vvod;

implementation

procedure vvod;

var i, j, g, h: integer;

begin

{Зчитування даних з першої таблиці}

for i: = 1 to 4 do kol_vo [i]: = 0;

for i: = 1 to 4 do begin

str (i, s); assign (f, 'vhod ' + s + '-1 -' + mw + '. txt'); reset (f);

for j: = 1 to 7 do readln (f, z); {пропустити шапку таблиці}

repeat readln (f, z); kol_vo [i]: = kol_vo [i] +1;

j: = pos ('|', z); z: = copy (z, j +1,250); {Пропускаємо номер}

j: = pos ('|', z); fio [i, kol...