Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c