Студопедия — Задание №2. Известно, что индекс массы тела определяется как вес (в килограммах) разделить на рост (в метрах) в квадрате
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Задание №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  

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

 







Дата добавления: 2015-10-01; просмотров: 368. Нарушение авторских прав; Мы поможем в написании вашей работы!



Шрифт зодчего Шрифт зодчего состоит из прописных (заглавных), строчных букв и цифр...

Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...

Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Трамадол (Маброн, Плазадол, Трамал, Трамалин) Групповая принадлежность · Наркотический анальгетик со смешанным механизмом действия, агонист опиоидных рецепторов...

Мелоксикам (Мовалис) Групповая принадлежность · Нестероидное противовоспалительное средство, преимущественно селективный обратимый ингибитор циклооксигеназы (ЦОГ-2)...

Менадиона натрия бисульфит (Викасол) Групповая принадлежность •Синтетический аналог витамина K, жирорастворимый, коагулянт...

Тема: Изучение фенотипов местных сортов растений Цель: расширить знания о задачах современной селекции. Оборудование:пакетики семян различных сортов томатов...

Тема: Составление цепи питания Цель: расширить знания о биотических факторах среды. Оборудование:гербарные растения...

В эволюции растений и животных. Цель: выявить ароморфозы и идиоадаптации у растений Цель: выявить ароморфозы и идиоадаптации у растений. Оборудование: гербарные растения, чучела хордовых (рыб, земноводных, птиц, пресмыкающихся, млекопитающих), коллекции насекомых, влажные препараты паразитических червей, мох, хвощ, папоротник...

Studopedia.info - Студопедия - 2014-2024 год . (0.01 сек.) русская версия | украинская версия