Игра парные картинки.Randomize картинок

@maddanil · Регистрация: 23.05.2011

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

Кто не знает что за игра парные картинки объясняю в двух словах: Найти пару для картинки.Есть поле 4х4,и 8 картинок.Проблема:когда я запускаю игру то каждой картинке по паре,после выйграша нажимаю сыграть снова и какая то картинка 3 раза попадается,т.е. одна пара и одна лишняя в следствии чего не получается закончить игру
часть проги с рандомайзом:

Delphi

var dir: string; dir1:array[1..8] of string;   x:array[1..16] of integer;
  i,k: integer;  s:set of 1..8;
begin
s:=[];
for i:=1 to 16 do
 begin
   repeat
   k:=random(16)+1;
   until not (k in s);
 include(s,k);
 x[i]:=k;
 end;
for i:=1 to 8 do
begin
(FindComponent('image'+inttostr(x[2*i-1])) as timage).Picture.LoadFromFile(dir1[i]);
(FindComponent('image'+inttostr(x[2*i])) as timage).Picture.LoadFromFile(dir1[i]);
end;

p.s. я сам не знал как сделать так что картинки были в разном порядке,и попросил препода,она сама все это написала,и до конца не проверили сразу,только потом увидел косяк. хотелось бы исправить.

@Kitayets · 31.10.2011, 00:07

да вроде в приведённом коде всё верно.

пройди дебагером пошагово и посмотри где косяк.

@maddanil · 02.11.2011, 17:00 **[ТС]**

Спасибо,доделал
Надо было сделать s:set of 1..16; и все нормально работает.

@Kitayets 442 / 371 / 132 Регистрация: 09.09.2011 Сообщений: 1,339
	31.10.2011, 00:07	2
	да вроде в приведённом коде всё верно. пройди дебагером пошагово и посмотри где косяк. 1

@maddanil 0 / 0 / 0 Регистрация: 23.05.2011 Сообщений: 6
	02.11.2011, 17:00 [ТС]	3
	Спасибо,доделал Надо было сделать s:set of 1..16; и все нормально работает. 0