закрашивание клеток в сетке, графика паскаль

[hunter03]

суть проблемы в чем...есть сетка, ее размеры вводим, и есть количество клеток в этой сетке которые нужно закрасить рандомно...но координаты могут иметь приблизительно одинаковые значения и выйдет что клетка закрашевается 2 раза...по ходу разность между координатами должна быть N ток никак не выходит(

bb := 45;
kl := 1; {num количество закрашиваемых клеток}
while kl <= num do begin
 metka:
  x1 := (random(469) + 1);
  y1 := (random(470)); {opredelyaem koordinatu kracnix kletok}
  if (y1 <= 35) or (y1 mod 2 = 0) or (x1 mod 2 = 0) then goto metka;
  mas1[kl] := x1; mas2[kl] := y1;
  setfillstyle(1, 4);
  floodfill(x1, y1, 15);
  setcolor(4);
  str(x1, s); str(y1, s1);
  outtextxy(470, bb, s);
  outtextxy(530, bb, s1);
  bb := bb + 15;
  kl := kl + 1;
end;

Заранее спасибо за помощь


_____
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Задача как стоит? Закрасить СТРОГО N клеток?
я бы завёл массивчик, где сохранял информацию о закрашенных клетках, ну и гонял бы рандом в цикле, пока количество закрашенных клеток не стало равным N
(разумеется, если рандом выпал уже на закрашенную клетку, счётчик закрашенных не увеличивать!)

p.s. старайтесь не использовать метки и переход goto на них.
это всегда можно заменить.
в данном случае, например, так:

while kl <= num do begin
 repeat
    x1 := (random(469) + 1);
    y1 := (random(470)); {opredelyaem koordinatu kracnix kletok}
 until not ( (y1 <= 35) or (y1 mod 2 = 0) or (x1 mod 2 = 0) );
....

ВНИМАНИЕ! Логику вашего кода абсолютно не смотрел! Просто переписал Ваш код, чтобы он выполнялся ТОЧНО ТАК ЖЕ, как и ваш с меткой, только БЕЗ использования метки и перехода.