![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Доброго времени суток. Помогите написать программу естественно на делфи.Суть вот в чем нужен двумерный массив из координат и чтоб дальше он рандомно выводил точки по координатам из массива
|
#2
|
||||
|
||||
![]() А где ваши попытки? Всё за вас написать?
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
||||
|
||||
![]() По описанию прога элементарная. И информации про Random, про массивы, про вывод точек просто море. Так что пишите, что не получается и что не работает, будем думать.
jmp $ ; Happy End! The Cake Is A Lie. |
#4
|
|||
|
|||
![]() Код HTML:
|
#5
|
||||
|
||||
![]() В таком случае не шаг, а количество выводов. Добавь ещё одну переменную, к примеру Count, обнуляй её перед циклом и наращивай в цикле. Как дойдёт до нужного значения прерывай цикл командой Break.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
|||
|
|||
![]() а не подскажеш куда эту переменную впихнуть)
|
#7
|
||||
|
||||
![]() Можно так:
Код:
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; ... Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#8
|
|||
|
|||
![]() спасибо за помощь но есть еще вопросы
1 у меня есть формула которая считает этолон этих квадратов доя первой группы и вторрй групаы есть какая нибудь возможность складывать x,y 2есть ли возможность координаты мыши при шеляке записывать в переменные? |
#9
|
||||
|
||||
![]() 1. z := x + y
2. Непонятно откуда берутся координаты мышки Код:
var pt : TPoint; begin ... GetCursorPos(pt); // один из вариантов ... end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#10
|
|||
|
|||
![]() я чето с мышью не очень понял можно ли как нить по другому)
|
#11
|
||||
|
||||
![]() а что тут непонятного...
вот пример. Код:
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 что тебе и нужно. ![]() |
#12
|
||||
|
||||
![]() Как я понял, вам нужно было получить координаты мышки при нажатии кнопки. При этом в событие OnClick параметры мышки не передаются. Вот и получаем их указанной функцией. Для преобразования зкранных координат мышки в координаты формы дополнительно используйте ScreenToClient. Ну и когда что-то непонятно, нажимайте F1, для прочтения спраки.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |