Question

Помогите пожалуйста написать программу здоровья для 15-30 летнего человека на языке Паскаль(информатика 8 класс). Спасибо

Answer 1

Если помогла чем то то только так

Answer 2

Могу только так помочь.

program Zadachka;

var

a:integer;

begin

writeln('Введите возвраст');

readln(a);

case a of

0..5: writeln('Дошкольник');

6..18: writeln ('Ученик');

19..59: writeln('Работник');

60..120:writeln ('Пенсионер');

else writeln('Вы ввели неверные данные');

end;

end.

Answer 3

Конечно, я могу помочь вам написать программу для оценки здоровья 15-30-летнего человека на языке Паскаль. В этой программе мы попросим пользователя ввести информацию о своем здоровье и выведем общую оценку. Пожалуйста, вот пример программы:

pascalCopy code
program HealthAssessment;

var
  age: integer;
  height, weight: real;
  bmi: real;
  pulseRate: integer;
  isSmoker, isDrinker: boolean;
  healthRating: string;

begin
  writeln('Добро пожаловать в программу оценки здоровья!');
  
  // Ввод информации
  writeln('Пожалуйста, введите ваш возраст (от 15 до 30): ');
  readln(age);
  
  writeln('Введите ваш рост в метрах: ');
  readln(height);
  
  writeln('Введите ваш вес в килограммах: ');
  readln(weight);
  
  writeln('Введите ваш пульс в ударах в минуту: ');
  readln(pulseRate);
  
  writeln('Вы курите? (Введите "1" - да, "0" - нет): ');
  readln(isSmoker);
  
  writeln('Вы употребляете алкоголь? (Введите "1" - да, "0" - нет): ');
  readln(isDrinker);
  
  // Рассчет индекса массы тела (BMI)
  bmi := weight / (height * height);
  
  // Оценка здоровья
  if (age >= 15) and (age <= 30) then
  begin
    if (bmi >= 18.5) and (bmi <= 24.9) and (pulseRate >= 60) and (pulseRate <= 100) and (not isSmoker) and (not isDrinker) then
      healthRating := 'Отличное'
    else if (bmi >= 17) and (bmi <= 29.9) and (pulseRate >= 50) and (pulseRate <= 120) then
      healthRating := 'Хорошее'
    else
      healthRating := 'Плохое';
  end
  else
    healthRating := 'Некорректный возраст';
  
  // Вывод результата
  writeln;
  writeln('Результат оценки здоровья:');
  writeln('---------------------------');
  writeln('Индекс массы тела (BMI): ', bmi:0:2);
  writeln('Пульс: ', pulseRate);
  writeln('Курение: ', isSmoker);
  writeln('Употребление алкоголя: ', isDrinker);
  writeln('Оценка здоровья: ', healthRating);
  writeln('---------------------------');
  
end.

Примечание:

1. Программа предполагает, что пользователь будет вводить данные корректно.
2. В этом примере оценка здоровья основана на условиях ИМТ (индекс массы тела), пульсовой частоты, курении и употреблении алкоголя. В реальных условиях медицинские оценки могут быть более сложными и включать больше параметров.
3. Пользователь должен вводить 1 для ответа "да" на вопросы о курении и употреблении алкоголя, и 0 для ответа "нет".