массивы для тестирующей программы

[kuzmich]

привет всем! я пишу тестирующую программу. у меня такой вопрос. как сделать при загрузке файла (например там 100 вопросов) и надо чтобы в Edit1 вводили кол-во вопросов и он выборочно (случайно) выбирал вопросы. подскажите как это сделать!!!

[Armorer]

привет всем! я пишу тестировающую программу. у меня такой вопрос. как сделать при загрузки файла (например там 100 вопросов) и надо чтобы в Edit1 ввадили кол-во вопросов и он выборачно (в разброс) выбирает вопросы. подскажите как это сделать!!!

Корявый вопрос=)

Если я правильно понял возьми дин. массив, кол-во элементов = числу вопросов. Заполняешь его индексами(1,2,3 и тд).

После ввода пользователем кол-ва вопросов делай цикл, от 0 до Макс. вопросов - кол-во введенных вопросов -1. В цикле случайно удаляй элементы из массива.

что -то вроде такого:

for i := 0 to MaxN - UserN - 1 do 
begin
 del( A, Random(MaxN - i) )
end;

procedure del(A : array; index : integer) // удаляет элемент из массива.

В итоге у тебя массив с индексами вопросов.

[OlegPrograming5]

Можешь использовать файлы произвольного доступа и Random(StrToInt(Edit1.Text))