Проект в среде Lazarus Рост и вес

</<font color="#00000a">Проект в среде Lazarus «Рост и вес»

Пусть оптимальный вес человека определяется как рост минус 100см. Если фактический вес человека меньше оптимального, то будем считать его худым, если больше, то полным.

Создать программу, выполняющую следующие действия:

Введя рост и фактический вес и нажав кнопку «Расчет», можно определить, худой он или полный и на сколько килограмм надо поправиться или похудеть.

Новым в этой работе являются:

использование типов переменных - целочисленного и действительного (Integer и Real);

преобразование строковых данных в числовой тип и числовые в строковые осуществляется с помощью функций StrToInt, StrToFloat, IntToStr FloatToStr.

План разработки программы

1. Откройте новый проект.

2. Разместите в форме экземпляры компонентов в соответствии с рисунком. В поле Edit1 будем вводить вес в килограммах, а в Edit2 - рост в сантиметрах.

3. Для сохранения результатов расчета введем переменные:

faktW - фактический вес, optW - оптимальный вес, Rost - рост, Delta - разница между оптимальным весом и фактическим. В начале будем считать, что все данные у нас целые числа.

В блоке реализации перед словом implementation разместите описание переменных:

var factW:real;

Rost: real;

OptW: real;

Delta: real;

4. Выполните следующие действия:Объект

Имя свойства/событие

Значение / действие

Label1

Caption

Введите вес

Label2

Caption

Введите рост

Label3

Caption

Чистое поле

Edit1

Text

Чистое поле

OnKeyPress// событие при нажатии клавиши клавиатуры

Form1.ActiveControl := Edit2;// Делает активным объект Edit2, т.е. после окончания ввода фокус перейдет в окно ввода Edit2.

Edit2

Text

Чистое поле

OnKeyPress// событие при нажатии клавиши клавиатуры

Button1.SetFocus;// Перемещает курсор на объект Button1

Button1

OnClick

factW := StrToInt(Edit1.text); Rost := StrToInt(Edit2.Text); OptW :=Rost - 100; Delta := abs(factW - OptW); if OptW = factW then Label3.caption := 'Ваш вес идеален! ' else if OptW > factW then Label3.caption:= 'Вам надо поправиться на ' +IntToStr(Delta)+ ' кг. ' else Label3.caption:= 'Вам надо похудеть на ' +IntToStr(Delta)+ ' кг. '

Комментарий

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

б) После выполнения арифметических действий результат вычислений нужно будет разместить на форме в компоненте Label, которая так же может содержать только информацию строкового типа.

в) Функция StrToInt преобразует строку символов в целое число, функция IntToStr выполняет обратное действие - целое число преобразует в строку символов.

5. Сохраните проект, запустите и протестируйте его.

6. Усовершенствуйте программу так, чтобы можно было вводить любые десятичные величины. Для этого необходимо использовать вещественный тип переменных Real:

VAR factW, optW, Rost, Delta : Real;

Комментарий

Преобразование действительных чисел в строковый тип и строковый тип в действительное число выполняется с помощью функций: FloatToStr и StrToFloat.

Внесите соответствующие изменения в обработку события OnClick компонента Button1.

Задание для самостоятельного выполнения

Усовершенствуйте проект:

сделайте к программе заголовок, оформите рисунком

сделайте шрифт выводимой реплики отличным от стандартного по виду, цвету и размеру,

вставьте кнопку выхода из программы в виде рисунка, курсор при наведении на рисунок-кнопку (выход) должен принимать форму руки.