Урок 1. Учимся выбирать ответ.

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

1. Процедура1, создающая текстовое окно, в котором высвечивается текст с вопросом и ответами.

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

3. Если ответ верный, вызывается процедура3, которая увеличивает счётчик правильных ответов и выводит сообщение "верно". Если ответ неверный, то вызывается другая процедура4, которая просто выводит сообщение "неверно".

4. Наконец, нам понадобится процедура5, которая скажет, сколько баллов Вы набрали (в нашем простом примере из одного вопроса 0 или 1).

1) Составим примерную блок-схему процедуры:

2) Затем заготовим на листе проекта два текстовых окна:

 

	Текстовое окно текст1содержит вопрос и ответы на выбор. Обладает свойством невидимости. Это необходимо, чтобы при создании тестовой задачи из множества вопросов можно было окна с вопросами проявлять и прятать по мере необходимости.
	Текстовое окно результатпредназначено для вывода результата (в нашем маленьком примере 0 или 1). При создании большой тестовой задачи мы можем использовать это же окно для вывода информации о правильности или неправильности ответа.

3) На листе программ подготовим следующие процедуры:

 

ТЕСТ	это ТЕСТ удали "результат нт "результат [0 200] [100 100] пусть "рез 0 текст1, ВОПР 3 текст1, спрячь_текст ОЦЕНКА конец	начало процедуры ТЕСТ удаляем текстовое окно результат создаём заново текстовое окно результат создаём переменную рез - счётчик правильных ответов проявляем текстовое окно текст1и вызываем процедуру ВОПРобработки ответа прячем окно текст1 вызываем процедуру ОЦЕНКА
ВОПР	это ВОПР:о покажи_текст спроси [укажите правильный ответ] если_иначе ответ =:о [ВЕРНО] [НЕВЕРНО] конец	Номер ответа, переданный как параметр, сравнивается с введённым через диалоговое окно и вызывается одна из процедур.
ВЕРНО	это ВЕРНО пусть "рез 1 +:рез конец	Увеличивается счётчик правильных ответов.
НЕВЕРНО	это НЕВЕРНО конец
ОЦЕНКА	это ОЦЕНКА результат, ст пиши [Ваш результат - ] пиши:рез конец

ОЦЕНКА

НЕВЕРНО

ВЕРНО

ВОПР

ТЕСТ

ответ верный?

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