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

[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 19:35