Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Delphi. Координаты прямоугольника

Автор: DRAGON88 4.1.2013, 23:26

Даны координаты левого верхнего угла прямоугольника и правого нижнего угла прямоугольника??? Как узнать координаты остальных вершин прямоугольника в вывести в окне???????

Автор: Illusion Dolphin 4.1.2013, 23:38

^y
|
|    P1*********************P2
|    *************************
|    *************************
|    *************************
|    P3*********************P4
|
---------------------------------------->x
P1 = (x1, y1)
P4 = (x2, y2)

Теперь 2 задачки - нужно выбрать верные варианты:

1) P2 = (x1/x2, y1/y2)
2) P3 = (x1/x2, y1/y2)

Код


вывести в окне???????

Код


Label1.Caption := Format('Координаты точек 2 и 3 - (%d, %d) и (%d, %d)', [P2.X, P2.Y, P3.X, P3.Y]);

Автор: northener 5.1.2013, 01:39

Цитата(DRAGON88 @ 4.1.2013, 23:26

)

Ей богу, это уже даже не смешно.

Автор: DRAGON88 5.1.2013, 02:05

Цитата(northener @ 5.1.2013, 01:39)

Цитата(DRAGON88 @ 4.1.2013, 23:26

)

Ей богу, это уже даже не смешно.

В смысле???????

Автор: boobie 5.1.2013, 07:04

В смысле, что это задача для 7 класса. Берешь листок бумаги, чертишь координатную плоскость. Затем рисуешь прямоугольник.

Illusion Dolphin уже все сделал за тебя, только ответ не дописал.

Цитата

Даны координаты левого верхнего угла прямоугольника и правого нижнего угла прямоугольника???

Я не знаю. Никто, скорее всего, не знает.

Во, вот так лучше:
   ^Y
    |
y1--   P1*********************P2
    |    *************************
    |    *************************
    |    *************************
y2--   P3*********************P4
    |
--------|------------------------------------|--->X
    |    x1                                           x2
P1 = (x1, y1)
P4 = (x2, y2)
Тогда P3 имеет координаты (х1, y2), a P2 - (x2,y1)