Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2012, 21:48   #1
Алинка-Малинка
 
Регистрация: 15.05.2012
Сообщений: 5
Восклицание Разработка экспертной системы по подбору кадров!!!

Помогите пожалуйста, уважаемые программисты!!!!
_____
Задание таково.....
_____
Разработать экспертную систему, позволяющую формировать список вакантных должностей,на которые может претендовать по своим данным кандидат, обратившийся в отдел кадров предприятия или службу занятости. На основе анкетных данных осуществляется расчёт рейтинга кандидата на все подходящие должности. При этом тестируются профессиональные, деловые и психологические качества. Для отобранных должностей осуществляется проверка по базе данных вакансий и удовлетворение требований кандидата. Соответствие кандидата вакантной должности (рейтинг) может задаваться с определённым фактором уверенности.
_____
Вот что есть у меня.....

Program Exc;
uses crt;
var obr,op,kom,str,vpr,opy:byte;
begin
clrscr;
writeln('Vashe obrazovanie?');
writeln('1. Srednee');
writeln('2. Visshee');
readln(obr);
if obr=1 then
begin
writeln('Vash opit raboti?');
readln(op);
if op>2 then
writeln('Vasha dolgnost - Kabelshik')
else
begin
writeln('Vi kommynikabelni? 1/0');
readln(kom);
if kom=1 then
begin
writeln('Vi stressoystoichivi? 1/0');
readln(str);
if str=1 then
writeln('Vasha dolgnost - Operator')
else
writeln('Vi nam ne podhodite');
end
else
writeln('Vi nam ne podhodite');
end;
end;

if obr=2 then
begin
writeln('Vi programmist? 1/0');
readln(vpr);
if vpr=1 then
begin
writeln('Vash opit raboti?');
readln(op);
if op>3 then
writeln('Vasha dolgnost - System administrator')
else
writeln('Vasha dolgnost - Menedger po podklucheniu');
readln;
end
else
begin
writeln('Y vas est opit po ypravleniu personalom? 1/0');
readln(opy);
if opy=1 then
writeln('Vasha dolgnost - Rykovoditel')
else
writeln('Vi nam ne podhodite');
end;
end;
readkey;
End.
____(1 - значит "ДА"...0 - значит "НЕТ")
Качества (профессиональные,деловые, психологические) выбрала такие:
1)Образование
2)Образование высшее(программист)
3)Опыт работы
4)Коммуникабельность
5)Стресоустойчивость
6)Опыт управления персооналом.

Должности выбрала такие:
1)Кабельщик
2)Оператор
3)Системный администратор
4)Менеджер по подключению
5)Руководитель.
___________________
Вот....Может кто поможет расширить программу....или вообще видоизменить...
_______________
Буду очень благодарна!!!!
Алинка-Малинка вне форума Ответить с цитированием
Старый 15.05.2012, 22:28   #2
Arhangel7
Пользователь
 
Регистрация: 27.02.2010
Сообщений: 90
По умолчанию

помойму нужно начать с блок схемы, затем уже писать алгоритм программы

нужно так (ну я так думаю)
попросить кандидата заполнить анкету
потом перепроверить, т.е. вывести все то что он заполнил
согласен - обработка анкеты
вывод решения о приеме на работу и должность

нужно четко опредилить какие качества подходят для каждой должности
а далее сравниватьб и делать вывод

сравнение можно делать очень просто
через переменную типа integer
к примеру:
Руководитель - должно включать все
1)Образование
2)Образование высшее(программист)
3)Опыт работы
4)Коммуникабельность
5)Стресоустойчивость
6)Опыт управления персооналом.
значит руководитель := 123456
кондидат := 123456 (все заполнил)
сравниваем if кондидат = руководитель then быть ему руководителем и тд и тп
как-то так

Последний раз редактировалось Arhangel7; 15.05.2012 в 22:50.
Arhangel7 вне форума Ответить с цитированием
Старый 17.05.2012, 20:23   #3
Алинка-Малинка
 
Регистрация: 15.05.2012
Сообщений: 5
По умолчанию

Спасибо!!! будем пробовать!!!!
Алинка-Малинка вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработка микропроцессорной системы Hevadimka Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 11.04.2012 19:03
Разработка микропроцессорной системы Hevadimka Фриланс 1 09.04.2012 19:55
Создание экспертной системы Yo_Asakyra Помощь студентам 1 18.12.2011 18:25
Алгоритм работы экспертной системы INTERNIST bondik Свободное общение 0 15.04.2011 11:41
Проектирование и разработка информационной системы на примере работы отдела кадров - delphi lesha oskol Помощь студентам 3 24.01.2009 18:14