3. Задание

1. Предусмотреть возможность добавления терминов в список не только при нажатии кнопки Добавить, но и при нажатии клавиши Enter.

Подсказка. Для компоненты ComboBox1 в обработчик события onKeyPress вставить код: if Key = #13 then ...

2. Добавить две метки и вывести на них общее количество терминов в списке и номер выбранного термина.

Подсказка. Для компоненты ComboBox1 в обработчик события Change вставить код, присваивающий заголовку панели значение ComboBox1.Items.Count, а в обработчик события Click - код, присваивающий заголовку другой панели значение ComboBox1.ItemIndex+1, имея ввиду, что первый термин имеет индекс 0, второй - 1 и т.д.

3. Сохранять все изменения словаря при закрытии формы.

Подсказка. Для компонента Form в обработчик события CloseQuerry вставить код, сохраняющий измененный список в файле ‘glostext.txt’.

4. Сделать список отсортированным.

Подсказка. Свойству Sorted компонента ComboBox1 присвоить значение True.

Практическая работа № 6 "Разработка проекта Ваш вес"

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

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

Создать программу, с помощью которой можно выполнить: Введя свой рост и фактический вес, и нажав кнопку Расчет, можно определить, худой ты или полный и на сколько надо поправиться или похудеть (см. рисунок 12)

Рисунок 12

Пояснения Новым в этой работе являются

• Типы переменных. Целочисленный и Действительный типы переменных: integer и real.

• Преобразование строковых данных в числовые и числовые в строковые: функции StrToInt; StrToFloat, IntToStr FloatToStr ; Format();

• Обработка исключительных ситуаций. Try – except – end;

• Процедура ShowMessage для вывода сообщения в отдельном окне.

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

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

2. Разместить в форме компоненты в соответствии с рисунком 13. В Edit1 будем вводить вес в кг, а в Edit2 – рост в см.

Рисунок 13

3. Сохранить проект под именем, например, Pr5.pas и Pr5.dpr

4. Введите в раздел VAR переменные для сохранения значений:

фактического веса (faktW),

оптимального веса (optW),

роста (Rost)

разницы между оптимальным весом и фактическим (Delta).

В начале будем считать, что все данные у нас целые числа:

VAR

factW, optW, Rost, Delta : integer;

5. Создайте процедуру, реагирующую на щелчок по кнопке Button1, и заполните ее следующим кодом:

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
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)+' кг.'