как задать рандомные координаты, помогите лузеру Опции

[ewer]

Подскажите пожалуста, как сделать так, чтобы координаты точек на плоскости задавались сами рандомно в рандомном количестве (от 10 до 30) в целых значениях. ( y от 0 до 100 , x от 0 до 100 ). Спасибо

[klem4]

Если например точки хранятся в массиве следующим образом

A : array[1..100,1..2]

a[i,1] - координата Х
a[i,2] - координата У

то можно так :

randomize;

for i := 1 to 100 do 
 for j := 1 to 2 do a[i,j]:= random(21)+10;

Сообщение отредактировано: volvo - 7.11.2006 23:35

[volvo]

так, чтобы координаты точек на плоскости задавались сами рандомно в рандомном количестве (от 10 до 30) в целых значениях. ( y от 0 до 100 , x от 0 до 100 ).

Я бы делал так:

Var a: array[1 .. 30, 1 .. 2] of integer;
...
randomize;
n := random(21) + 10;
For i := 1 to n Do
  for j := 1 to 2 do a[i, j] := random(101);

Это еще без проверки на генерацию одинаковых точек...