Задание №2. Известно, что индекс массы тела определяется как вес (в килограммах) разделить на рост (в метрах) в квадрате

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

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

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

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

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

Рисунок 22.7

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

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

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

 

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

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

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

Рисунок 22.8

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

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

Rost,Ves:integer;

IMT:real;

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

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
Label1	Параметры (Properties)	Autosize	False
Height
Width
WordWrap	True
Caption	В наши дни один из самых популярных показателей – индекс массы тела (ИМТ), связывающий вес и рост человека. Знать его очень полезно, поскольку по нему судят о вашем здоровье многие врачи и даже страховые компании. Для определения вашего ИМТ введите свои показатели:
Alignment	taCenter
Font	Шрифт – TimesNewRoman, начертание – жирный, размер – 9, цвет – темно-синий
Left
Top
Label2	Параметры (Properties)	Caption	Ваш рост
Left
Top
Autosize	False
Height
Width
Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – сиреневый
Edit1	Параметры (Properties)	Text	Удалить
Left
Top
Autosize	False
Height
Width
Label4	Параметры (Properties)	Caption	см
Left
Top
Autosize	False
Height
Width
Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – сиреневый
Label3	Параметры (Properties)	Caption	Ваш вес
Left
Top
Autosize	False
Height
Width
Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – сиреневый
Edit2	Параметры (Properties)	Text	Удалить
Left
Top
Autosize	False
Height
Width
Label5	Параметры (Properties)	Caption	кг
Left
Top
Autosize	False
Height
Width
Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – сиреневый
Label6	Параметры (Properties)	Caption	Удалить
Left
Top
Autosize	False
Height
Width
Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – малиновый
Label7	Параметры (Properties)	Caption	Удалить
Left
Top
Autosize	False
Height
Width
Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – зеленый
Label8	Параметры (Properties)	Caption	Весовая категория
Left
Top
Autosize	False
Height
Width
Font	Шрифт – MonotypeCorsiva, начертание – жирный-курсив, размер – 12, цвет – зеленый
Button1	Параметры (Properties)	Caption	Выход
Height
Width
События (Events)	OnClick	Close;
BitBtn2	Параметры (Properties)	Kind	bkYes
Caption	Вычислить
Height
Width
События (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
Width

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