[ps1panda]

Доброго времени суток. Помогите написать программу естественно на делфи.Суть вот в чем нужен двумерный массив из координат и чтоб дальше он рандомно выводил точки по координатам из массива

[angvelem]

А где ваши попытки? Всё за вас написать?

[Bargest]

По описанию прога элементарная. И информации про Random, про массивы, про вывод точек просто море. Так что пишите, что не получается и что не работает, будем думать.

[ps1panda]

procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.Pen.Style:=pssolid;
canvas.MoveTo(100,400);
canvas.LineTo(400,400);
canvas.Pen.Style:=pssolid;
canvas.MoveTo(100,400);
canvas.LineTo(100,100);

for i:=100 to 250 do
for j:=110 to 390 do
begin
x:=i+random(10);
y:=j+random(10);
canvas.Pen.style:=pssolid;
canvas.Pen.Color:=clred;
canvas.Rectangle(x,y,x+10,y+10);
end;
for i1:=250 to 400 do
for j1:=110 to 390 do
begin
x1:=i1+random(10);
y1:=j1+random(10);
canvas.Pen.style:=pssolid;
canvas.Pen.Color:=clblue;
canvas.Rectangle(x1,y1,x1+10,y1+10);
end;

вопрос такой как мне уменьшить шаг рандома чтоб выводило не 1000 квадратов а парочку

[angvelem]

В таком случае не шаг, а количество выводов. Добавь ещё одну переменную, к примеру Count, обнуляй её перед циклом и наращивай в цикле. Как дойдёт до нужного значения прерывай цикл командой Break.

[ps1panda]

а не подскажеш куда эту переменную впихнуть)

[angvelem]

Можно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Count
begin
  ...
  Count := 0;
  for i:=100 to 250 do
    for j:=110 to 390 do
    begin
      if Count = 2 then  // Сколько раз выводим
        Break;  // прерываем цикл
      x:=i+random(10);
      y:=j+random(10);
  ...
      inc(Count);
    end;
  ...

[ps1panda]

спасибо за помощь но есть еще вопросы
1 у меня есть формула которая считает этолон этих квадратов доя первой группы и вторрй групаы есть какая нибудь возможность складывать x,y
2есть ли возможность координаты мыши при шеляке записывать в переменные?

[angvelem]

1. z := x + y
2. Непонятно откуда берутся координаты мышки

Код:

var
  pt : TPoint;
begin
  ...
  GetCursorPos(pt); // один из вариантов
  ...
end;

[ps1panda]

я чето с мышью не очень понял можно ли как нить по другому)

[eXplorer]

а что тут непонятного...

вот пример.

Код:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
      pt:TPoint;
  begin
      getcursorpos(pt);
      form1.Caption:=inttostr(pt.x)+' '+inttostr(pt.y);
  end;

в результате getcursorpos(pt); у pt два свойства всего появляются pt.x и pt.y что тебе и нужно.

[angvelem]

Как я понял, вам нужно было получить координаты мышки при нажатии кнопки. При этом в событие OnClick параметры мышки не передаются. Вот и получаем их указанной функцией. Для преобразования зкранных координат мышки в координаты формы дополнительно используйте ScreenToClient. Ну и когда что-то непонятно, нажимайте F1, для прочтения спраки.