Как перевести на Паскаль ?

← →
Pas (2007-01-03 07:53) [0]

#define SIGN3( A ) (((A).x<0)?4:0 | ((A).y<0)?2:0 | ((A).z<0)?1:0)

Что вот эта вот черта | обозначает ?

А ещё вот такое:

if ((0x01 & outcode_diff) != 0) if (check_point(p1,p2,( .5-p1.x)/(p2.x-p1.x),0x3e) == INSIDE) return(INSIDE);

& - как переводится в Паскаль? Или аналога нету?

← →
рут (2007-01-03 08:14) [1]

> & - как переводится в Паскаль? Или аналога нету?

и

← →
atruhin © (2007-01-03 08:22) [2]

| - означает or
& - означает and

← →
Александр Иванов © (2007-01-03 08:23) [3]

& - в Паскале бинарное and

← →
Zeqfreed © (2007-01-03 08:25) [4]

function Sign3(const A : TSomestruct) : Integer; begin Result := 0; if (A.x < 0) then Result := 4; if (A.y < 0) then Result := Result or 2; if (A.z < 0) then Result := Result or 1; end; if (($01 and outcode_diff) <> 0) then if (check_point(p1, p2, (0.5-p1.x)/(p2.x-p1.x), $3E) = INSIDE then begin Result := INSIDE; Exit; end;

Вроде так. Может первую ф-цию можно как-то оптимизировать, знать бы что она ещё делает.

← →
ANTPro © (2007-01-03 08:25) [5]

& - and
| - or ?

← →
boriskb © (2007-01-03 08:27) [6]

> |
> &

Это общепринятые обазначения в мат.логике.
А уже оттуда в с перешло.

← →
ANTPro © (2007-01-03 08:32) [7]

Пачти успел :)

← →
vidiv © (2007-01-03 09:20) [8]

> Это общепринятые обазначения в мат.логике.
> А уже оттуда в с перешло.

Разве? а я думал в матлогике /\ \/

← →
boriskb © (2007-01-03 09:35) [9]

> Разве? а я думал в матлогике /\ \/

Я разве сказал "единственно признаными?
Уверяю тебя, если ты в диалоге с логиком будешь применять знаки | & тебя поймут.
Тоже касается и знаков в твоем посте.

← →
Sha © (2007-01-03 12:19) [10]

> Zeqfreed © (03.01.07 08:25) [4]
> Может первую ф-цию можно как-то оптимизировать...

function Sign3(const A : TSomestruct) : Integer; begin Result := Ord (A.x < 0); Result := Result + Result + Ord(A.y < 0); Result := Result + Result + Ord(A.z < 0); end;

← →
Pas (2007-01-04 02:04) [11]

> Zeqfreed © (03.01.07 08:25) [4]
>
> function Sign3(const A : TSomestruct) : Integer;
> begin
> Result := 0;
> if (A.x < 0) then Result := 4;
> if (A.y < 0) then Result := Result or 2;
> if (A.z < 0) then Result := Result or 1;
> end;

Значит "|" - это просто разделитель строк, как ";" ?

Если "&" - and, то что тогда "&&" ?
И "||" ?

← →
Tirael © (2007-01-04 02:23) [12]

> Значит "|" - это просто разделитель строк, как ";" ?Если
> "&" - and, то что тогда "&&" ?И "||" ?

| и & это побитовые операторы
а || и && логические операторы

подробнее:

& bitwise AND; compares two bits and generates a 1 result if both bits are 1, otherwise it returns 0. | bitwise inclusive OR; compares two bits and generates a 1 result if either or both bits are 1, otherwise it returns 0.

&& logical AND; returns true only if both expressions evaluate to be nonzero, otherwise returns false. If the first expression evaluates to false, the second expression is not evaluated. || logical OR; returns true if either of the expressions evaluate to be nonzero, otherwise returns false. If the first expression evaluates to true, the second expression is not evaluated.

← →
Pas (2007-01-04 04:21) [13]

> | и & это побитовые операторы
> а || и && логические операторы

Вопрос был как перевести в Паскаль.

> Значит "|" - это просто разделитель строк, как ";" ?

нет. Это битовое "или"

> Вопрос был как перевести в Паскаль.

Тебе уже написали

← →
Pas (2007-01-05 02:52) [15]

Удалено модератором
Примечание: MAT, три дня RO

> Pas (05.01.07 02:52) [15]
> Тогда где это "или" в переводе?
>
> > Тебе уже написали
>
> Не вы..., а?

Дебил, да?
Читать умеешь? or в [2] и [4] видишь?

Pas, может тебе лучше бросить программирование? Оно требует нервов, а у тебя с ними совсем не лады, как видно

Как перевести на Паскаль ? Найти похожие ветки