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, работать-то работает, но...он вопросы выбирает один и тот-же вопрос по два-три раза..., а нуно, чтобы перебирал допустим когда превый раз юзер тестируется выбирает по порядку, когда повторяет тест (естесно не выходя из проги, а нажимая кнопку начала тестирования)вопросы выдаются в другом порядке, в третий раз опять порядок вопросов меняется и т.д. ...

Занеси вопросы в TStringList
выбирай Random(Stringlist.Count)
и удаляй из списка

Если бы ты знал обыкновенный Pascal, ты бы не задавал таких вопросов!

case .. of, random и счётчик Найти похожие ветки