47783 (608371), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

;ЗА ОТВЕТ "ДА" (1) - 10 БАЛЛОВ

;ЗА ОТВЕТ "НЕ ЗНАЮ" (-1) - 5 БАЛЛОВ

;ЗА ОТВЕТ "НЕТ" (0) - 0 БАЛЛОВ

(COND

((= VALUE 1) (SETF COUNTER (+ COUNTER 10)))

((= VALUE -1) (SETF COUNTER (+ COUNTER 5)))

((= VALUE 0) (SETF COUNTER (+ COUNTER 0)))

)

)

;СОЗДАЕМ НУЛЕВОЙ СПИСОК СЧЕТЧИКОВ РАЗМЕР КОТОРОГО РАВЕН КОЛИЧЕСТВУ ЧЕЛОВЕК

(SETQ LST_COUNTER (CREATE_LST PEOPLE NIL))

(DO

((I 0))

((>= I NUM))

;СЧИТЫВАЕМ СТРОКУ LST

(SETQ LST (READ INPUT_STREAM))

;ПОЛУЧАЕМ ОТВЕТЫ ЛЮДЕЙ ИЗ СТРОКИ LST

(SETQ ANSWER (CADR LST))

;СУММИРУЕМ СЧЕТЧИК РЕЗУЛЬТАТОВ ТЕСТИРОВАНИЯ ДЛЯ КАЖДОГО ЧЕЛОВЕКА

(SETQ LST_COUNTER (MAPCAR 'SUM_COUNTER ANSWER LST_COUNTER))

(SETQ I (+ I 1))

)

;ЗАКРЫВАЕМ ФАЙЛ TEST.TXT

(CLOSE INPUT_STREAM)

;СЧЕТЧИК ДЛЯ ВЫВОДА КОЛИЧЕСТВА ЧЕЛОВЕК

(SETQ NUM_PEOPLE 1)

;ПЕЧАТЬ РЕЗУЛЬТАТОВ

(DEFUN PRINT_RES (RESULT COUNTER)

;ВЫВВОД КОЛИЧЕСТВА НАБРАННЫХ БАЛЛОВ

(PRINT (LIST NUM_PEOPLE 'PEOPLE '= 'COUNTER COUNTER) OUTPUT_STREAM)

;ВЫВВОД РЕЗУЛЬТАТА ТЕСТИРОВАНИЯ

(PRINT RESULT OUTPUT_STREAM)

;УВЕЛИЧИВАЕМ СЧЕТЧИК ДЛЯ ВЫВОДА КОЛИЧЕСТВА ЧЕЛОВЕК

(SETQ NUM_PEOPLE (+ NUM_PEOPLE 1))

)

;ОТКРЫВАЕМ ФАЙЛ CALC_RESULT.TXT ДЛЯ ЧТЕНИЯ

(DEFUN CALC_RESULT (COUNTER)

;ОБЪЯВЛЯЕМ ВСПОМОГАТЕЛЬНЫЕ ПЕРЕМЕННЫЕ

(DECLARE (SPECIAL INPUT_STREAM))

(DECLARE (SPECIAL RES))

(DECLARE (SPECIAL MAX_COUNT))

(DECLARE (SPECIAL MIN_COUNT))

(SETQ INPUT_STREAM (OPEN " D:\CALC_RESULT.TXT" :DIRECTION :INPUT))

(DO

((I 0))

((>= I 3))

;СЧИТЫВАЕМ ВАРИАНТ РЕЗУЛЬТАТА

(SETQ RES (READ INPUT_STREAM))

;СЧИТЫВАЕМ МАКСИМУМ И МИНИМУМ

(SETQ MAX_COUNT (CAR (CAR RES)))

(SETQ MIN_COUNT (CADR (CAR RES)))

;ЕСЛИ КОЛИЧЕСТВО НАБРАННЫХ БАЛЛОВ СОВПАДАЕТ С ТРЕБУЕМЫМИ

;ВЫВОДИМ РЕЗЛЬТАТ ТЕСТИРОВАНИЯ И ВЫХОДИМ ИЗ ЦИКЛА

(IF (AND (= COUNTER MIN_COUNT))

(PROGN

(PRINT_RES (CADR RES) COUNTER)

(SETQ I 3)

)

)

(SETQ I (+ I 1))

)

;ЗАКРЫВАЕМ ФАЙЛ

(CLOSE INPUT_STREAM)

)

;ОТКРЫВАЕМ ФАЙЛ RESULT.TXT ДЛЯ ЗАПИСИ

(SETQ OUTPUT_STREAM (OPEN " D:\RESULT.TXT" :DIRECTION :OUTPUT))

;ВЫВВОД НАЗВАНИЯ ТЕСТА

(PRINT (LIST 'TEST NAME_TEST) OUTPUT_STREAM)

(MAPCAR 'CALC_RESULT LST_COUNTER)

;ЗАКРЫВАЕМ ФАЙЛ RESULT.TXT

(TERPRI OUTPUT_STREAM)

(CLOSE OUTPUT_STREAM)

;END

5. Пример выполнения программы

Рисунок 5 – Входные данные

Рисунок 6 – Входные данные

Рисунок 7 – Выходные данные

Пример 2.

Рисунок 8 – Входные данные

Рисунок 9 – Входные данные

Рисунок 10 – Выходные данные

2. ЗАКЛЮЧЕНИЕ

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

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

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

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

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ и литературы

1. Бронштейн, И.Н. Справочник по математике для инженеров и учащихся втузов [Текст] / И.Н.Бронштейн, К.А.Семендяев. – М.: Наука, 2007. – 708 с.

2. Выготский, Л.С. О психологических системах [Текст] / Л.С.Выгодский – М.: Питер, 2001. С. 467.

3. Гайда, В.К. Психологическое тестирование: учебное пособие. [Текст] / В.К. Гайда, В.П. Захаров – M.:Мир, 1999. С. 625.

4. Пиаже, Ж. Экспериментальная психология. [Электронный ресурс] / Ж. Пиаже – М.: Прогресс, 2003. С. 318.

5. Симанков, В.С. Основы функционального программирования [Текст] / В.С.Симанков, Т.Т.Зангиев, И.В.Зайцев. – Краснодар: КубГТУ, 2002. – 160 с.

6. Степанов, П.А. Функциональное программирование на языке Lisp. [Электронный ресурс] / П.А.Степанов, А.В. Бржезовский. – М.: ГУАП, 2003. С. 79.

7. Холодная, М.А. Существует ли интеллект как психическая реальность? [Текст] / М.А. Холодная – М.: Педагогика, 200. С. 216.

8. Хювенен Э. Мир Лиспа [Текст] / Э.Хювенен, Й.Сеппянен. – М.:Мир, 1990. – 460 с.

Характеристики

Список файлов курсовой работы