Выбор тестов в случайном порядке

[Умагаджи]

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

[s-andriano]

Выделите массив длиной равной количеству вопросов теста, запишите туда по прядку натуральные числа.
Перемешайте их.
Вытаскивайте вопросы в том порядке, как в перемешанном массиве.

[Умагаджи]

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

[Serge_Bliznykov]

вот ты умный.. я тоже знаю что так можно сделать.. но тут иначе устроено немножко.

ничего тут не иначе устроено! Как Вам s-andriano посоветовал, так и делайте!

в начале модуля, там, где объявляются массивы AnswerQuestion, QuestionText1, QuestionText2 и т.д.
добавьте массив, например

  OrderQuestons: array[0..max] of integer;

на событие FormCreate
добавьте вызов иницилизации ГСЧ:

   Randomize;

в процедуре загрузки вопросов теста в память LoadTest

после того, как все вопросы загружены
вставьте такой код:

var
  j, k, buf : integer;
....

  s.Free; // уничтожаем переменную
  for j:=0 to H-1 do OrderQuestons[j]:=j;
 //----------перемешать-------------
 for j:=0 to H-2 do
  begin
   k:= Random(H-j)+j;
   if k<>j then begin
     buf:=OrderQuestons[j];
     OrderQuestons[j]:=OrderQuestons[k];
     OrderQuestons[k]:=buf;
   end;
  end;

и потом везде, где выводится вопрос NOW:
LoadQuestion(now)
заменить на такой код:

LoadQuestion( OrderQuestons[now] );

код писал тут, разумеется не проверял, но общая идея, надеюсь, ясна?!

[chertovich]

Перемешиваем случайным образом. И последовательно с начадо и до конца получаем вопросы.

[Умагаджи]

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

[Serge_Bliznykov]

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

да. можно. только не через edit, а через MEMO, например.
но, во-первых, в программе тестирования это выглядит мягко говоря странно (нужно новую программу для составления вопросов делать), а во-вторых, файл вопросов обычный текстовый файл - зачем нужны пляски с бубном, если его обыкновенным блокнотом (или любым другим редактором текста) можно прекрасно редактировать?!

[Умагаджи]

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

[Serge_Bliznykov]

можно. делайте. вариантов реализации можно придумать МАССУ.
я бы отталкивался от данных, загруженных в массивы AnswerQuestion, QuestionText1, QuestionText2, QuestionText2 ...
интерфейс - ЛЮБОЙ, на какой фантазии и умений хватит!

[Умагаджи]

я сделал уже.. Всем спасибо.