Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Проект в среде Lazarus "Рост и вес"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

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

библиотека
материалов


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

hello_html_79ff9b12.png

















Пусть оптимальный вес человека определяется как рост минус 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.

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

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

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

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

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


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 12.10.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров153
Номер материала ДБ-256782
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх