Разработка проекта «Индекс массы тела»
Постановка задачи
Известно, что индекс массы тела определяется как вес (в килограммах) разделить на рост (в метрах) в квадрате. Если ваш ИМТ£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
|
|
Сохранить проект окончательно, запустить и протестировать его.
