Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Внизcase .. of, random и счётчик Найти похожие ветки
← →
Angel_Forever (2003-04-21 12:04) [0]У меня вопросик возник...Я пишу тестирующую знания юзера программу...у меня неполучается сделатьсчётчик правильных и неправильных ответов и выставление по ним оценок - это первое, второе, у меня в тесте вопросы берутся попорядку:
case VoprNum of
1 : ...;
2 : ...;
....
а препод попросил, чтобы вопросы брались не попорядку, а выбирались лучайным образо...как всё это сделать?, что-то я уже замаялся голову ломать... счётчик я сделал, но он счёт ведёт не правлильно: if RadioButtonA.Checked then
PravOtv := IntToStr(StrToInt(PravOtv)+1)
else
NepravOtv := IntToStr(StrToInt(NepravOtv)+1); - нехочет работать...и всё тут, и хоть ты тресни!!!
← →
Digitman (2003-04-21 12:14) [1]
> нехочет работать...и всё тут, и хоть ты тресни!!!
и молчит как партизан ?)... или так и говорит, мол, "не хочу" ?)
← →
Skier (2003-04-21 12:16) [2]1)Randomize
2) Random( Range)
← →
Leshiy (2003-04-21 12:17) [3]Используй множество.
← →
Leshiy (2003-04-21 12:20) [4]PravOtv := IntToStr(StrToInt(PravOtv)+1)
Прикольно :)
← →
Anatoly Podgoretsky (2003-04-21 12:42) [5]Вот что бывает если в яслях появляются компьютеры.
← →
Calm (2003-04-21 17:25) [6]У Anatoly Podgoretsky сегодня явно обострение язвительности :)
← →
Angel_Forever (2003-04-22 06:48) [7]Skier, Random(Range), где Range = VoprNum, работать-то работает, но...он вопросы выбирает один и тот-же вопрос по два-три раза..., а нуно, чтобы перебирал допустим когда превый раз юзер тестируется выбирает по порядку, когда повторяет тест (естесно не выходя из проги, а нажимая кнопку начала тестирования)вопросы выдаются в другом порядке, в третий раз опять порядок вопросов меняется и т.д. ...
← →
MBo (2003-04-22 07:09) [8]Занеси вопросы в TStringList
выбирай Random(Stringlist.Count)
и удаляй из списка
← →
Palladin (2003-04-22 10:17) [9]
> Angel_Forever © (22.04.03 06:48)
ты подумай над тем что тебе сказал Leshiy © (21.04.03 12:17)
хорошее решение
← →
Rocker (2003-04-22 10:58) [10]Если бы ты знал обыкновенный Pascal, ты бы не задавал таких вопросов!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c