ПОМОГИТЕ!!!!
не стал этого писать в заглавие, чтобы никого не напугать, но раз уж вы зашли, значит назад дороги нет!
вкратце о себе - врач, хочу разработать тест на знание пациентами своих прав, для того чтобы подсказать им правильное решение в некоторых ситуациях. тест написал, как реализовать - не знаю. Все онлайн тесты не подходят для реализации.
Искал ответ - пришёл к вам. данные программы максимально подходят для реализации моей задумки.
Буду откровенен - в программировании, я - ноль. осваивать не хочу. Прошу направить мои поиски к наиболее простой программе, которую я смогу быстро и качественно освоить, если окажусь не совсем тупым. или предложите свою помощь - что для меня наиболее приемлемо. В тесте 15 вопросов и очень простая схема переходов и накапливания баллов.
Спасибо!
Неактивен
Ну, как бы вот пример теста:
; Программа-тест :Начало СуммаБаллов=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)
Неактивен