Опросник депрессии Бека

array("Мне не грустно","Мне грустно или тоскливо","Мне все время тоскливо или грустно, но я ничего не могу с собой поделать","Мне так грустно или печально, что я не могу этого вынести"), 2=>array("Я смотрю в будущее без особого пессимизма или разочарования","Я чувствую разочарование в будущем","Я чувствую, что мне нечего ждать впереди","Я чувствую, что будущее безнадежно и поворота к лучшему быть не может"), 3=>array("Я не чувствую себя неудачником","Я чувствую, что неудачи случались у меня чаще, чем у других людей","Когда я оглядываюсь на жизнь, я вижу лишь цепь неудач","Я чувствую, что потерпел неудачу как личность (родитель, муж, жена)"), 4=>array("Я не испытываю никакой особенной неудовлетворенности","Ничто не радует меня, так как раньше","Ничто больше не дает мне удовлетворения","Меня не удовлетворяет все"), 5=>array("Я не чувствую никакой особенной вины","Большую часть времени я чувствую себя скверным и ничтожным","У меня довольно сильное чувство вины","Я чувствую себя очень скверным и никчемным"), 6=>array("Я не испытываю разочарования в себе","Я разочарован в себе","У меня отвращение к себе","Я ненавижу себя"), 7=>array("У меня нет никаких мыслей о самоповреждении","Я чувствую, что мне было бы лучше умереть","У меня есть определенные планы совершения самоубийства","Я покончу с собой при первой возможности"), 8=>array("У меня не потерян интерес к другим людям","Я меньше, чем бывало, интересуюсь другими людьми","У меня потерян почти весь интерес к другим людям и почти нет никаких чувств к ним","У меня потерян всякий интерес к другим людям и они меня совершенно не заботят"), 9=>array("Я принимаю решения примерно так же легко, как и всегда","Я пытаюсь отсрочить принятие решений","Принятие решений даётся мне с большим трудом","Я больше совсем не могу принимать решения"), 10=>array("Я не чувствую, что выгляжу сколько-нибудь хуже, чем обычно","Меня беспокоит то, что я выгляжу старо и непривлекательно","Я чувствую, что в моем внешнем виде происходят постоянные изменения, делающие меня непривлекательным","Я чувствую, что выгляжу гадко или отталкивающе"), 11=>array("Я могу работать примерно также хорошо, как и раньше","Нужно делать дополнительные усилия, чтобы начать что-то делать","Мне нужно с трудом пересилить себя, чтобы что-то сделать","Я совсем не могу выполнять никакую работу"), 12=>array("Я устаю не больше, чем обычно","Я устаю быстрее, чем раньше","Я устаю от любого занятия","Я устал чем бы то ни было заниматься"), 13=>array("Мой аппетит не хуже, чем обычно","Мой аппетит не так хорош, как бывало","Мой аппетит теперь гораздо хуже","У меня совсем нет аппетита") ); //Подсчитываем сумму ответов (баллы). if ($_POST['go']==1) { for ($num_q = 1; $num_q<=count($arr_q); $num_q++) { $result += (int)$_POST['test_option_'.$num_q]; } } //Криво, да. Но по-другому не работает. if ($result<10) { $res = 'Нормальный эмоциональный фон'; } else { switch ($result) { case (($result >= 10) && ($result <= 18)): $res = ' У Вас умеренная депрессия.
Возможно, Вам стоит немного отдохнуть, сменить обстановку. Постарайтесь почаще делать то, что приносит Вам чувство удовлетворения и радость.
Ознакомьтесь с рекомендациями, представленными в статье
Как самостоятельно справляться с депрессией
'; break; case (($result >= 19) && ($result <= 24)): $res = ' У Вас депрессия средней степени тяжести.
Чтобы состояние не ухудшилось, мы рекомендуем Вам обратиться за помощью к врачу-психотерапевту. Выбрать, куда обратиться, Вы можете, ознакомившись с информацией в разделе Отзывы.'; break; case ($result >= 25): $res = ' У Вас тяжелая депрессия.
Мы настоятельно рекомендуем Вам как можно быстрее обратиться за профессиональной помощью и пройти комплексное лечение. Выбрать клинику лечения депрессии Вы можете, ознакомившись с информацией в разделе Отзывы.
.'; break; } } /*===========================================*/ /* ВЫВОД ТЕСТА */ /*=========================================*/ ?> '; foreach($arr_q[$num_q] as $key => $var) { //Выводим варианты ответа echo ''; } echo ''; } echo '

Результаты' : 'Внимательно прочтите каждую группу утверждений. Затем отметьте в каждой группе одно из утверждений, которое больше всего соответствует тому, как Вы себя чувствуете в настоящий момент, а также на протяжении последней недели. '; ?> '; for ($num_q = 1; $num_q<=count($arr_q); $num_q++) { //Выводим вопрос echo '
'.$num_q.'.
	'.$var.'

'; } else { echo 'Ваш результат в баллах: '.$result."
"; echo 'Шкала депресии: '.$res.'

'; } if (!isset($result)) { echo ''; } else { echo ''; } ?>