Как мне Rect Превести в чиловой параметр

← →
{{{KOTOS}}} (2003-02-11 12:00) [0]

Как мне Rect Превести в числовой параметр (integer,byte и т.д.)

← →
Anatoly Podgoretsky © (2003-02-11 12:15) [1]

По какому закону?

← →
i-C3H7OH © (2003-02-11 14:08) [2]

Find declaration TRect или F1

← →
Danilka © (2003-02-11 14:09) [3]

>По какому закону?
по закону Киргофа

← →
{{{KOTOS}}} (2003-02-11 15:23) [4]

Там ничего толком нет

← →
Delirium^.Tremens © (2003-02-11 15:31) [5]

Опиши прямоугольник одним числом и найдешь ответ :-) (если получится)

← →
uw © (2003-02-11 15:46) [6]

Я понял! Навеяло by Delirium^.Tremens. Имеется массив прямоугольников:
const
Rects: array[1..N] of TRect =
((Left: 1; Top: 2; Right: 3; Bottom: 4),
(Left: 3; Top: 4; Right: 5; Bottom: 6),
...
);
Каждому соответствует индекс в этом массиве!

← →
Sly © (2003-02-11 15:48) [7]

Да действительно можно так:
Result := (R.Bottom - R.Top) * (R.Right - R.Left)
А можно еще так:
Result := 2 * ((R.Bottom - R.Top) + (R.Right - R.Left))

:-)

← →
Palladin © (2003-02-11 15:51) [8]

в int64 можно... по 2 байта на координату...

← →
Delirium^.Tremens © (2003-02-11 15:52) [9]

uw © (11.02.03 15:46)
Sly © (11.02.03 15:48)

Задача не решена. Из полученных чисел нельзя получить исходный прямоугольник взад :-)

← →
Danilka © (2003-02-11 15:53) [10]

взад не надо. по голове тоже не надо.

← →
uw © (2003-02-11 15:55) [11]

У меня можно - по индексу.

← →
Sly © (2003-02-11 15:57) [12]

> Delirium^.Tremens © (11.02.03 15:52)
А по условию этого не требовалось. Где слова "взаимно однозначно"? :-)

← →
Anatoly Podgoretsky © (2003-02-11 16:01) [13]

В условии не указан закон, если без разницы то можно просто сложить и взять один/два/четыре байта от результата

← →
Delirium^.Tremens © (2003-02-11 16:02) [14]

uw © (11.02.03 15:55)

> У меня можно - по индексу.

Объект TRect - запись и мы уже имеем ссылку на него. Зачем нам ее превращать в другую. Задача состоит в преобразовании TRect в число :-)

Sly © (11.02.03 15:57)

> А по условию этого не требовалось. Где слова "взаимно однозначно"?
> :-)

Ну, ты бы уж тогда хоть площадь или периметр вичислил :-)

← →
Ketmar © (2003-02-11 16:03) [15]

>Delirium^.Tremens © (11.02.03 15:52)
можно. сгенерив всё множество удовлетворяющих прямоугольников, можно быть твёрдо уверенным, что идин из них -- исходный.

Satanas Nobiscum! 11-Feb-XXXVIII A.S.

← →
uw © (2003-02-11 16:24) [16]

Опять навеяно by Delirium^.Tremens.

i := Integer(@rect);

← →
Delirium^.Tremens © (2003-02-11 16:31) [17]

> можно. сгенерив всё множество удовлетворяющих прямоугольников,
> можно быть твёрдо уверенным, что идин из них -- исходный.

А если бы это был ключ от квартиры? А дверь железная, а на окнах решетки, а в холодильнике пиво и кусок скумбрии х/к?

← →
Anatoly Podgoretsky © (2003-02-11 16:33) [18]

Нет по нему это будет иначе.

← →
Palladin © (2003-02-11 16:48) [19]

народ, а чем вам не нравится

function RectToInt64(p_Rect:TRect):int64;
type
TRectCoors=array [0..3] of smallint;
begin
TRectCoors(result)[0]:=p_Rect.Top;
TRectCoors(result)[1]:=p_Rect.Left;
TRectCoors(result)[2]:=p_Rect.Bottom;
TRectCoors(result)[3]:=p_Rect.Right;
end;

function Int64ToRect(p_Value:int64):TRect;
type
TRectCoors=array [0..3] of smallint;
begin
result.Top:=TRectCoors(p_Value)[0];
result.Left:=TRectCoors(p_Value)[1];
result.Bottom:=TRectCoors(p_Value)[2];
result.Right:=TRectCoors(p_Value)[3];
end;

>Delirium^.Tremens © (11.02.03 16:31)
попрошу не менять условия "на лету". иначе любая задача будет нерешаемой.

Satanas Nobiscum! 11-Feb-XXXVIII A.S.

> попрошу не менять условия "на лету". иначе любая задача
> будет нерешаемой.

Условия те же. Переменные названы по-другому.

>Delirium^.Tremens © (11.02.03 17:27)
выточить все возможные варианты ключей. какой-нибудь да подойдёт.

Satanas Nobiscum! 11-Feb-XXXVIII A.S.

> выточить все возможные варианты ключей. какой-нибудь да
> подойдёт.

Пиво выдохнется, а рыба протухнет :-)

>Delirium^.Tremens © (11.02.03 17:50)
на здоровье. в условии не было ограничения на срок работы, вкусность пива и качество рыбы.

Satanas Nobiscum! 11-Feb-XXXVIII A.S.

> на здоровье. в условии не было ограничения на срок работы,
> вкусность пива и качество рыбы.

Нет уж, это Вам на здоровье. Приятного аппетита.
Меня не устраивает метод подбора ключей для проникновения к себе домой. :-)

>Delirium^.Tremens © (11.02.03 18:24)
вы снова ненавязчиво подменили условия. "фу" (ц) Ниро Вульф.

Satanas Nobiscum! 11-Feb-XXXVIII A.S.

> вы снова ненавязчиво подменили условия.

Да нет же. Это Вы навязчиво предлагаете получать искомое из "всего возможного множества". А по каким критериям вы назначите то самое число (см. условие) из полученного множества?
Я же просил описать одним числом, а не множеством.
Да и домой тебе уже пора :-)

Как мне Rect Превести в чиловой параметр Найти похожие ветки