Разработка информационной системы "Выбор абитуриента"

Усовершенствование процесса профориентации школьников путем создания информационной системы способной помочь абитуриенту подобрать наиболее подходящее ему направление подготовки или специальность. Разработка информационной системы "Выбор абитуриента".

Рубрика Педагогика
Вид дипломная работа
Язык русский
Дата добавления 25.04.2019
Размер файла 2,4 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Рисунок 12 - Объект DataModule

Интерфейс информационной системы «Выбор абитуриента» включает в себя 11 экранных форм. Первая форма представляет собой приветственный экран, так как пользователями данного программного средства будут школьники, этот и обусловил выбор наиболее простого дизайна продукта, который представлен на рисунке 13.

Рисунок 13 - Интерфейс пользователя

На рисунке 13 представлен именно интерфейс пользователя, интерфейс же администратора немного отличается от представленного. Как видно из рисунка, функции представлены в порядке, наиболее удобном для работы с программным продуктом.

Для использования системы в качестве администратора необходимо перейти на форму авторизации, представленную на рисунке 14.

Рисунок 14 - Форма авторизации

На данной форме пользователь вводит свой логин и пароль, и если они совпадают с имеющейся в таблице записи, то пользователь перейдет на форму редактирования базы данных. В противоположном же случае, пользователь увидит следующую форму (рисунок 15).

Рисунок 15 - Форма ошибки авторизации

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

3.3 Описание контрольного примера реализации примера

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

Для начала необходимо продемонстрировать работу системы с обычным пользователем (абитуриентом). На главной форме, представленной на рисунке 13, индивид решает с чего начать ознакомление с системой. Рассмотрим случай, когда пользователь просматривает все разделы по порядку. Поэтому первоначально абитуриент выбирает пункт «Информация об университете», результат показан на рисунке 16.

Рисунок 16 - Форма «Информация об университете»

На форме представлен список институтов и факультетов Белгородского государственного национального исследовательского университета. При нажатии на кнопку с названием института или факультета осуществляется переход на соответствующую вкладку. Например, пользователя интересует юридический институт (рисунок 17).

Рисунок 17 - Вкладка «Юридический институт»

На вкладке можно увидеть краткую информацию об институте и кнопку «Меню» внизу, нажатие на эту кнопку вернет пользователя на вкладку, изображенную на рисунке 16. Таким же образом организованы и остальные вкладки данной формы.

Ознакомившись с интересующими его институтами и факультетами, пользователь выбирает пункт меню «Статистика прошлых лет» для просмотра проходных баллов на ту или иную специальность за предыдущие годы, как показано на рисунке 18.

Рисунок 18 - Форма «Статистика прошлых лет»

Просмотрев статистику приема и прочитав инструкцию, пользователь переходит к пункту меню «Тестирование». Это главный раздел системы, так как её первоочередное назначение - профориентация пользователей. Перейдя на форму, пользователь начинает тестирование, как изображено на рисунке 19:

Рисунок 19 - Прохождение теста №1

Как можно увидеть из рисунка, помимо теста на форме расположены две кнопки: «Результат» и «Сброс». Нажатием на кнопку «Сброс» пользователь может убрать выбранные им ответы, использование кнопки «Результат» необходимо для перехода на вкладку «Результаты»,на которой централизовано отображаются результаты всех 6 тестов. Тест №1 основан на методике Йовайши. В рамках тестирования необходимо выбрать наиболее близкое утверждение из двух, которые представлены в каждом из 30 вопросов.

Далее пользователь переходит к выполнению теста №2, как показано на рисунке 20.

Рисунок 20 - Прохождение теста № 2

Тест №2 - это использование методики Голланда: тестируемому предлагается выбрать более понравившуюся профессию из каждой из 42 пар.

После прохождения теста №2 пользователь переходит к следующему, однако, так как остальные тесты построены по одному принципу, а именно: на заданный вопрос или утверждение пользователю предлагается ответить либо положительно, либо отрицательно мы рассмотрим только ещё один тест (рисунок 21).

Рисунок 21 - Выполнение теста №6

Так как все необходимые тесты были пройдены, необходимо перейти на вкладку «Результаты», показанную на рисунке 22.

Рисунок 22 - Результат тестирований

Как можно увидеть из рисунка 22, сводное предоставление результатов крайне удобно при прохождении такого числа тестов. Для каждого теста отводится своя область с кнопками: «Вернуться к тесту» и «Результат», это сделано с тем, чтобы избежать ошибок. Так как в системе представлены психологические тесты, то одним из важных моментов является то, что на каждый вопрос теста должен быть ответ, поэтому при нажатии на кнопку, программа проверяет: на все ли вопросы были даны ответы, в случае отрицательного ответа система выдает сообщение об ошибке. В представленном примере, в тесте №1 один вопрос остался без ответа, поэтому появилось сообщение, представленное на рисунке 23.

Рисунок 23 - Сообщение об ошибке при выполнении тестов

При правильном заполнении никаких проблем возникнуть не должно, поэтому пользователь может смело нажимать кнопку «Подобрать специальность» (рисунок 22) и переходить на форму выбора специальности или направления подготовки (рисунок 24).

Рисунок 24- Выбор специальности или направления подготовки

Вместе с вызовом результата, открывается форма, которая заполняется личными данными пользователя (рисунок 25).

Рисунок 25 - Форма для сбора личной информации

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

Так выгладит работа с информационной системой «Выбор абитуриента» со стороны обычного пользователя, для администратора системы этот процесс выглядит иначе. Начнем с того, что даже начальная форма (рисунок 26) немного отличается: у пользователя в пункте меню появляется возможность администрирования. Для того, чтобы данная функция появилась необходимо провести мышью рядом с надписью «Информация разработчику».

Рисунок 26 - Главная форма приложения с добавленной возможностью

«Администрирование»

Но только нажатие на кнопку, не обеспечит доступ к закрытой части приложения - необходимо еще пойти процедуру авторизации, представленной на рисунке 27.

Рисунок 27 - Форма авторизации

Если данные не соответствуют, хранящимся в базе, то будет выдано сообщение об ошибке. В другом случае пользователь перейдет на форму редактирования данных, которая представлена на рисунках 28 и 29.

Рисунок 28 - Вкладка редактирования базы знаний

С помощью вкладки, представленной на рисунке 28, осуществляется редактирование базы знаний приложения. Например, добавление новой записи.

Рисунок 29 - Вкладка редактирования таблицы «Абитуриенты»

С помощью представленной вкладки можно осуществлять удаление записей из таблицы «Абитуриенты», а также формировать отчет.

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

4. ОРГАНИЗАЦИОННО-ЭКОНОМИЧЕСКАЯ ЧАСТЬ

4.1 Целесообразность разработки с экономической точки зрения

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

Но, в любом случае, этот аспект является приоритетным.

Информационная система «Выбор абитуриента» нацелена на косвенный прирост прибыли, так как её внедрение не способно кардинально изменить рост прибыли. Преимуществом данной системы и является её уникальность, что может повлиять в некоторой степени на конкуренцию на рынке образовательных услуг. К тому же, на основе собранной статистики вуз сможет более оперативно реагировать и изменять политику вуза, что приведет к более гибкой системе. В случае же, если программный продукт не оправдает возложенных на него надежд, возможна его продажа другому учебному заведению, так как изменения, необходимые для этого не велики, так как система обладает достаточной гибкостью.

Таким образом, можно заключить, что данная система обладает рядом достоинств, в числе которых:

- уникальность; - многофункциальность;

- гибкость.

4.2 SWOT-анализ разработки информационной системы «Выбор абитуриента»

SWOT-анализ (СВОТ анализ) -- метод стратегического планирования, используемый для оценки факторов и явлений, влияющих на процесс проектирования или на само предприятие. Все факторы делятся на четыре категории:

- две категории СВОТ (SWOT) анализа описывают предприятие изнутри, то есть strengths (сильные стороны предприятия), weaknesses (слабые стороны предприятия);

- две другие категории СВОТ (SWOT) анализа описывают внешнюю среду для предпрития -- opportunities (возможности для предприятия) и threats (угрозы для предприятия).

Поскольку SWOT (СВОТ) анализ в общем виде не содержит экономических категорий, он нашел множество применений: проекты, организации, отдельные люди и страны. Анализ используется для построения стратегий в самых различных областях деятельности.

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

Основная идея методики SWOT анализа заключается в попытке расчетным путем определить, насколько каждый из возможных путей развития сможет повлиять на успех текущих, тактических и стратегических бизнес процессов предприятия. При ранжировании угроз в матрице SWOTанализа по степени воздействия предполагается определить расчетное время, при котором предприятие достигнет определенной степени разрушения, и чем скорее будут ухудшаться показатели экономической деятельности, тем следует больше внимания обратить на устранение данной угрозы. После полного завершения работ, основанного на SWOT-анализе и связанного с выявлением наибольших угроз деятельности предприятия и определения приоритетных направлений развития, сулящего наибольший экономический эффект при имеющихся финансовых и людских ресурсах, начинается следующий этап по оптимизации работ персонала. [2]. Результаты SWOTанализа заносятся в таблицы.

В таблице 2 показана swot-матрица проектирования информационной системы «Выбор абитуриента».

Таблица № 2 - Матрица SWOT-анализа для рассматриваемой системы

Сильные стороны

Возможности

Угрозы.

1.

Оптимизация процесса профориентации

2.

Повышение гибкости работы вуза

1. Низкая стоимость разработки

0

0

0

2. Многофункциональность

+

++

+3

3. Комплексность

++

+

+3

4. Простота в использовании

++

+

+3

Итого

+5

+4

+9

Слабые стороны

1.

Узконаправленность

0

0

0

2. Необходимость обновления системы

0

-

-1

3. Ориентированност ь на небольшую аудиторию

- -

-

-3

Итого

-2

-2

-4

Общий итог

+3

+2

+5

Исходя из анализа, представленного в таблице 2, можно сказать, что информационная система «Выбор абитуриента» является весьма жизнеспособной и перспективной. По результатам анализа можно заключить, что данная система подходит для внедрения, несмотря на её недостатки. Главным же недостатком системы является - ориентированность на небольшую аудиторию, что обусловлено сферой применения. Главные же сильные стороны разработанной информационной системы заключаются во многофункциональности, комплексности и простоте в использовании. Поэтому можно заключить, что влияние слабых сторон на реализацию данной системы можно считать допустимым, так в конечном итоге возможности осуществляются в допустимой степени.

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

4.3 Калькуляция себестоимости научно-технической продукции

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

Проектирование предполагает использование разработанной информационной системы, что подразумевает использование ЭВМ. Впрочем, информационная система разрабатывается для предприятия, которое уже имеет достаточное аппаратное обеспечение. К тому же, программные средства, необходимые для реализации системы, а именно IBExpert и Borland C++ Builder уже использовались на предприятии, таким образом, нет необходимости приобретать дополнительное программное обеспечение для предприятия. Также, процесс проектирования полностью происходит на компьютере, таким образом, не требуется дополнительных затрат на расходные материалы. Из чего следует, что основной статьей затрат при разработке информационной системы «Выбор абитуриента» будет являться заработная плата разработчика.

Распишем все затраты необходимые на реализацию разработки информационной системы в соответствии с утв. Миннауки от 15.06.1994 РФ

№ОР-22-2-46 - форма 1-пн.

Реализация информационной системы осуществлялась разработчиком в течение 3 месяцев, месячный заработок - 13000 рублей (в расчет берется 30 дней в месяце). Итого за период осуществления проектирования разработчику была выплачена заработная плата в размере 39000 рублей.

Также были выплачены отчисления на социальные нужды:

- отчисления в Пенсионный фонд (за весь период):

0,28*39000=10920 руб.;

- отчисления в Фонд Социального страхования:

0,04*39000=1560 руб.;

- отчисления в Федеральный Фонд обязательного медицинского страхования:

0,002*39000=78 руб.;

- отчисления в Территориальный Фонд обязательного медицинского страхования:

0,034*39000=1326 руб.

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

0,002*39000=78 руб.

Итого отчисления на социальные нужды 13962 руб.

Таким образом, на выплату заработной платы и отчислений на социальные нужды было выделено 52962 руб.

Таким образом составим таблицу калькуляции затрат на разработку информационной системы «Выбор абитуриента» (таблица 3):

Таблица 3 - Калькуляция затрат на разработку информационной системы «Выбор абитуриента»

Наименование статей затрат

Сумма

(руб.)

Материалы и оборудование

0

Спецоборудование для научных (экспериментальных) работ

0

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

39000

Отчисления на социальные нужды

13962

Прочие прямые расходы

0

Накладные расходы

0

Итого:

52962

Затраты по работам, выполняемым сторонними организациями и предприятиями

0

Всего себестоимость

52962

Нужно добавить, что указанная себестоимость не включает в себя оплаты программисту, выполняющему сопровождение и обновление системы, поэтому указанная стоимость будет увеличена в процессе эксплуатации. Однако, уже можно заключить, что данная разработка весьма выгодна для предприятия.

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

ЗАКЛЮЧЕНИЕ

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

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

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

На основании ряда реализованных проектных работ, а также учитывая поставленные требования для запланированной модели проектирования, была создана информационная система «Выбор абитуриента».Также система была подвержена тестированию на предмет недоработок.

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

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

СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

1. Аверченков В. И. Информационные системы в производстве и экономике: учебное пособие / Аверченков В. И., Лозбинев Ф. Ю., Тищенко

А. А. М.: Флинта, 2011. - 273 с.

2. Александров Е. П. Основы самоорганизации личности в образовательной среде, профессии и культуре. Учебно-методическое пособие / Е . П. Александров ; рец. Шляхтин М. Ю., Солнышков М. Е. ; М-во образования и науки РФ. - Таганрог : РГСУ, 2011. - 102 с.

3. Архангельский А.Я. Приемы программирования в C++Builder 6 и 2006: механизмы Windows, сети / Архангельский А.Я. М.: ООО "Биномпресс", 2006.- 991 с.

4. Бабаев А.А. Информационные технологии и методы принятия решений: Учебный курс / Бабаев А.А. СПб.: СПбГУ, 2007 - 156 с.

5. Белгородский государственный национальный

исследовательский университет. [Электронный ресурс] / Режим доступа: http://www.bsu.edu.ru/bsu/, свободный. - Загл. с экрана.

6. Беловол Е.В. Профориентационная диагностика школьников:

аналитические записки по результатам апробации: Учебное пособие / Беловол Е.В., Рушина М.А. М.: ООО «Издательство МБА», 2012.

7. Бобровская Л. Информационная подготовка. Образовательный курс профориентационной направленности/ Л. Бобровская, Е. Сапрыкина, О.

Просихина. М.: Планета, 2011. - 64 с.

8. Бубнова Н.Г. Информатика в экономике: учебное пособие: / Н. Г.

Бубнова и др. - М: Вузовский учебник, 2011. - 476 с.

9. Возрастная психология: детство, отрочество, юность: Хрес-

томатия: Учебное пособие для пед. вузов. М.:Академия,2011.-624 с.

10. Волков Б.С. Основы профессиональной ориентации / Б.С.

Волков. - М.: Академический проект, 2007. - 333 с.

11. Гвоздева, В. А. Информатика, автоматизированные

информационные технологии и системы: учебник / В. А. Гвоздева. - М.:

Форум: Инфра-М, 2011. - 541 с.

12. Гребень Н.Ф. Тесты для профориентации, воспитательной

работы, подбора кадров / Н.Ф. Гребень. - М.: Современная школа, 2011. -

480 с.

13. Гусева Е. Н. Информатика. Учебное пособие / Гусева Е. Н., Ефимова И. Ю., Коробков Р. И., Коробкова К. В., Мовчан И. Н. М.: Флинта,

2011 - 198 с.

14. Девятков В.В. Системы искусственного интеллекта: Учеб.

пособие/ Девятков В.В.; М-во образования РФ. - М.: МГТУ им. Н.Э. Баумана,

2011. - 352 с.

15. Дубинина Т.В. Системный подход к определению личности профессионала. Психология перехода от школьника к профессионалу / Дубинина Т.В., Зырянова Е.В. Рига: Латвийская ассоциация психологовконсультантов, 2011. - С. 37 - 47.

16. Ершов Д.А. Элективные курсы профориентационной

направленности / Д.А. Ершов. - М.: Глобус, 2007. - 160 с.

17. Зайцева Т.В. Использование семиотического подхода к представлению знаний для построения модели логической структуры учебного материала / Т.В. Зайцева, С.В. Игрунова, Н.П. Путивцева, О.П. Пусная, Е.В. Нестерова // Научные ведомости БелГУ - 2011 - №13(108), выпуск 19/1. - С. 143-149.

18. Зеер Э.Ф. Профориентология: Теория и практика: учеб.пособ.для высшей школы / Зеер Э.Ф., Павлова А.М., Садовникова Н.О. М.:

Академический проект; Екатеринбург: Деловая книга, 2006. - 192 с. (с. 138 -

144)

19. Иопа, Н.И. Информатика: (для технических специальностей):

учебное пособие / Н. И. Иопа. - М.: КноРус, 2011. - 469 с.

20. Казначеева А.О. Основы информационных технологий: Учебное пособие / Казначеева А.О. СПб.: СПбГУ ИТМО, 2009. - 44 с.

21. Карпова Т.С. Базы данных: модели, разработка, реализация /

Карпова Т.С. СПб.: Питер. 2009. - 304 с.

22. Кибанов А.Я. Организация профориентации и адаптации

персонала / А.Я. Кибанов, Е.В. Каштанова. М.: Проспект, 2012. - 56 с.

23. Кравец О.Я. Практикум по проектированию информационных систем: учебное пособие для студентов вузов, обучающихся по

специальности 080801 "Прикладная информатика (по областям)" и другим междисциплинарным специальностям / Кравец О.Я. Воронеж: Научная книга,2009.-208 с.

24. Козлов А.С. Проектирование и исследование бизнес-процессов :

Учебное пособие / А.С. Козлов. Москва : Флинта, 2011. - 268 с.

25. Логинов В.Н. Информационные технологии управления: учебное пособие для студентов вузов, обучающихся по специальности "Государственное и муниципальное управление" / Логинов В.Н. М.: КноРус,

2008. - 240 с.

26. Маторин С.И. Информационные системы: Учеб. Пособие/ С.И.

Маторин, О.А. Зимовец. Белгород : НИУ БелГУ, 2011. - 231 с.

27. Мухина В.С. Возрастная психология. Феноменология развития:

Учебник для студентов высших учебных заведений / Мухина В.С. М.:

Издательский центр «Академия», 2012.

28. Новосибирский государственный педагогический университет, Институт рекламы и связи с общественностью. [Электронный ресурс] /

Режим доступа: http://life.irso.ru/abitur/test/, свободный.

29. Павлов С.И. Системы искусственного интеллекта : Учебное

пособие / Томск : ТУСУР, 2011. - Ч.2.

30. Павлова Е.А. Современные информационные технологии:

Учебный курс / Павлова Е.А. М.: МИФИ, 2007 - 116 с.

31. Потуткова С. А. Взаимосвязь социального интеллекта и адаптивности безработных на этапах поиска работы / Потуткова С. А. М.:

РГСУ 2011. - 31 с.

32. ПрофГид. [Электронный ресурс] / Режим доступа: http://testbesplatno.ru/index.php, свободный..

33. Профориентация. [Электронный ресурс] / Режим доступа:

http://www.profguide.ru/test/category/proforient, свободный..

34. Путивцева Н.П. Информационные технологии: учеб. пособие для студентов вузов заочной формы обучения по спец.: 010503 "Математическое обеспечение и администрирование информационных систем", 010502 "Прикладная информатика в экономике"/ Путивцева Н.П., Игрунова С.В.,

Зимовец О.А. Белгород: БелГУ, 2007. - 240 с.

35. Резапкина Г. Психология и выбор профессии: программа предпрофильной подготовки: Рабочая тетрадь учащегося / Резапкина Г. М.:

Генезис, 2007.- 144 с.

36. Рыбина Г.В. Технология построения динамических интеллектуальных систем: Учебное пособие / Г.В. Рыбина, С.С.

Паронджанов. М.: МИФИ, 2011 - 280 с.

37. Симонович С. В. Информатика. Базовый курс: учебное пособие для высших технических учебных заведений / С. В. Симонович и др. - СПб.:

Питер, 2011. - 639 с.

38. Степанов В.Г. Профориентация. Функциональная ассиметрия

мозга и выбор профессии. Учебное пособие для вузов / В.Г. Степанов. - М.:

Академический проект, 2008. - 447 с.

39. Тест на профориентацию. [Электронный ресурс] / Режим

доступа: http://www.proftester.ru/, свободный.

40. Тимченко С. В. Информатика. Учебное пособие / Тимченко С. В., Сметанин С. В., Артемов И. Л., Гураков А. В., Абдалова О. И. Томск: Эль Контент, 2011 - 235 с.

41. Трофимова В. В. Информационные системы и технологии в

экономике и управлении / Трофимова В. В. М.: Изд-во: Юрайт-Издат, 2009.

42. Учеба.ру. [Электронный ресурс] / Режим доступа:

http://www.ucheba.ru/prof, свободный.

43. Фельдштейн Д.И. Возрастная и педагогическая психология:

Избранные психологические труды / Фельдштейн Д.И. М.:МПСИ,2012.- 427с

44. Фридланд А.Я. Основные ресурсы информатики: Учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» / Фридланд А.Я. М.: АСТ; Астрель; Профиздат, 2009.

45. Хомоненко А.Д. Работа с базами данных в С++ Builder / Хомоненко А.Д., Ададуров С.Е. СПб.: БХВ-Петербург, 2006. - 496 с.

46. Черникова Т.В. Профориентационная поддержка

самоопределения старшеклассников / Т.В. Черникова. М.: Планета, 2011. -

304 с.

47. Черникова Т.В. Профориентация старшеклассников. / Т.В.

Черникова. Волгоград: Учитель, 2007. - 124 с.

48. Чистякова С.Н. Педагогическое сопровождение самоопределения школьников. Методическое пособие для профильной и профессиональной ориентации и профильного обучения школьников / Чистякова С.Н. М.:

Академия, 2007. - 136 с.

ПРИЛОЖЕНИЕ

#include <vcl.h>

#pragma hdrstop

#include <iostream>

#include "Unit3.h" #include "Unit4.h" #include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm" TForm3 *Form3;

int L1=0, U1=0, T1=0, E1=0, F1=0, M1=0, R2=0, I2=0, S2=0, K2=0, P2=0, H2=0,P3=0, T3=0, Z3=0, H3=0, M3=0, M4=0, O4=0, S4=0, V4=0, A4=0, R4=0,N4=0, P5=0, A5=0, S5=0, N5=0,

K5=0, L6=0, T6=0, V6=0, H6=0, M6=0, I6=0, K6=0;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{ }

//---------------------------------------------------------------------------

void __fastcall TForm3::Button2Click(TObject *Sender)

{RadioGroup1->ItemIndex=-1;

RadioGroup2->ItemIndex=-1; RadioGroup3->ItemIndex=-1; RadioGroup4->ItemIndex=-1; RadioGroup5->ItemIndex=-1; RadioGroup6->ItemIndex=-1; RadioGroup7->ItemIndex=-1; RadioGroup8->ItemIndex=-1; RadioGroup9->ItemIndex=-1;

RadioGroup10->ItemIndex=-1; RadioGroup11->ItemIndex=-1; RadioGroup12->ItemIndex=-1; RadioGroup13->ItemIndex=-1; RadioGroup14->ItemIndex=-1; RadioGroup15->ItemIndex=-1; RadioGroup16->ItemIndex=-1; RadioGroup17->ItemIndex=-1; RadioGroup18->ItemIndex=-1; RadioGroup19->ItemIndex=-1; RadioGroup20->ItemIndex=-1; RadioGroup21->ItemIndex=-1; RadioGroup22->ItemIndex=-1; RadioGroup23->ItemIndex=-1; RadioGroup24->ItemIndex=-1; RadioGroup25->ItemIndex=-1; RadioGroup26->ItemIndex=-1; RadioGroup27->ItemIndex=-1; RadioGroup28->ItemIndex=-1; RadioGroup29->ItemIndex=-1; RadioGroup30->ItemIndex=-1;

U1=0, T1=0, E1=0, F1=0, M1=0, L1=0, }

//---------------------------------------------------------------------------

void __fastcall TForm3::Button4Click(TObject *Sender)

{RadioGroup31->ItemIndex=-1;

RadioGroup32->ItemIndex=-1; RadioGroup33->ItemIndex=-1; RadioGroup34->ItemIndex=-1; RadioGroup35->ItemIndex=-1; RadioGroup36->ItemIndex=-1; RadioGroup37->ItemIndex=-1; RadioGroup38->ItemIndex=-1; RadioGroup39->ItemIndex=-1; RadioGroup40->ItemIndex=-1; RadioGroup41->ItemIndex=-1; RadioGroup42->ItemIndex=-1; RadioGroup43->ItemIndex=-1; RadioGroup44->ItemIndex=-1; RadioGroup45->ItemIndex=-1; RadioGroup46->ItemIndex=-1; RadioGroup47->ItemIndex=-1; RadioGroup48->ItemIndex=-1; RadioGroup49->ItemIndex=-1; RadioGroup50->ItemIndex=-1; RadioGroup51->ItemIndex=-1; RadioGroup52->ItemIndex=-1; RadioGroup53->ItemIndex=-1; RadioGroup54->ItemIndex=-1; RadioGroup55->ItemIndex=-1; RadioGroup56->ItemIndex=-1; RadioGroup57->ItemIndex=-1; RadioGroup58->ItemIndex=-1; RadioGroup59->ItemIndex=-1; RadioGroup60->ItemIndex=-1; RadioGroup61->ItemIndex=-1; RadioGroup62->ItemIndex=-1; RadioGroup63->ItemIndex=-1; RadioGroup64->ItemIndex=-1; RadioGroup65->ItemIndex=-1; RadioGroup66->ItemIndex=-1; RadioGroup67->ItemIndex=-1; RadioGroup68->ItemIndex=-1; RadioGroup69->ItemIndex=-1; RadioGroup70->ItemIndex=-1; RadioGroup71->ItemIndex=-1; RadioGroup72->ItemIndex=-1;

R2=0, I2=0, S2=0, K2=0, P2=0, H2=0;}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button6Click(TObject *Sender)

{RadioGroup73->ItemIndex=-1;

RadioGroup74->ItemIndex=-1; RadioGroup75->ItemIndex=-1; RadioGroup76->ItemIndex=-1; RadioGroup77->ItemIndex=-1; RadioGroup78->ItemIndex=-1; RadioGroup79->ItemIndex=-1; RadioGroup80->ItemIndex=-1; RadioGroup81->ItemIndex=-1; RadioGroup82->ItemIndex=-1; RadioGroup83->ItemIndex=-1; RadioGroup84->ItemIndex=-1; RadioGroup85->ItemIndex=-1; RadioGroup86->ItemIndex=-1; RadioGroup87->ItemIndex=-1; RadioGroup88->ItemIndex=-1; RadioGroup89->ItemIndex=-1; RadioGroup90->ItemIndex=-1; RadioGroup91->ItemIndex=-1; RadioGroup92->ItemIndex=-1; RadioGroup93->ItemIndex=-1; RadioGroup94->ItemIndex=-1; RadioGroup95->ItemIndex=-1; RadioGroup96->ItemIndex=-1; RadioGroup97->ItemIndex=-1; RadioGroup98->ItemIndex=-1; RadioGroup99->ItemIndex=-1;

RadioGroup100->ItemIndex=-1; RadioGroup101->ItemIndex=-1; RadioGroup102->ItemIndex=-1;

P3=0, T3=0, Z3=0, H3=0, M3=0;}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button8Click(TObject *Sender)

{RadioGroup103->ItemIndex=-1;

RadioGroup104->ItemIndex=-1; RadioGroup105->ItemIndex=-1; RadioGroup106->ItemIndex=-1; RadioGroup107->ItemIndex=-1; RadioGroup108->ItemIndex=-1; RadioGroup109->ItemIndex=-1; RadioGroup110->ItemIndex=-1; RadioGroup111->ItemIndex=-1; RadioGroup112->ItemIndex=-1; RadioGroup113->ItemIndex=-1; RadioGroup114->ItemIndex=-1; RadioGroup115->ItemIndex=-1; RadioGroup116->ItemIndex=-1; RadioGroup117->ItemIndex=-1; RadioGroup118->ItemIndex=-1; RadioGroup119->ItemIndex=-1; RadioGroup120->ItemIndex=-1; RadioGroup121->ItemIndex=-1; RadioGroup122->ItemIndex=-1; RadioGroup123->ItemIndex=-1; RadioGroup124->ItemIndex=-1; RadioGroup125->ItemIndex=-1; RadioGroup126->ItemIndex=-1; RadioGroup127->ItemIndex=-1; RadioGroup128->ItemIndex=-1; RadioGroup129->ItemIndex=-1; RadioGroup130->ItemIndex=-1; RadioGroup131->ItemIndex=-1; RadioGroup132->ItemIndex=-1; RadioGroup133->ItemIndex=-1; RadioGroup134->ItemIndex=-1; RadioGroup135->ItemIndex=-1; RadioGroup136->ItemIndex=-1; RadioGroup137->ItemIndex=-1; RadioGroup138->ItemIndex=-1; RadioGroup139->ItemIndex=-1; RadioGroup140->ItemIndex=-1; RadioGroup141->ItemIndex=-1; RadioGroup142->ItemIndex=-1; RadioGroup143->ItemIndex=-1; RadioGroup144->ItemIndex=-1; RadioGroup145->ItemIndex=-1; RadioGroup146->ItemIndex=-1; RadioGroup147->ItemIndex=-1; RadioGroup148->ItemIndex=-1; RadioGroup149->ItemIndex=-1; RadioGroup150->ItemIndex=-1; RadioGroup151->ItemIndex=-1; RadioGroup152->ItemIndex=-1; RadioGroup153->ItemIndex=-1; RadioGroup154->ItemIndex=-1; RadioGroup155->ItemIndex=-1; RadioGroup156->ItemIndex=-1; RadioGroup157->ItemIndex=-1; RadioGroup158->ItemIndex=-1;

M4=0, O4=0, S4=0, V4=0, A4=0, R4=0,N4=0;}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button10Click(TObject *Sender)

{RadioGroup159->ItemIndex=-1;

RadioGroup160->ItemIndex=-1; RadioGroup161->ItemIndex=-1; RadioGroup162->ItemIndex=-1; RadioGroup163->ItemIndex=-1; RadioGroup164->ItemIndex=-1; RadioGroup165->ItemIndex=-1; RadioGroup166->ItemIndex=-1; RadioGroup167->ItemIndex=-1; RadioGroup168->ItemIndex=-1; RadioGroup169->ItemIndex=-1; RadioGroup170->ItemIndex=-1; RadioGroup171->ItemIndex=-1; RadioGroup172->ItemIndex=-1; RadioGroup173->ItemIndex=-1; RadioGroup174->ItemIndex=-1; RadioGroup175->ItemIndex=-1; RadioGroup176->ItemIndex=-1; RadioGroup177->ItemIndex=-1; RadioGroup178->ItemIndex=-1; RadioGroup179->ItemIndex=-1; RadioGroup180->ItemIndex=-1; RadioGroup181->ItemIndex=-1; RadioGroup182->ItemIndex=-1; RadioGroup183->ItemIndex=-1; RadioGroup184->ItemIndex=-1; RadioGroup185->ItemIndex=-1; RadioGroup186->ItemIndex=-1; RadioGroup187->ItemIndex=-1; RadioGroup188->ItemIndex=-1; RadioGroup189->ItemIndex=-1; RadioGroup190->ItemIndex=-1; RadioGroup191->ItemIndex=-1; RadioGroup192->ItemIndex=-1; RadioGroup193->ItemIndex=-1; RadioGroup194->ItemIndex=-1; RadioGroup195->ItemIndex=-1; RadioGroup196->ItemIndex=-1; RadioGroup197->ItemIndex=-1; RadioGroup198->ItemIndex=-1;

P5=0, A5=0, S5=0, N5=0, K5=0;}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button12Click(TObject *Sender)

{RadioGroup199->ItemIndex=-1;

RadioGroup200->ItemIndex=-1; RadioGroup201->ItemIndex=-1; RadioGroup202->ItemIndex=-1; RadioGroup203->ItemIndex=-1; RadioGroup204->ItemIndex=-1; RadioGroup205->ItemIndex=-1; RadioGroup206->ItemIndex=-1; RadioGroup207->ItemIndex=-1; RadioGroup208->ItemIndex=-1; RadioGroup209->ItemIndex=-1; RadioGroup210->ItemIndex=-1; RadioGroup211->ItemIndex=-1; RadioGroup212->ItemIndex=-1; RadioGroup213->ItemIndex=-1; RadioGroup214->ItemIndex=-1; RadioGroup215->ItemIndex=-1; RadioGroup216->ItemIndex=-1; RadioGroup217->ItemIndex=-1; RadioGroup218->ItemIndex=-1; RadioGroup219->ItemIndex=-1; RadioGroup220->ItemIndex=-1; RadioGroup221->ItemIndex=-1; RadioGroup222->ItemIndex=-1; RadioGroup223->ItemIndex=-1; RadioGroup224->ItemIndex=-1; RadioGroup225->ItemIndex=-1; RadioGroup226->ItemIndex=-1;

L6=0, T6=0, V6=0, H6=0, M6=0, I6=0, K6=0;}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button13Click(TObject *Sender)

{if

(RadioGroup1->ItemIndex==-1) || (RadioGroup2->ItemIndex==-1) || (RadioGroup3->ItemIndex==-1) || (RadioGroup4->ItemIndex==-1) || (RadioGroup5->ItemIndex==-1) || (RadioGroup6->ItemIndex==-1) || (RadioGroup7->ItemIndex==-1) || (RadioGroup8->ItemIndex==-1) || (RadioGroup9->ItemIndex==-1) ||

(RadioGroup10->ItemIndex==-1) || (RadioGroup11->ItemIndex==-1) || (RadioGroup12->ItemIndex==-1) || (RadioGroup13->ItemIndex==-1) || (RadioGroup14->ItemIndex==-1) || (RadioGroup15->ItemIndex==-1) || (RadioGroup16->ItemIndex==-1) || (RadioGroup17->ItemIndex==-1) || (RadioGroup18->ItemIndex==-1) || (RadioGroup19->ItemIndex==-1) || (RadioGroup20->ItemIndex==-1) || (RadioGroup21->ItemIndex==-1) || (RadioGroup22->ItemIndex==-1) || (RadioGroup23->ItemIndex==-1) || (RadioGroup24->ItemIndex==-1) || (RadioGroup25->ItemIndex==-1) || (RadioGroup26->ItemIndex==-1) || (RadioGroup27->ItemIndex==-1) || (RadioGroup28->ItemIndex==-1) || (RadioGroup29->ItemIndex==-1) ||

(RadioGroup30->ItemIndex==-1)) { Form4->Show();}

else{

if(RadioGroup1->ItemIndex==0){E1++; }else {T1++;} if(RadioGroup2->ItemIndex==0){L1++; }else {F1++;} if(RadioGroup3->ItemIndex==0){M1++; }else {T1++;} if(RadioGroup4->ItemIndex==0){L1++; }else {U1++;} if(RadioGroup5->ItemIndex==0){F1++; }else {E1++;} if(RadioGroup6->ItemIndex==0){T1++; }else {L1++;} if(RadioGroup7->ItemIndex==0){U1++; }else {M1++;} if(RadioGroup8->ItemIndex==0){E1++; }else {T1++;} if(RadioGroup9->ItemIndex==0){L1++; }else {M1++;} if(RadioGroup10->ItemIndex==0){E1++; }else {U1++;} if(RadioGroup11->ItemIndex==0){M1++; }else {E1++;} if(RadioGroup12->ItemIndex==0){T1++; }else {L1++;} if(RadioGroup13->ItemIndex==0){U1++; }else {F1++;} if(RadioGroup14->ItemIndex==0){T1++; }else {U1++;} if(RadioGroup15->ItemIndex==0){F1++; }else {T1++;} if(RadioGroup16->ItemIndex==0){L1++; }else {M1++;} if(RadioGroup17->ItemIndex==0){E1++; }else {L1++;} if(RadioGroup18->ItemIndex==0){U1++; }else {F1++;} if(RadioGroup19->ItemIndex==0){M1++; }else {L1++;} if(RadioGroup20->ItemIndex==0){U1++; }else {F1++;} if(RadioGroup21->ItemIndex==0){E1++; }else {U1++;} if(RadioGroup22->ItemIndex==0){F1++; }else {M1++;} if(RadioGroup23->ItemIndex==0){E1++; }else {L1++;} if(RadioGroup24->ItemIndex==0){F1++; }else {E1++;} if(RadioGroup25->ItemIndex==0){T1++; }else {F1++;} if(RadioGroup26->ItemIndex==0){T1++; }else {U1++;} if(RadioGroup27->ItemIndex==0){F1++; }else {M1++;} if(RadioGroup28->ItemIndex==0){E1++; }else {L1++;} if(RadioGroup29->ItemIndex==0){M1++; }else {T1++;} if(RadioGroup30->ItemIndex==0){U1++;}else {M1++;}

U1=U1*10;

T1=T1*10;

E1=E1*10;

F1=F1*10;

M1=M1*10;

L1=L1*10;}

Edit1->Text=IntToStr(L1)+"%";

Edit2->Text=IntToStr(U1)+"%";

Edit3->Text=IntToStr(T1)+"%";

Edit4->Text=IntToStr(E1)+"%";

Edit5->Text=IntToStr(F1)+"%";

Edit6->Text=IntToStr(M1)+"%";

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button14Click(TObject *Sender)

{if

(RadioGroup31->ItemIndex==-1) || (RadioGroup32->ItemIndex==-1) || (RadioGroup33->ItemIndex==-1) || (RadioGroup34->ItemIndex==-1) || (RadioGroup35->ItemIndex==-1) || (RadioGroup36->ItemIndex==-1) ||

(RadioGroup37->ItemIndex==-1) || (RadioGroup38->ItemIndex==-1) || (RadioGroup39->ItemIndex==-1) || (RadioGroup40->ItemIndex==-1) || (RadioGroup41->ItemIndex==-1) || (RadioGroup42->ItemIndex==-1) || (RadioGroup43->ItemIndex==-1) || (RadioGroup44->ItemIndex==-1) || (RadioGroup45->ItemIndex==-1) || (RadioGroup46->ItemIndex==-1) || (RadioGroup47->ItemIndex==-1) || (RadioGroup48->ItemIndex==-1) || (RadioGroup49->ItemIndex==-1) || (RadioGroup50->ItemIndex==-1) || (RadioGroup51->ItemIndex==-1) || (RadioGroup52->ItemIndex==-1) || (RadioGroup53->ItemIndex==-1) || (RadioGroup54->ItemIndex==-1) || (RadioGroup55->ItemIndex==-1) || (RadioGroup56->ItemIndex==-1) || (RadioGroup57->ItemIndex==-1) || (RadioGroup58->ItemIndex==-1) || (RadioGroup59->ItemIndex==-1) || (RadioGroup60->ItemIndex==-1) || (RadioGroup61->ItemIndex==-1) || (RadioGroup62->ItemIndex==-1) || (RadioGroup63->ItemIndex==-1) || (RadioGroup64->ItemIndex==-1) || (RadioGroup65->ItemIndex==-1) || (RadioGroup66->ItemIndex==-1) || (RadioGroup67->ItemIndex==-1) || (RadioGroup68->ItemIndex==-1) || (RadioGroup69->ItemIndex==-1) || (RadioGroup70->ItemIndex==-1) || (RadioGroup71->ItemIndex==-1) ||

(RadioGroup72->ItemIndex==-1)) { Form4->Show();}

else {

if(RadioGroup31->ItemIndex==0){R2++; }else {I2++;} if(RadioGroup32->ItemIndex==0){R2++; }else {S2++;} if(RadioGroup33->ItemIndex==0){R2++; }else {K2++;} if(RadioGroup34->ItemIndex==0){R2++; }else {P2++;} if(RadioGroup35->ItemIndex==0){R2++; }else {H2++;} if(RadioGroup36->ItemIndex==0){I2++; }else {S2++;} if(RadioGroup37->ItemIndex==0){I2++; }else {K2++;} if(RadioGroup38->ItemIndex==0){I2++; }else {P2++;} if(RadioGroup39->ItemIndex==0){I2++; }else {H2++;} if(RadioGroup40->ItemIndex==0){S2++; }else {K2++;} if(RadioGroup41->ItemIndex==0){S2++; }else {P2++;} if(RadioGroup42->ItemIndex==0){S2++; }else {H2++;} if(RadioGroup43->ItemIndex==0){K2++; }else {P2++;} if(RadioGroup44->ItemIndex==0){K2++; }else {H2++;} if(RadioGroup45->ItemIndex==0){P2++; }else {H2++;} if(RadioGroup46->ItemIndex==0){R2++; }else {I2++;} if(RadioGroup47->ItemIndex==0){R2++; }else {S2++;} if(RadioGroup48->ItemIndex==0){R2++; }else {K2++;} if(RadioGroup49->ItemIndex==0){R2++; }else {H2++;} if(RadioGroup50->ItemIndex==0){R2++;I2++; }else {S2++;} if(RadioGroup51->ItemIndex==0){P2++; }else {H2++;} if(RadioGroup52->ItemIndex==0){I2++; }else {K2++;} if(RadioGroup53->ItemIndex==0){I2++; }else {S2++;} if(RadioGroup54->ItemIndex==0){I2++; }else {H2++;} if(RadioGroup55->ItemIndex==0){S2++; }else {K2++;} if(RadioGroup56->ItemIndex==0){S2++; }else {P2++;} if(RadioGroup57->ItemIndex==0){S2++; }else {H2++;} if(RadioGroup58->ItemIndex==0){K2++; }else {H2++;} if(RadioGroup59->ItemIndex==0){K2++; }else {H2++;} if(RadioGroup60->ItemIndex==0){P2++; }else {H2++;} if(RadioGroup61->ItemIndex==0){R2++; }else {I2++;K2++;} if(RadioGroup62->ItemIndex==0){R2++; } if(RadioGroup63->ItemIndex==0){R2++; }else {P2++;} if(RadioGroup64->ItemIndex==0){R2++; }else {H2++;} if(RadioGroup65->ItemIndex==0){I2++; }else {K2++;} if(RadioGroup66->ItemIndex==0){I2++; }else {S2++;} if(RadioGroup67->ItemIndex==0){I2++; }else {H2++;} if(RadioGroup68->ItemIndex==0){S2++; }else {P2++;} if(RadioGroup69->ItemIndex==0){K2++; }else {P2++;} if(RadioGroup70->ItemIndex==0){S2++; }else {H2++;} if(RadioGroup71->ItemIndex==0){R2++; }else {P2++;} if(RadioGroup72->ItemIndex==0){S2++; }else {K2++;}

R2=100/15*R2;

I2=100/14*I2;

S2=100/15*S2;

K2=100/14*K2;

P2=100/13*P2;

H2=100/15*H2;}

Edit7->Text=IntToStr(R2)+"%";

Edit8->Text=IntToStr(I2)+"%";

Edit9->Text=IntToStr(S2)+"%";

Edit10->Text=IntToStr(K2)+"%";

Edit11->Text=IntToStr(P2)+"%";

Edit12->Text=IntToStr(H2)+"%";}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button15Click(TObject *Sender)

{if

(RadioGroup73->ItemIndex==-1) || (RadioGroup74->ItemIndex==-1) || (RadioGroup75->ItemIndex==-1) || (RadioGroup76->ItemIndex==-1) || (RadioGroup77->ItemIndex==-1) || (RadioGroup78->ItemIndex==-1) || (RadioGroup79->ItemIndex==-1) || (RadioGroup80->ItemIndex==-1) || (RadioGroup81->ItemIndex==-1) || (RadioGroup82->ItemIndex==-1) || (RadioGroup83->ItemIndex==-1) || (RadioGroup84->ItemIndex==-1) || (RadioGroup85->ItemIndex==-1) || (RadioGroup86->ItemIndex==-1) || (RadioGroup87->ItemIndex==-1) || (RadioGroup88->ItemIndex==-1) || (RadioGroup89->ItemIndex==-1) || (RadioGroup90->ItemIndex==-1) ||

(RadioGroup91->ItemIndex==-1) || (RadioGroup92->ItemIndex==-1) || (RadioGroup93->ItemIndex==-1) || (RadioGroup94->ItemIndex==-1) || (RadioGroup95->ItemIndex==-1) || (RadioGroup96->ItemIndex==-1) || (RadioGroup97->ItemIndex==-1) || (RadioGroup98->ItemIndex==-1) || (RadioGroup99->ItemIndex==-1) ||

(RadioGroup100->ItemIndex==-1) || (RadioGroup101->ItemIndex==-1) ||

(RadioGroup102->ItemIndex==-1)) { Form4->Show();}

else {

if(RadioGroup73->ItemIndex==0){M3++; } if(RadioGroup74->ItemIndex==0){T3++; } if(RadioGroup75->ItemIndex==0){H3++; } if(RadioGroup76->ItemIndex==0){P3++; } if(RadioGroup77->ItemIndex==0){Z3++; } if(RadioGroup78->ItemIndex==0){M3++; } if(RadioGroup79->ItemIndex==0){P3++; } if(RadioGroup80->ItemIndex==0){Z3++; } if(RadioGroup81->ItemIndex==0){T3++; } if(RadioGroup82->ItemIndex==0){H3++; } if(RadioGroup83->ItemIndex==0){P3++; } if(RadioGroup84->ItemIndex==0){H3++; } if(RadioGroup85->ItemIndex==0){T3++; } if(RadioGroup86->ItemIndex==0){Z3++; } if(RadioGroup87->ItemIndex==0){M3++; } if(RadioGroup88->ItemIndex==0){T3++; } if(RadioGroup89->ItemIndex==0){H3++; } if(RadioGroup90->ItemIndex==0){P3++; } if(RadioGroup91->ItemIndex==0){Z3++; } if(RadioGroup92->ItemIndex==0){M3++; } if(RadioGroup93->ItemIndex==0){T3++; } if(RadioGroup94->ItemIndex==0){Z3++; } if(RadioGroup95->ItemIndex==0){M3++; } if(RadioGroup96->ItemIndex==0){H3++; } if(RadioGroup97->ItemIndex==0){P3++; } if(RadioGroup98->ItemIndex==0){T3++; } if(RadioGroup99->ItemIndex==0){M3++; } if(RadioGroup100->ItemIndex==0){P3++; } if(RadioGroup101->ItemIndex==0){Z3++; } if(RadioGroup102->ItemIndex==0){H3++; }

P3=100/6*P3;

T3=100/6*T3; Z3=100/6*Z3;

H3=100/6*H3;

M3=100/6*M3;}

Edit13->Text=IntToStr(P3)+"%";

Edit14->Text=IntToStr(T3)+"%"; Edit15->Text=IntToStr(Z3)+"%";

Edit16->Text=IntToStr(H3)+"%";

