Страница 1 из 1

Подскажите с условием

Добавлено: 02 апр 2009, 22:55
K_Sergey
Подскажите с условием, мне нужно чтобы если T1 и T2 (каждый) меньше единицы, то выполнялось бы...

Код: Выделить всё

T1, T2: real;
  if Abs (T1) < 1
  then
  begin
T1:= T1*10;
T2:= T2*10;
  end;

  if Abs (T2) < 1
  then
  begin
T1:= T1*10;
T2:= T2*10;
  end;
А нужно что-то такое: if Abs (T1)<1 and Abs (T2)<1
then....
Так у меня выдает ошибку пробовал еще по другому не получается...

Re: Подскажите с условием

Добавлено: 02 апр 2009, 23:28
Naeel Maqsudov

Код: Выделить всё

if (abs(T1)<1) and (abs(T2)<1) then begin
   ...
end;
NOT, AND и OR имеют более высокий приоритет => нужны скобки

Re: Подскажите с условием

Добавлено: 03 апр 2009, 07:15
K_Sergey
Большое спасибо!