Создание теста в среде PascalABCNET

Создание теста в среде PascalABCNET

Данный урок полезен при изучении темы «Программирование. Оператор выбора Case».

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

Анкета написана в среде PascalABC Net. Листинг программы приведен ниже.

Пользователю предлагается 8 вопросов, на каждый он может ответить «да» - 1 или «нет» - 0. Сумма накапливается в переменной s.

В зависимости от конечной суммы, получившейся в переменной s, будет выдан итог тестирования:

Если s<4 – Вам не грозит попасть в Интернет-зависимость. У Вас в жизни есть интересы и увлечения помимо компьютера и сети Интернет. Вы на правильном пути.

Если s>=4 – Ваши шансы попасть в интернет-зависимость весьма велики. Ваше увлечение грозит Вам массой неприятностей:  ухудшением здоровья, ослаблением мыслительных способностей, сужением круга знакомых и друзей. Измените свою жизнь: бывайте больше на свежем воздухе, займитесь спортом, учебой, найдите себе интересное хобби. Не превращайтесь в раба Интернета. Займитесь самосовершенствованием, будьте Личностью.

Скриншот запущенной программы приведен ниже.

 

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