 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Практическая работа №6
Разработка проекта ВАШ ВЕС
Постановка задачи
Пусть оптимальный вес человека определяется как рост минус 100. Если фактический вес человека меньше оптимального, то будем считать его худым, если больше, то полным.
| Создать программу, с помощью которой можно выполнить: Введя свой рост и фактический вес, и нажав кнопку Расчет, учащийся может определить, худой ты или полный и на сколько надо поправиться или похудеть. |
| Новым в этой работе являются: · использование типов переменных - целочисленного и действительного (integer и real); · преобразование строковых данных в числовые и числовые в строковые с помощью функций StrToInt; StrToFloat, IntToStr FloatToStr; Format(); · обработка исключительных ситуаций с помощью оператора Try – except – end; · использование процедуры ShowMessage для вывода сообщения в отдельном окне. |
План разработки программы, №6
1. Открыть новый проект.
2. Разместить в форме экземпляры компонентов в соответствии с рисунком. В Edit1 будем вводить вес в кг, а в Edit2 – рост в см.
3. Сохранить код программы и проект под именами, например, Unit5.pas и Pr5.dpr.
4. Ввести в раздел VAR переменные для сохранения значений:
фактического веса (faktW),
оптимального веса (optW),
роста (Rost)
разницы между оптимальным весом и фактическим (Delta).
В начале будем считать, что все данные у нас целые числа:
VAR
factW, optW, Rost, Delta: integer;
5. Создать процедуру, реагирующую на щелчок по кнопке Button1, и заполнить ее следующим кодом:
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ Имя события | Значение/Действие |
| Button1 | Events | 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)+' кг.' |
Пояснение
Функция StrToInt преобразует строку в целое число, функция IntToStr выполняет обратное действие – целое число преобразует в строку.
6. Усовершенствовать программу так, чтобы можно было бы вводить любые десятичные величины. Для этого необходимо использовать вещественный тип переменных Real:
VAR
factW, optW, Rost, Delta: real;
Преобразование действительных чисел в строковый тип и строковый тип в действительное число выполняется с помощью функций: FloatToStr и StrToFloat. Внесите соответствующие изменения в обработку события OnClick компонента Button1.
7. Сохранить проект окончательно, запустить и протестировать его.
Поиск по сайту: