Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Edit4.Text:='0';

Edit5.Text:='0';

system.assign(f,'vhodbase.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

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

Рекомендуем скачать другие рефераты по теме: ответы по тетради, реферат на английском языке.



Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки