помогите с конструктором тестов, нужна помощь |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
помогите с конструктором тестов, нужна помощь |
glebik |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 19 Пол: Мужской Репутация: 0 |
нужна прога - конструктор тестов на pascal
в ней используются разные типы вопросов,программа создаёт и проводит тест . помогите пожалуйста ,если есть готовая прога или наработки. Сообщение отредактировано: glebik - |
Алена |
Сообщение
#2
|
Гость |
Смотри, что надо сделать: в функции get_answer есть вложенная процедура print_options, которая отвечает за вывод вариантов ответа... Так вот. Эту процедуру немного переделываем:
procedure print_options(b: boolean; var new_ans: integer); Но этого недостаточно. Теперь надо еще переделать все вызовы print_options на вот такие: во всех местах Case, кроме ans_2 перемешивать варианты не надо, поэтому вызываешь так: print_options(false, new_ans); а в случае ans_2, там где перемешать-таки надо, делаешь:
(new_ans - новая переменная, типа Integer) |
Текстовая версия | 26.04.2024 5:44 |