КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Постановка задачи. Известно, что индекс массы тела определяется как вес (в килограммах) разделить на рост (в метрах) в квадрате
Известно, что индекс массы тела определяется как вес (в килограммах) разделить на рост (в метрах) в квадрате. Если ваш ИМТ£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 |
6. Сохранить проект окончательно, запустить и протестировать его.
Дата добавления: 2015-08-05; просмотров: 76; Мы поможем в написании вашей работы!; Нарушение авторских прав |