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

Практическая работа №6

Читайте также:
  1. II. УЧЕБНАЯ, НАУЧНАЯ И ОБЩЕСТВЕННАЯ РАБОТА
  2. III. Производственная работа
  3. IV. Работа в режиме быстрой маски
  4. IV. Работа жюри и награждение победителей
  5. V. Работа с рисунками – символами, иллюстрациями
  6. А можно ли так работать с опухолью?
  7. А) рабочего времени, затраченного на механизированные работы к общему отработанному времени на данный объем продукции или работ
  8. Алгоритм расчета и условия выплаты премии работникАМ, работающиМ по программе кредитования малого бизнеса
  9. Аудиторная работа
  10. Б. Работа стали на продольный изгиб
  11. Блок ЛДМ. Назначение , работа схемы при приёме сигнала ТУ на ЛП.
  12. Блок ЦС ДЦ «Нева». Назначение, работа схемы при формировании и передаче сигнала ЦС

Разработка проекта ВАШ ВЕС

Постановка задачи

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


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)