case

[Chugun]

Уважаемые формумчане, подскажите пож-та давно не писавшему и забывшему Delphi.

Как в case объявить условие x>=5?
как поставить конкретные значения - знаю, как поставить диапазон - знаю...
а вот как сделать "от числа до бесконечности" - не знаю и/или забыл
может ли вообще case обрабатывать подобного рода запросы или надо ставить границу типа данных, с которым имею дело? (т.е. 5..max)

для тех, кто будет искать (возможно):
конкретное число:

case x of
1: begin ... end;
2: begin ... end;
3: begin ... end;
...
else ... ;
end;

диапазон:

case x of
1..3: begin ... end;
6..10: begin ... end;
...
else ... ;
end;

[Defender42]

через условие if ?

[Chugun]

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

через условие if ?

дело в том, что по условию данной мне задачи,

 if ... then ... else ...

использовать запрещено

НЕОБХОДИМО использовать ТОЛЬКО

 case ... of ... else ...

задачка абсолютно тривиальная, является лаб. работой №2 на первом курсе универа на гуманитарном факультете (попросили оказать помощь)

т.е. решение должно быть абсолютно протым (следуя логике)
но как описать его так, чтобы компилятор не ругался - я не знаю

через if'ы всё делается проще простого, но применять их нельзя

[xoodoo]

или надо ставить границу типа данных, с которым имею дело?

Именно так и никак иначе.

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

Ну, можно попробовать так, только это немного (ИМХО) быдокодом пахнуть будет:

case x of
1..4: ; // Здесь именно точка с запятой, мы ничего тупо не делаем
else // здесь делаем то, что требуется в случае выполнения x>=5

Пойдёт?

[Chugun]

Сообщение от Вадим Мошев

Ну, можно попробовать так, только это немного (ИМХО) быдокодом пахнуть будет:

case x of
1..4: ; // Здесь именно точка с запятой, мы ничего тупо не делаем
else // здесь делаем то, что требуется в случае выполнения x>=5

Пойдёт?

увы
есть 3 формулы, каждая из который выполняется в зависимости от условий:
1) -3<=x<=3
2) x>=5
3) всё остальное
первое и последнее описать в case не представляет трудностей
вопрос со вторым
x: double

[Mad_Cat]

Пойдёт?

неа
при x=-1 чего буит делать программа???
при

х:double;

case один черт не прокатит

[Аватар]

Если x Integer, то его MAX=214748364. От этого плясать. Для других целочисленных типов другие границы

  case i of
  -3..3: begin end;
  5..214748364: begin end;
  else begin end;
  end;

[Chugun]

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

неа
при x=-1 чего буит делать программа???
при

х:double;

case один черт не прокатит

Вы чертовски правы.... к моему сожалению
дабл он "не хавает"
буду думать в другом направлении...

procedure TForm1.Button1Click(Sender: TObject);
var x, y: double; i: integer;
begin
x:=strtofloat(edit1.text);
i:=trunc(x);
case i of
-3 .. 3: y:=1.0;
5 .. 214748364: y:=2.0;
else y:=3.0;
end;

label1.Caption:=floattostr(y);

end;

определённо попахивает быдло-кодом...
но для 1 курса гуманитария, думаю, хватит чтобы поставили "зачет"

[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 а там уже другой участок)