№2 Тапсырма. Практикалық жұмыс «Дене салмағының индексі » жобасын құру.

Тапсырманың қойылымы:

Дене салмағының индексі, бізге белгілі килограммен алынған салмақты мертмен алынған бойының екі есесіне бөліп анықтаймыз. Егер сіздің ДСИ18,5 болса, онда салмағыңыз төмен, ал егер 18,6 ДСИ 24,9болса, онда қалыпты, егер 25 ДСИ 29,9 болса, онда артық салмақ , яғни ДСИ  30, болса май жиналу болады.

К елесідегі әрекеттерді орындай отырып, программа құру. Өз бойыңды және салмағыңды енгізіп, «Вычислить» кнокасына басу арқылы Дене салмағының индексін анықтаймыз.

Сурет 22.7

Түсіндірме: Бұл жаңа жобада:

• Айнымалылар типі .Бүтін және Нақты айнымалылар типі: integer и real.

• Жолдық берілгендерді сандыққа және сандық берілгендерді жолдыққа айналдыру функциялары: StrToInt; StrToFloat; IntToStr; FloatToStr.

2. Программаны орындау жоспары

1. Жаңа жоба ашу .

2. Формаға 2 суреттегідей компоненттерді орналастырып, Edit1 компонентіне сантиметрмен берілген бойдың өлшемін, ал Edit2 – килограммен салмақты енгіземіз.

Сурет 22.8

1. Жобаны жеке папкада мысалы, Pr1.pas немесе Project1.dpr деген аттпен сақтау керек.

2. Var бөлімінде айнымалылардың мәндерін сақтау үшін: Самағы (Ves), Бойы (Rost), Дене салмағының индексі (IMT) енгізіледі.

Var

Rost,Ves:integer;

IMT:real;

3. Келесі әрекеттер орындалады:

   Белгіленетін компонент	Объектілер инспекторы терезесі	Қасиеттердің аттары	Әрекеттер
   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:='Ожирение';
   BitBtn1	Параметры (Properties)	Kind	bkRetry
   		Caption	Повторить
   		Height	30
   		Width	100
   	События (Events)	OnClick	Edit1.Text:=' '; Edit2.Text:=' '; Label6.Caption:=' '; Label7.Caption:=' ';
   Form1	Параметры (Properties)	Caption	Индекс массы тела
   		Height	350
   		Width	400

4. Жобаны соңғы рет сақтап, программаны тексеруге жіберу.