Разработка проекта «Индекс массы тела»

1. Постановка задачи

Известно, что индекс массы тела определяется как вес (в килограммах) разделить на рост (в метрах) в квадрате. Если ваш ИМТ18,5, то у вас пониженный вес, если 18,6ИМТ24,9, то ваш вес в норме, если 25ИМТ29,9, то у вас избыточный вес, если ИМТ30, то у вас ожирение.

Создать программу, с помощью которой можно выполнить:

Введя свой рост и вес, и нажав кнопку Вычислить, можно определить, индекс массы тела (см. рис.22.7).

Рисунок 22.7

Пояснения: Новым в этой работе являются

• Типы переменных. Целочисленный и Действительный типы переменных: integer и real.

• Преобразование строковых данных в числовые и числовые в строковые: функции StrToInt; StrToFloat; IntToStr; FloatToStr.

2. План разработки программы

1. Открыть новый проект.

2. Разместить в форме компоненты в соответствии с рис.22.8. В Edit1 будем вводить рост в сантиметрах, а в Edit2 – вес в килограммах.

Рисунок 22.8

3. Сохранить проект в отдельной папке под именем, например, Pr2.pas и Project2.dpr

4. Введите в раздел Var переменные для сохранения значений: Веса (Ves), Роста (Rost), Индекса массы тела (IMT)

Rost,Ves:integer;

IMT:real;

3. Выполните следующие действия:

   Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
   Label1	Параметры (Properties)	Autosize	False
   		Height	100
   		Width	350
   		WordWrap	True
   		Caption	В наши дни один из самых популярных показателей – индекс массы тела (ИМТ), связывающий вес и рост человека. Знать его очень полезно, поскольку по нему судят о вашем здоровье многие врачи и даже страховые компании. Для определения вашего ИМТ введите свои показатели:
   		Alignment	taCenter
   		Font	Шрифт – TimesNewRoman, начертание – жирный, размер – 9, цвет – темно-синий
   		Left	20
   		Top	20
   Label2	Параметры (Properties)	Caption	Ваш рост
   		Left	20
   		Top	140
   		Autosize	False
   		Height	20
   		Width	70
   		Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – сиреневый
   Edit1	Параметры (Properties)	Text	Удалить
   		Left	100
   		Top	140
   		Autosize	False
   		Height	20
   		Width	50
   Label4	Параметры (Properties)	Caption	см
   		Left	160
   		Top	140
   		Autosize	False
   		Height	20
   		Width	25
   		Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – сиреневый
   Label3	Параметры (Properties)	Caption	Ваш вес
   		Left	20
   		Top	180
   		Autosize	False
   		Height	20
   		Width	70
   		Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – сиреневый
   Edit2	Параметры (Properties)	Text	Удалить
   		Left	100
   		Top	180
   		Autosize	False
   		Height	20
   		Width	50
   Label5	Параметры (Properties)	Caption	кг
   		Left	160
   		Top	180
   		Autosize	False
   		Height	20
   		Width	25
   		Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – сиреневый
   Label6	Параметры (Properties)	Caption	Удалить
   		Left	20
   		Top	220
   		Autosize	False
   		Height	30
   		Width	150
   		Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – малиновый
   Label7	Параметры (Properties)	Caption	Удалить
   		Left	220
   		Top	220
   		Autosize	False
   		Height	30
   		Width	150
   		Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – зеленый
   Label8	Параметры (Properties)	Caption	Весовая категория
   		Left	220
   		Top	180
   		Autosize	False
   		Height	20
   		Width	150
   		Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – зеленый
   Button1	Параметры (Properties)	Caption	Выход
   		Height	30
   		Width	100
   	События (Events)	OnClick	Close;
   BitBtn2	Параметры (Properties)	Kind	bkYes
   		Caption	Вычислить
   		Height	30
   		Width	100
   	События (Events)	OnClick	Rost:=StrToInt(Edit1.Text); Ves:=StrToInt(Edit2.Text); IMT:=Ves/((Rost/100)*(Rost/100)); Label6.Caption:='Ваш ИМТ = '+FloatToStr(IMT); If IMT<=18.5 Then Label7.Caption:='Пониженный вес'; If (IMT>=18.6)and(IMT<=24.9) Then Label7.Caption:='Норма'; If (IMT>=25.0)and(IMT<=29.9) Then Label7.Caption:='Избыточный вес'; If IMT>=30 Then Label7.Caption:='Ожирение';
   Form1	Параметры (Properties)	Caption	Индекс массы тела
   		Height	350
   		Width	400

4. Сохранить проект окончательно, запустить и протестировать его.