[HoustoN]

Есть у меня тест по физике, в котором варианты ответа выводятся в одном порядке
и соответственно правильный ответ имеет всегда один и тот же номер, а мне нужно, чтобы в каждом вопросе ответы выводились в рандомном порядке и чтобы правильно выводился правильный ответ

вот код проги:

[bleeep]

HoustoN, со своей разберусь могу дать исходник примерный))

[Boris the Blade]

Я бы делал следующим образом:

1. каждый вопрос делал бы в виде записи: текст вопроса, три ответа, причем правильный ответ всегда первый

Код:

1 2 3 4 5

type   _question = record     _text : string;     _answers : array [1..3] of string;   end;

2. далее сделать процедуру вывода вариантов ответа в произвольном порядке, например нечто подобное (выглядит дико, но всё же рабочая версия)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1._shuffle(); var   _i : integer;   _s : string; begin   randomize;   _s := '123';     _i := random(3)+1;   label1.Caption := _q._answers[strtoint(copy(_s,_i,1))];   delete(_s,_i,1);     _i := random(2)+1;   label2.Caption := _q._answers[strtoint(copy(_s,_i,1))];   delete(_s,_i,1);     label3.Caption := _q._answers[strtoint(_s)]; end;

3. и наконец, проверять ответ, скажем, вот так - щелчком по Label определять его Caption и сравнивать с правильным ответом