case

[Аватар]

var x: Double;
    b: Boolean;
...
  x:=чего-то
...
  b:=(x>=-3) and (x<=3);
  case b of
  True: begin
    end;
  False: begin
      b:=x>=5;
      case b of
      True: begin end;
      False: begin end;
      end;
    end;
  end;

Mad_Cat, у вас скорость набора выше

[Chugun]

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

Нужен case?
Ловите

case (x>=-3) and (x<=3) of 
true: ;{1 участок}
false: begin
Case (x>=5) of
true:;{2 участок}
false:;{все остальное}
end;
end;
end;

ваш вариант не прокатит имхо( -3.07 вернет вам -3 а там уже другой участок)

спасибо, Уважаемый!

[Вадим Мошев]

Аватар

5..214748364: begin end;

Не надо писать bagin end;
достаточно просто поставить точку с запятой и всё. Это так называемый пустой оператор. Вот аналогия:

If condition then ;

здесь лишь только проверяется Condition, но ничего не происходит, так как ветка then пуста.

[Аватар]

Не надо писать bagin end;

Да я его писал имея ввиду, что туда что-то вставляться будет