Edit17->Text=IntToStr(M3)+"%";}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button19Click(TObject *Sender)

{Form5->Show();

Form3->Close();}

//--------------------------------------------------------------------------- void __fastcall TForm3::Button1Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet8;}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button3Click(TObject *Sender) {PageControl1->ActivePage=TabSheet8; }

//---------------------------------------------------------------------------

void __fastcall TForm3::Button5Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet8;}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button20Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet1;}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button16Click(TObject *Sender)

{

if (RadioGroup103->ItemIndex==-1) || (RadioGroup104->ItemIndex==-1) || (RadioGroup105->ItemIndex==-1) || (RadioGroup106->ItemIndex==-1) || (RadioGroup107->ItemIndex==-1) || (RadioGroup108->ItemIndex==-1) || (RadioGroup109->ItemIndex==-1) || (RadioGroup110->ItemIndex==-1) || (RadioGroup111->ItemIndex==-1) || (RadioGroup112->ItemIndex==-1) || (RadioGroup113->ItemIndex==-1) || (RadioGroup114->ItemIndex==-1) || (RadioGroup115->ItemIndex==-1) || (RadioGroup116->ItemIndex==-1) || (RadioGroup117->ItemIndex==-1) || (RadioGroup118->ItemIndex==-1) || (RadioGroup119->ItemIndex==-1) || (RadioGroup120->ItemIndex==-1) || (RadioGroup121->ItemIndex==-1) || (RadioGroup122->ItemIndex==-1) || (RadioGroup123->ItemIndex==-1) || (RadioGroup124->ItemIndex==-1) || (RadioGroup125->ItemIndex==-1) || (RadioGroup126->ItemIndex==-1) || (RadioGroup127->ItemIndex==-1) || (RadioGroup128->ItemIndex==-1) || (RadioGroup129->ItemIndex==-1) || (RadioGroup130->ItemIndex==-1) || (RadioGroup131->ItemIndex==-1) || (RadioGroup132->ItemIndex==-1) || (RadioGroup133->ItemIndex==-1) || (RadioGroup134->ItemIndex==-1) || (RadioGroup135->ItemIndex==-1) || (RadioGroup136->ItemIndex==-1) || (RadioGroup137->ItemIndex==-1) || (RadioGroup138->ItemIndex==-1) || (RadioGroup139->ItemIndex==-1) || (RadioGroup140->ItemIndex==-1) || (RadioGroup141->ItemIndex==-1) || (RadioGroup142->ItemIndex==-1) || (RadioGroup143->ItemIndex==-1) || (RadioGroup144->ItemIndex==-1) || (RadioGroup145->ItemIndex==-1) || (RadioGroup146->ItemIndex==-1) || (RadioGroup147->ItemIndex==-1) || (RadioGroup148->ItemIndex==-1) || (RadioGroup149->ItemIndex==-1) || (RadioGroup150->ItemIndex==-1) || (RadioGroup151->ItemIndex==-1) || (RadioGroup152->ItemIndex==-1) || (RadioGroup153->ItemIndex==-1) || (RadioGroup154->ItemIndex==-1) || (RadioGroup155->ItemIndex==-1) || (RadioGroup156->ItemIndex==-1) || (RadioGroup157->ItemIndex==-1) || (RadioGroup158->ItemIndex==-1)) {

Form4->Show();

}else {

if(RadioGroup103->ItemIndex==0){M4++; } if(RadioGroup104->ItemIndex==0){O4++; } if(RadioGroup105->ItemIndex==0){S4++; } if(RadioGroup106->ItemIndex==0){V4++; } if(RadioGroup107->ItemIndex==0){A4++; } if(RadioGroup108->ItemIndex==0){R4++; } if(RadioGroup109->ItemIndex==0){N4++; } if(RadioGroup110->ItemIndex==0){M4++; } if(RadioGroup111->ItemIndex==0){O4++; } if(RadioGroup112->ItemIndex==0){S4++; } if(RadioGroup113->ItemIndex==0){V4++; } if(RadioGroup114->ItemIndex==0){A4++; } if(RadioGroup115->ItemIndex==0){R4++; } if(RadioGroup116->ItemIndex==0){N4++; } if(RadioGroup117->ItemIndex==0){M4++; } if(RadioGroup118->ItemIndex==0){O4++; } if(RadioGroup119->ItemIndex==0){S4++; } if(RadioGroup120->ItemIndex==0){V4++; } if(RadioGroup121->ItemIndex==0){A4++; } if(RadioGroup122->ItemIndex==0){R4++; } if(RadioGroup123->ItemIndex==0){N4++; } if(RadioGroup124->ItemIndex==0){M4++; } if(RadioGroup125->ItemIndex==0){O4++; } if(RadioGroup126->ItemIndex==0){S4++; } if(RadioGroup127->ItemIndex==0){V4++; } if(RadioGroup128->ItemIndex==0){A4++; } if(RadioGroup129->ItemIndex==0){R4++; } if(RadioGroup130->ItemIndex==0){N4++; } if(RadioGroup131->ItemIndex==0){M4++; } if(RadioGroup132->ItemIndex==0){O4++; } if(RadioGroup133->ItemIndex==0){S4++; } if(RadioGroup134->ItemIndex==0){V4++; } if(RadioGroup135->ItemIndex==0){A4++; } if(RadioGroup136->ItemIndex==0){R4++; } if(RadioGroup137->ItemIndex==0){N4++; } if(RadioGroup138->ItemIndex==0){M4++; } if(RadioGroup139->ItemIndex==0){O4++; } if(RadioGroup140->ItemIndex==0){S4++; } if(RadioGroup141->ItemIndex==0){V4++; } if(RadioGroup142->ItemIndex==0){A4++; } if(RadioGroup143->ItemIndex==0){R4++; } if(RadioGroup144->ItemIndex==0){N4++; } if(RadioGroup145->ItemIndex==0){M4++; } if(RadioGroup146->ItemIndex==0){O4++; } if(RadioGroup147->ItemIndex==0){S4++; } if(RadioGroup148->ItemIndex==0){V4++; } if(RadioGroup149->ItemIndex==0){A4++; } if(RadioGroup150->ItemIndex==0){R4++; } if(RadioGroup151->ItemIndex==0){N4++; } if(RadioGroup152->ItemIndex==0){M4++; } if(RadioGroup153->ItemIndex==0){O4++; } if(RadioGroup154->ItemIndex==0){S4++; } if(RadioGroup155->ItemIndex==0){V4++; } if(RadioGroup156->ItemIndex==0){A4++; } if(RadioGroup157->ItemIndex==0){R4++; } if(RadioGroup158->ItemIndex==0){N4++; }

M4=100/7*M4;

O4=100/7*O4;

S4=100/7*S4;

V4=100/7*V4;

A4=100/7*A4;

R4=100/7*R4;

N4=100/7*N4;

}

Edit18->Text=IntToStr(M4)+"%";

Edit19->Text=IntToStr(O4)+"%";

...

Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.