Помощь - Поиск - Пользователи - Календарь
Полная версия: как задать рандомные координаты
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
no1.gif
Цитата(Задание)
так, чтобы координаты точек на плоскости задавались сами рандомно в рандомном количестве (от 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);
Это еще без проверки на генерацию одинаковых точек...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.