вопрос про число

← →
Василий Петрович © (2003-04-13 23:51) [0]

как очень быстренько узнать принадлежит ли число X промежутку например от 0 до 99? то сеть не делая сравнения if x > 0 then...
возможно ли такое?

← →
Songoku © (2003-04-14 00:00) [1]

Ты что с Delphi ваще обращатся не умеешь???

If (x>0)and(x<100) then TramPamPam(...);

← →
default © (2003-04-14 00:13) [2]

или
if x in [0..99] then begin ... end

← →
Юрий Зотов © (2003-04-14 01:15) [3]

Причем второй вариант сработает побыстрее.

← →
Songoku © (2003-04-14 01:18) [4]

> Юрий Зотов © Почему???
Может вобеше лутше сделать вставку Assembler"a!!!

← →
NA © (2003-04-14 01:26) [5]

> Юрий Зотов © (14.04.03 01:15)
> Причем второй вариант сработает побыстрее.

Но будет работать, мягко говоря, не со всеми типами данных ;)

> Songoku © (14.04.03 01:18)
> > Юрий Зотов © Почему???
> Может вобеше лутше сделать вставку Assembler"a!!!

В ассемблерной вставке будет решаться ТОЧНО ТА ЖЕ задача: сравнение на бОльшую величину, прыжок, сравнениа на мЕншьую :)))

← →
Юрий Зотов © (2003-04-14 02:24) [6]

> Songoku © (14.04.03 01:18)

Потому что операция проверки на принадлежность множеству сводится к аналогу AND и одному прыжку. Нужную вставку на Ассемблере компилятор сделает и без нас (хотя сделать ее ручками все равно было бы лучше, это Вы точно сказали).

> NA © (14.04.03 01:26)

> В ассемблерной вставке будет решаться ТОЧНО ТА ЖЕ задача:
> сравнение на бОльшую величину, прыжок, сравнениа на
> мЕншьую :)))

В самом деле? Что ж, посмотрите оба варианта в окне CPU - увидите разный код. А вот что показал тест (в цикле, 100 млн. прогонов на P2-350):
а). вариант со сравнением - около 1800 мс;
б). вариант с множеством - около 1500 мс.
Разница - примерно 20%. Конечно, не в разы, но заметно.

← →
snake1977 (2003-04-14 10:16) [7]

а можно даже так поизвращаться :)
if (x mod 100)=x Then tramtramtram(param);

:))
но без If Then никуда не денешся

← →
Anatoly Podgoretsky © (2003-04-14 10:27) [8]

NA © (14.04.03 01:26)
Существуют варианты для ассеблера, которые обойдутся без всякого сравнения, вообще без сравнения.

← →
Sha © (2003-04-14 12:23) [9]

2Anatoly Podgoretsky © (14.04.03 10:27)

Вот эквивалент на Delphi тех самых вариантов для ассемблера: (x in [0..99])

← →
Sha © (2003-04-14 13:26) [10]

Для проверки на принадлежность большому целочисленному диапазону(например, -100<=x<=1000) можно использовать другой трюк: procedure TForm1.Button1Click(Sender: TObject); var x, x1, dx, y, y1: integer; begin; //Для x, x1, dx, y, y1: integer; // аналог (x>=x1) and (x<x1+dx) // равен cardinal(x-x1)<cardinal(dx), //а если dx - степень двойки, то проверить //попадание в квадрат // (x>=x1) and (x<x1+dx) and (y>=y1) and (y<y1+dx) // можно так: // cardinal((y-y1) or (x-x1))<cardinal(dx) y1:=-1; x1:=-2; dx:=4; for y:=-5 to 5 do for x:=-5 to 5 do if cardinal((y-y1) or (x-x1))<cardinal(dx) then ShowMessage(Format("%d, %d",[y,x])); end;

Sha © (14.04.03 12:23)
А при чем тут IN вопрос про больше/меньше, для IN и так нет сранения.
Это примерно так

function GT(Left, Right: Integer): boolean; asm xchg eax,edx sub eax,edx sbb eax,eax or eax,1 // если нужен чистый boolean end;

и также для остальных реляционных операций, обратить внимание, что не единого сравнения нет.

Еще раз вопрос не про множества, с ними все понятно, и уж совсем не понятно а причем тут присваивание?

>Anatoly Podgoretsky © (14.04.03 13:56)
>вопрос не про множества
если не рассматривать множества, то: cardinal(x-x1)<cardinal(dx)

>и уж совсем не понятно а причем тут присваивание?
чтобы получить "чистый boolean" :)

вопрос про число Найти похожие ветки