[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 он вообще никак не обрабатывается. Пришлось немножко схитрить.

[Lucky!]

Спасибо тебе!!! Очень меня выручил!!!!

[Lucky!]

слушай всё равно что то не так!!! все значения одинаковые постоянно вылазят! сколько не ищменял что то не получается!!! там вес выдаеться а должен быть остаток!!! если к примеру 190 рост и 100 вес! то изчлишка 10кг! он должен вот это выдавать! я че то помутил нихрена не получаеться!!!

[NIch]

Позволю себе подправить код Страдалецъ...для большей наглядности с коментами...

Код:

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

Проверил вроде работает...

[Lucky!]

Это просто то что надо!!!!!!!! Просто супер!!! Спасибо!!!!!!!!!

[NIch]

За спасибо пожалуйста...

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

Вообще-то про вес или излишки веса в числовом измерении у вас в первоначальном задании ничего нет.
Ну исправили и ладно.

[Lucky!]

да условие не очень составленно!!! а вам парни огрмное спасибо еще раз! не ожидал что кто то поможет!!! мир не без добрых людей!!! в универе опять дали задачу! жесть!!! вот буду думать как её осилить!!!)

[NIch]

Ну думай, думай)))