Вывести наугад задание

@xAndeRx · Регистрация: 25.10.2012

Author24 — интернет-сервис помощи студентам

Есть 10 заданий, которые нужно задать пользователю по очереди, но в разном порядке. Чтобы при повторном включении программы порядок изменялся. Я знаю, что можно воспользоваться randomize, но как связать его с заданиями?

@Puporev · 12.09.2014, 18:14

Delphi

var m:set of byte;
     a:array[1..10]of byte;//массив номеров вопросов
     x:byte;
begin
randomize;
//на каждой итерации создаем новый массив
m:=[];
for i:=1 to 10 do
 begin
  repeat
   x:=1+random(10)
  until not (x in m);
  m:=m+[x];
  a[i]:=x;
 end;

@xAndeRx 4 / 4 / 1 Регистрация: 25.10.2012 Сообщений: 218
		1
	Вывести наугад задание 12.09.2014, 17:21. Показов 977. Ответов 1 Метки нет (Все метки) Есть 10 заданий, которые нужно задать пользователю по очереди, но в разном порядке. Чтобы при повторном включении программы порядок изменялся. Я знаю, что можно воспользоваться randomize, но как связать его с заданиями? 0

	12.09.2014, 18:14

Вывести наугад задание

Решение