Задача управления персоналом. Оптимизация затрат на содержание рабочей силы в условиях случайного характера загрузки, когда может наблюд

Автор работы: Пользователь скрыл имя, 08 Апреля 2011 в 15:35, курсовая работа

Описание работы

Улучшения качества функционирования некоторой социальной системы возможно только при тщательном анализе перечисленных выше требований, так как именно они определяют вид целевых функций и накладываемых ограничений, а так же метод исследования, и в конечном счете от них зависит реализация разработанных рекомендаций. Таким образом, управление трудовыми ресурсами возможно только на научной основе, и именно этой цели и призваны служить наука о руководстве и методы исследования операций.

Содержание работы

ВВЕДЕНИЕ 2
1. КОМПЛЕКТОВАНИЕ ШТАТА ОРГАНИЗАЦИИ. 4
1.1. Набор кандидатов. 4
1.2. Отбор из числа кандидатов лиц, наиболее удовлетворяющих требованиям, которые предъявляются к будущим сотрудникам. 7
2. РАСПРЕДЕЛЕНИЕ ТРУДОВЫХ РЕСУРСОВ. 9
2.1. Модели транспортного типа. 9
2.. Модели целевого программирования. 10
2.3. Модели последовательного назначения исполнителей. 11
2.4. Имитационные модели. 11
3. ИСПОЛЬЗОВАНИЕ ТРУДОВЫХ РЕСУРСОВ. 12
4. АНАЛИЗ РЕАЛИЗАЦИИ ФУНКЦИЙ УПРАВЛЕНИЯ ПЕРСОНАЛОМ 13
5. ПРАКТИЧЕСКАЯ ЗАДАЧА 16
Заключение 29

Скачать архив (158.42 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

КУРСОВАЯ.docx

— 633.67 Кб (Скачать файл)

begin

if not(s2 = 100) then

begin

repeat

a := random( 40 );

until (a <= 100 - s2);

s2 := s2 + a;

end

else

a := 0;

Form1.StringGrid2.Cells[i,1]:=IntToStr( a );

if not(s3 = 100) then

begin

repeat

a := random( 40 );

until (a <= 100 - s3);

s3 := s3 + a;

end

else

a := 0;

Form1.StringGrid3.Cells[i,1]:=IntToStr( a );

end;

Form1.StringGrid2.Cells[7,1]:=IntToStr( 100 - s2 );

Form1.StringGrid3.Cells[7,1]:=IntToStr( 100 - s3 );

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

ListBox1.Items.Clear;

i:=4;

try

begin

probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;

probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;;

i:=0;

probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;

i:=0;

probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;

C1:=StrToInt(Edit1.Text);

C2:=StrToInt(Edit2.Text);

C3:=StrToInt(Edit3.Text);

end

except

on Exception do

begin

ShowMessage('Данные не верны!!!');

exit;

end;

solution(spinEdit1.Value, spinEdit2.Value, spinEdit3.Value);

rando;

end;

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

StringGrid1.Cells[0,0]:='Кол.';

StringGrid1.Cells[0,1]:='%';

StringGrid2.Cells[0,0]:='Кол.';

StringGrid2.Cells[0,1]:='%';

StringGrid3.Cells[0,0]:='Кол.';

StringGrid3.Cells[0,1]:='%';

for i:=4 to 16 do

StringGrid1.Cells[i-3,0]:=IntToStr(i);

i:=1;

StringGrid1.Cells[i,1]:='2'; i:=i+1;

StringGrid1.Cells[i,1]:='4'; i:=i+1;

StringGrid1.Cells[i,1]:='8'; i:=i+1;

StringGrid1.Cells[i,1]:='10'; i:=i+1;

StringGrid1.Cells[i,1]:='12'; i:=i+1;

StringGrid1.Cells[i,1]:='10'; i:=i+1;

StringGrid1.Cells[i,1]:='8'; i:=i+1;

StringGrid1.Cells[i,1]:='6'; i:=i+1;

StringGrid1.Cells[i,1]:='2';

for i:=0 to 7 do

StringGrid2.Cells[i,0]:=IntToStr(i);

for i:=0 to 7 do

StringGrid3.Cells[i,0]:=IntToStr(i);

i:=1;

StringGrid2.Cells[i,1]:='3'; i:=i+1;

StringGrid2.Cells[i,1]:='9'; i:=i+1;

StringGrid2.Cells[i,1]:='15'; i:=i+1;

StringGrid2.Cells[i,1]:='20'; i:=i+1;

StringGrid2.Cells[i,1]:='22'; i:=i+1;

StringGrid2.Cells[i,1]:='14'; i:=i+1;

StringGrid2.Cells[i,1]:='10'; i:=i+1;

StringGrid2.Cells[i,1]:='7'; i:=i+1;

i:=1;

StringGrid3.Cells[i,1]:='14'; i:=i+1;

StringGrid3.Cells[i,1]:='26'; i:=i+1;

StringGrid3.Cells[i,1]:='28'; i:=i+1;

StringGrid3.Cells[i,1]:='18'; i:=i+1;

StringGrid3.Cells[i,1]:='8'; i:=i+1;

StringGrid3.Cells[i,1]:='4'; i:=i+1;

StringGrid3.Cells[i,1]:='2'; i:=i+1;

StringGrid3.Cells[i,1]:='0'; i:=i+1;

end;

end.

Информация о работе Задача управления персоналом. Оптимизация затрат на содержание рабочей силы в условиях случайного характера загрузки, когда может наблюд