Разработка проекта «Индекс массы тела»
1. Постановка задачи
Известно, что индекс массы телаопределяется как вес (в килограммах) разделить на рост (в метрах) в квадрате. Если ваш ИМТ18,5, то у вас пониженный вес, если 18,6ИМТ24,9, то ваш вес в норме, если 25ИМТ29,9, то у вас избыточный вес, если ИМТ30, то у вас ожирение.
Создать программу, с помощью которой можно выполнить:
Введя свой рост и вес, и нажав кнопкуВычислить, можно определить,индекс массы тела(см. рис.22.7).
Рисунок 22.7
Пояснения:Новым в этой работе являются
Типы переменных.Целочисленный и Действительный типы переменных:integer и real.
Преобразование строковых данных в числовые и числовые в строковые: функции StrToInt; StrToFloat; IntToStr; FloatToStr.
2. План разработки программы
Открыть новый проект.
Разместить в форме компоненты в соответствии с рис.22.8. В Edit1будем вводить рост в сантиметрах, а вEdit2– вес в килограммах.
Рисунок 22.8
Сохранить проект в отдельной папке под именем, например, Pr2.pasиProject2.dpr
Введите в раздел Varпеременные для сохранения значений: Веса (Ves), Роста (Rost), Индекса массы тела (IMT)
Rost,Ves:integer;
IMT:real;
Выполните следующие действия:
|
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действие |
|
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 |
Сохранить проект окончательно, запустить и протестировать его.