не получается ограничение

[KARUSHEV]

Помогите с такой задачей: есть два числа (могут быть отрицательными и положительными), они должны быть в интервале 0,5 или 5

Например: T1= -0,5, T2 = 0 или T1= 1, T2 = 6, если они не соответствуют интервалу, должна выводиться ошибка:

Вот что у меня получилось, но я весь запутался и не могу доделать до конца (AbsT1 и AbsT2 это я заранее сделал модули значений T1 и T2, может и не нужно было делать по модулю?):

begin
if (AbsT2 <> AbsT1 + 5) or (AbsT2 <> AbsT1 + 0.5) then
     begin
     if (AbsT2 <> AbsT1 - 5) or (AbsT2 <> AbsT1 + 0.5) then
     end
else
if (AbsT1 <> AbsT2 + 5) or (AbsT1 <> AbsT2 + 0.5) then
     begin
     if (AbsT1 <> AbsT2 - 5) or (AbsT1 <> AbsT2 + 0.5) then
     end
else
     begin
     ShowMessage('Не правильно заданы значения!');
     exit;
     end;
end;

[XuTpbIu]

так-то интервал 0,5 лежит в интервале длиною в 5.... или у тебя надо чтобы числа отличались ровно либо на 0,5 либо на 5??

[KARUSHEV]

Да числа могут отличаться ровно либо на 0,5 либо на 5, причем T1 должен быть меньшим

[XuTpbIu]

if T1 < T2 then
begin
  If (abs(T2-T1) <> 0.5) or (abs(T2-T1) <> 5) then
    ShowMessage('Неправильно введены данные');
end
else
  ShowMessage('T1 должно быть меньше T2!');

[KARUSHEV]

Так не работает, ведь T1 может быть отрицательным, а T2 может быть положительным, могут быть оба отрицательные или оба положительные

[XuTpbIu]

просто по смотри на числовую ось. ВСЕГДА "расстоянием" между 2 числами будет их разница взятая по модулю

[Stilet]

Так не работает

Как проверял?

[KARUSHEV]

Сообщение от Stilet

Как проверял?

программой, вот выкладываю исходник

[XuTpbIu]

ой.... мой косяк....

	  If not ((abs(T2-T1) = 0.5) or (abs(T2-T1) = 5)) then

вот так там поправь

[Stilet]

На каких исходных данных неверно работает?
И я еще не пойму зачем ты проверяеш T1 < T2?