Вниз
Скачать: CL | DM;

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

← →
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]


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


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


← →
Celades ©   (2007-01-04 12:32) [14]


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

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

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

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


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

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


← →
KSergey ©   (2007-01-05 08:29) [16]

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

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


← →
ors_archangel ©   (2007-01-05 13:45) [17]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: -0.971 c
15-1167835238
oldman
2007-01-03 17:40
2007.01.28
Новогодний опрос.


2-1168273653
Dyakon_Frost
2007-01-08 19:27
2007.01.28
Опять работа со строками


2-1168480082
brother
2007-01-11 04:48
2007.01.28
никогда не задумывался о...


2-1168305883
Yuz
2007-01-09 04:24
2007.01.28
Помогите начинаещему)


15-1167861371
Palladin
2007-01-04 00:56
2007.01.28
Орешник




   Наверх