Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
uiivalet
12 / 12 / 4
Регистрация: 18.06.2010
Сообщений: 107
1

Тест на Delphi

19.12.2011, 20:57. Просмотров 2389. Ответов 11
Метки нет (Все метки)

Вот нашел тест, написанный на Delphi, но не как не могу разобраться как тут происходит начисление баллов. Кто может помочь переделать, чтоб при правильном ответе начислялся 1 балл, а при не правильном 0 баллов.
0
Вложения
Тип файла: rar Тест.rar (366.8 Кб, 262 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2011, 20:57
Ответы с готовыми решениями:

Можно ли создать тест в программе My Test Student и запустить этот тест через Delphi?
Здравствуйте! Мне нужна помощь! Я сейчас делаю курсовую, и мне нужно сделать тест, и я хотела бы...

Тест на delphi
привет. в моём тесте(хотя он не мой) для начала теста нужно выбрать нужный из списка в ComboBox...

Тест на Delphi
Помогите пожалуйста, я уже не знаю что делать, не получается... Поставили условия: 1. Тест с...

Тест в delphi
Здравствуйте ! Есть тестер вот такого типа кто нибудь помоги сделать в нем так чтобы из файла тест...

Тест на Delphi
Народ помогите пожалуйста сделать Тест на дельфи в Понедельник засада :( Надо сделать тест чтобы...

11
anonimus
2158 / 1248 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
19.12.2011, 21:33 2
суть такая, в файле где записаны вопросы, правильный вопрос помечается 1 не правильные 0, при при выборе ответа все складывается в переменную summa,
Delphi
1
summa:=summa+score[otv]
score - это массив в который вносятся 0 или 1 при парсинге файла с данными.
Т.е. если вопрос не верный то к summa ничего не приплюсуется, если ответ правильный то к summa прибавится 1. В конце выводится значение переменной summa.

P.S.
странно конечно устроен тест, у RadioButton caption скрыт, но рядом у каждого RadioButton стоит label
0
uiivalet
12 / 12 / 4
Регистрация: 18.06.2010
Сообщений: 107
19.12.2011, 21:37  [ТС] 3
ну так это немного понятно, но непонятно одно, 7 вопросов, а сумма баллов максимальная, выводится как 8 баллов, как так то

P.S. правильный ответ на любой вопрос - первый
0
anonimus
2158 / 1248 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
19.12.2011, 22:08 4
Цитата Сообщение от uiivalet Посмотреть сообщение
ну так это немного понятно, но непонятно одно, 7 вопросов, а сумма баллов максимальная, выводится как 8 баллов, как так то
потому что по окончанию теста второй раз дублируется строка

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
if not eof(f)
                  then VoprosToScr
                  else
                     begin
                        summa:=summa+score[otv]; // тут 
                        closefile(f);
                        Button1.caption:='Ok';
                        Form1.caption:='ÐåçóëüòГ*ГІ';
                        Button1.tag:=2;
                        Button1.Enabled:=TRUE;
                        Itog; // âûâåñòè ðåçóëüòГ*ГІ
                     end;
1
19.12.2011, 22:08
uiivalet
12 / 12 / 4
Регистрация: 18.06.2010
Сообщений: 107
19.12.2011, 22:46  [ТС] 5
anonimus,
спасибо огрмное за ту подсказку, но не можешь помочь пожалуйста в последний раз
я там немного подредактировал и поставил свои варианты вопросов, и возникла такая же проблема, вопросов 24, а максимальный балл выводит как 17
0
Вложения
Тип файла: rar Тест1.rar (429.0 Кб, 99 просмотров)
uiivalet
12 / 12 / 4
Регистрация: 18.06.2010
Сообщений: 107
19.12.2011, 23:39  [ТС] 6
выяснил, что некоторые вопросы не читаются, например пятый, но не могу разобрать почему
помогите люди добрые
0
anonimus
2158 / 1248 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
19.12.2011, 23:45 7
в том что ты выложил все читается
0
uiivalet
12 / 12 / 4
Регистрация: 18.06.2010
Сообщений: 107
19.12.2011, 23:48  [ТС] 8
anonimus, странно, при прохождении теста и правильных ответах сумма баллов 17 из 24

UPD. не-а, не читаются, протестил на втором компе и тоже 17 баллов
0
anonimus
2158 / 1248 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
19.12.2011, 23:51 9
сделай файл таким образом что бы правильный ответ был всегда первый, посмотрю, а то проходить тест лень, и каждый вопрос в файле смотреть тоже лень
0
uiivalet
12 / 12 / 4
Регистрация: 18.06.2010
Сообщений: 107
19.12.2011, 23:58  [ТС] 10
о, странно, если все первые ответы то сумма баллов 24
а если разбросаны, то нет, в чем может быть тогда проблема?
1
Вложения
Тип файла: rar Тест.rar (429.0 Кб, 154 просмотров)
anonimus
2158 / 1248 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
20.12.2011, 00:07 11
значит не правильно отвечаешь )
1
uiivalet
12 / 12 / 4
Регистрация: 18.06.2010
Сообщений: 107
20.12.2011, 00:53  [ТС] 12
anonimus,
не я отвечаю правильно, ща варианты ответов по другому разбросал и всё заработало
а тебе огромнейшее спасибо добрый человек
0
20.12.2011, 00:53
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2011, 00:53

Тест на Delphi
Всем привет !!! Я решил писать на Delphi программу тест для средней школы, но мне нужно не простой...

Тест в Delphi
Программа Rad Studio XE3 В первом окне у меня показаны опросы с разными темами, на каждый опрос...

Тест на Delphi 7
Здравствуйте, у меня есть код для теста на Delphi 7 , код был переписан с видео (качество...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru