[Lucky!]

Помогите пожалуйста решить задачу!!!

Произвести анализ веса при расчете оптимального равного росту минус 100. Выести сообщения следующего характера.Если разница составляет

1.(больше -15) кг- "Кто же вас так довел"
2.-(15-10) кг-"Вас не мешало бы поправиться"
3.(=0) -"Вы стройны как газель"
4.(0-15)-"Вам надо заниматься гимнастикой"
5.(16-25)-"Вам надо меньше кушать"
6.(>25)-"С этим надо что то делать"

Помогите плз!!! Просто с CASE OF не очень понимаю!!! пытался делать но не получалось!!! А надо блин именно через CASE Заранее Спасибо!!!

[AND_REY]

Можно использовать if.
Вот например для 4-ого условия:

procedure TForm1.Button1Click(Sender: TObject);
Var
U: Integer;
begin
U:= 10;
if (0 < U)AND(U < 15) Then // (0 < U < 15);
MessageBox(Application.Handle,
'Вам надо заниматься гимнастикой.',
'Сообщение.',
MB_OK + MB_ICONINFORMATION);
end;

[Lucky!]

Большое спасибо!!!! Огромное!!! Просто мне надо через CASE ОБЯЗАТЕЛЬНО ПРИЧЕМ)!!!! Но все равно Спасибо!

[Страдалецъ]

Тогда наверное так, только я немножко подправил условие 2 что-бы дырки небыло.

Код:

Var
  Msg: String;
  Weight,Height: Integer;
begin
 Height := 90+Random(70);
 Weight := Height-100;
 case Weight
 of -90..-16: Msg := 'Кто же вас так довел';
     -15..-1: Msg := 'Вам не мешало бы поправиться';
           0: Msg := 'Вы стройны как газель';
       1..15: Msg := 'Вам надо заниматься гимнастикой';
      16..25: Msg := 'Вам надо меньше кушать';
         else Msg := 'С этим надо что то делать';
 end;
 ShowMessage(Format('Ваш вес %d, Совет - %s',[Weight,Msg]));
end;

[Lucky!]

Спасибо большое!!! вот почти правильно! там вообще надо вводить вес и рост! и от роста должно отниматься 100 и сравниваться с весом ну и если к примеру рост 180 и вес 100!! то 20 кг лишнего веса!!! вот такая штука! а ты как то сделал я немного не понял!!!

[Страдалецъ]

Что-бы не заморачиваться с вводом у меня случайным образом генерится значение роста в диапазоне от 90 до 169:

Код:

 Height := 90+Random(70);

Ну а дальше по условию,за исключением вот этого:

2.-(15-10) кг-"Вас не мешало бы поправиться"

Если сделать именно так, то если вес между -9..-1 он вообще никак не обрабатывается. Пришлось немножко схитрить.