Forum.iFiction.Ru

iFiction.Ru · ifHub · FAQ · IFWiki · QSP · URQ · INSTEAD · AXMA

форум об interactive fiction, текстовых приключенческих играх и всём таком...

Вы не зашли.

0    0    #1
22.02.2011 20:42

stelton
Участник
Зарегистрирован: 22.02.2011
Сообщений: 15

Создание теста.

ПОМОГИТЕ!!!!
не стал этого писать в заглавие, чтобы никого не напугать, но раз уж вы зашли, значит назад дороги нет!

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

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

Спасибо!

Неактивен

0    0    #2
22.02.2011 21:24

uux
Участник (+884, -80)
Откуда: Москва
Зарегистрирован: 02.12.2006
Сообщений: 1624

Re: Создание теста.

Ну, как бы вот пример теста:

Код:

; Программа-тест
:Начало
СуммаБаллов=0 ; Сумма баллов
pln Программа-тест на знание пациентами своих прав
pln 
pln Нажмите любую клавишу для продолжения
anykey

:Вопрос1  ; Первый вопрос
pln Вопрос 1: Как Вы считаете, является ли "Единая Россия" партией жуликов и воров?
pln
btn Вопрос1_1, Да
btn Вопрос1_2, Да
end

:Вопрос1_1  ; Ответ 1 на первый вопрос
sum=sum+10
goto Вопрос2
end

:Вопрос1_2  ; Ответ 2 на первый вопрос
sum=sum+10
goto Вопрос2
end

:Вопрос2  ; Второй вопрос
pln Вопрос 2: Бросили ли Вы пить коньяк по утрам?
btn Вопрос2_1, Да
btn Вопрос2_2, Нет
btn Вопрос2_3, Не уверен
end

:Вопрос2_1  ; Ответ 1 на второй вопрос
СуммаБаллов=СуммаБаллов+10
goto Результат
end

:Вопрос2_2  ; Ответ 2 на второй вопрос
СуммаБаллов=СуммаБаллов+20
goto Результат
end

:Вопрос2_3  ; Ответ 2 на второй вопрос
СуммаБаллов=СуммаБаллов+20
goto Результат
end

; [и т. д.]

:Результат ; Здесь происходит анализ результата теста в зависимости от набранных баллов
if СуммаБаллов<10 then pln Вы супергениальны.
if СуммаБаллов>=10 and СуммаБаллов<30 then pln Такого морального урода, как Вы, поискать.
if СуммаБаллов>=50 then pln Ваш единственный выход - добровольная самоссылка на необитаемый остров.
pln
pln
pln Пройдете тест еще раз?
btn Начало, Да
btn Конец, Нет
end

:Конец ; Завершение теста

Довести этот тест до ума Вам с удовольствием помогут на http://urq.borda.ru. При желании все это можно дае скомпилировать в exe-файл...

Если интересно - пишите в личку.

Отредактировано uux (22.02.2011 21:25)

Неактивен

Powered by PunBB
© copyright 2001–2024 iFiction.Ru