Написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными выдаёт рекомендации...

Для того чтобы программа выдавала рекомендацию на сколько нужно поправиться или похудеть, можно добавить дополнительные условия, которые будут сравнивать разницу между текущим весом и оптимальным весом. Например:

Program Zadacha1;
Var ves, rost, optVes, raznica:integer;
Begin
write('введите массу тела');
read(ves);
write('введите рост в см');
read(rost);
optVes:=rost-100;
raznica := abs(ves - optVes);

if ves > optVes then write('вам необходимо похудеть на ', raznica, ' кг');
if ves < optVes then write('вам необходимо поправиться на ', raznica, ' кг');
if ves = optVes then write ('ваш вес оптимальный');
End.

В данном случае добавлено вычисление разницы между текущим весом и оптимальным весом, а затем выводится сообщение с указанием на сколько нужно изменить вес.

Давайте доработаем вашу программу, чтобы она не только сообщала пользователю, нужно ли ему похудеть или поправиться, но и указывала конкретное количество килограммов, на которое следует изменить вес.

Вот обновленная версия программы:

Program Zadacha1;
Var
  ves, rost, optVes, raznica: integer;
Begin
  write('Введите массу тела: ');
  readln(ves);
  write('Введите рост в см: ');
  readln(rost);
  
  optVes := rost - 100;
  raznica := ves - optVes;
  
  if raznica > 0 then
    writeln('Вам необходимо похудеть на ', raznica, ' кг.')
  else if raznica < 0 then
    writeln('Вам необходимо поправиться на ', -raznica, ' кг.')
  else
    writeln('Ваш вес оптимальный.');
End.

Объяснение:

1. Переменные:

   • ves — текущий вес пользователя.
   • rost — рост пользователя.
   • optVes — оптимальный вес, рассчитанный по формуле "рост минус 100".
   • raznica — разница между текущим весом и оптимальным весом.

2. Логика программы:

   • Программа сначала запрашивает у пользователя текущий вес и рост.
   • Затем рассчитывает оптимальный вес по формуле: optVes := rost - 100.
   • Вычисляет разницу между текущим весом и оптимальным: raznica := ves - optVes.
   • Использует конструкцию if-else для определения, нужно ли пользователю похудеть, поправиться или его вес уже оптимален:
     • Если raznica > 0, значит, текущий вес больше оптимального, и пользователю нужно похудеть на raznica килограммов.
     • Если raznica < 0, значит, текущий вес меньше оптимального, и пользователю нужно поправиться на -raznica килограммов (используем минус, чтобы получить положительное значение).
     • Если raznica = 0, вес пользователя оптимален.

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

Для того чтобы программа давала рекомендации о том, на сколько необходимо поправиться или похудеть пользователю, можно добавить в программу дополнительные проверки. Например, можно вычислить разницу между текущим весом пользователя и оптимальным весом, а затем дать рекомендацию на основе этой разницы.

К примеру, можно добавить следующий блок кода после определения переменной optVes:

diff:=abs(ves-optVes); if diff>5 then write('вам необходимо изменить свой вес на ', diff, ' кг'); if diff