Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Поразрядная сортировка для списков

Читайте также:
  1. Быстрая сортировка Хоара
  2. Дополните описания списков всплывающими подсказками.
  3. Задание списков на Web-странице средствами HTML
  4. Использование CSS для задания параметров списков
  5. Методика «Q-сортировка» тенденций поведения в группе.
  6. Методические рекомендации по составлению и оформлению списков литературы к курсовым, выпускным квалификационным и магистерским работам.
  7. Методические рекомендации по составлению и оформлению списков литературы к курсовым, выпускным квалификационным и магистерским работам.
  8. Преимущества списков.
  9. Пример применения двунаправленных линейных списков для решения задач

Контроль – это процесс обеспечения достижения организацией своих целей.

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

Виды контроля маркетинга персонала:

1. Предварительный контроль – это реализация (не формирование!) определенных правил, процедур и линий поведения, строгое соблюдение которых есть способ убедиться, что работа развивается в заданном направлении.

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

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

Элементы контроля маркетинга персонала:

Объекты контроля – мероприятия и процедуры, позволяющие получить требуемую для контроля информацию.

Методы контроля – способствуют измерению и сопоставлению действительного и желаемого.

Субъекты контроля – носители контроля, включающие отдельных работников организации, отделы и подразделения, а также внешние по отношению к организации органы и учреждения.

Время проведения контроля.

Функции контроля маркетинга персонала:

1. Координационная функция (функция обнаружения ошибок и функция разъяснения);

2. Мотивационная функция.

 

Доп_лекция №12 21 ноября 2014 г.

Поразрядная сортировка для списков

unit Unitdigit_sort;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TSort_dig = class(TForm)

Memo1: TMemo;

ListBox1: TListBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

plist=^list;

list=record

date:integer;

next:plist;

end;

ff=file of integer;

var

Sort_dig: TSort_dig;

f:ff;

start:plist;

k:integer;

implementation

 

{$R *.dfm}

procedure output(var pp:plist);

var gg:plist;

begin

Sort_dig.ListBox1.Clear;

gg:=pp;

while gg<> nil do

begin

Sort_dig.ListBox1.Items.add(inttostr(gg^.date));

gg:=gg^.next;

end;

end;

procedure sortdigit(var res:plist);

var c,i,x,s,n:integer;

lp,ln,p,start1:plist;

Begin

c:=0;

lp:=nil;

Repeat

s:=res^.date;

s:=s div 10;

start1:=nil;

c:=c+1;

for i:=0 to 9 do

Begin

p:=res;

while p<> nil do

Begin

x:=p^.date;

for n:=1 to c-1 do

x:=x div 10;

x:=x mod 10;

if x=i then

Begin




Дата добавления: 2014-12-15; просмотров: 170 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2024 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав