Разработка проекта СПРАВОЧНИК

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

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

После запуска программы пользователь выбирает с помощью мышки или стрелок название цвета и нажимает клавишу Enter. На экране появляется название цвета на русском языке и код в формате RGB. Программа заканчивает свою работу по нажатию клавиши Выход.

 

Новыми в этой работе являются: · использование компоненты ListBox (список) (вкладка палитры компонентов Standard), · использование встроенного редактора для ввода информации, · алгоритм выбора (оператор Case).

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

	Задание	Подсказка
	Изменить шрифты, цвет экрана и букв.	Возможно, придется в коде программы подкорректировать количество пробелов между названием цвета и его кодом.
	Сделать так, чтобы при установке курсора мыши в поле ListBox1, появлялась подсказка о том, что надо сделать.	Воспользуйтесь свойствами Hint (текст сообщения), Showhint (показывать ли сообщение) объекта ListBox1.
	Внести изменения в программу, чтобы для надписей цвета и формата RGB использовались два отдельных объекта Label.
	Внесите изменения в программу для того, чтобы исходные данные о таблице цветов задавались в массиве.

 

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

Разработка проекта СЛОВАРЬ

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

Разработать программу для составления словаря новых терминов.

Должна иметься возможность внесения в словарь изменений, дополнений или сокращения его. При выборе термина на контрольной панели должны появляться его номер и общее количество слов в словаре.

 

Новыми в этой работе является: · использование комбинированного списка ComboBox (представляющие собой объединение строки ввода и компонента ListBox), · компонента - выключатель CheckBox, · функции MessageDlg. Все эти компоненты находятся на вкладке палитры компонентов Standard.

 

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

	Задание	Подсказка
	Предусмотреть возможность добавления терминов в список не только при щелчке на кнопке Добавить, но и при нажатии клавиши Enter.	Для компоненты ComboBox1 в обработчик события onKeyPress вставить код: if Key = #13 then...
	Добавить две метки и вывести на них общее количество терминов в списке и номер выбранного термина.	Для объекта ComboBox1 в обработчик события Change вставить код, присваивающий заголовку панели значение ComboBox1.Items.Count, а в обработчик события Click- код, присваивающий заголовку другой панели значение ComboBox1.ItemIndex+1, имея ввиду, что первый термин имеет индекс 0, второй - 1 и т.д.
	Обеспечить сохранение всех изменений словаря при закрытии формы.	Для объекта Form в обработчик события CloseQuerry вставить код, сохраняющий измененный список в файле Glostext.txt.
	Отсортировать список.	Свойству Sorted объекта ComboBox1 присвоить значение True.

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

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

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

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

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

 

Новым в этой работе являются: · использование типов переменных - целочисленного и действительного (integer и real); · преобразование строковых данных в числовые и числовые в строковые с помощью функций StrToInt; StrToFloat, IntToStr FloatToStr; Format(); · обработка исключительных ситуаций с помощью оператора Try – except – end; · использование процедуры ShowMessage для вывода сообщения в отдельном окне.

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

	Задание	Подсказка
	Для форматирования и преобразования действительных чисел вместо функции FloatToStr() применить функцию Format(‘ %f ’,[пeременная]). Например, Format(‘%f ‘, [Delta])
	Для форматирования и преобразования применить эту же функцию в таком виде Format(‘Строка %f’,[пeременная]). Например, Format(‘Вам надо похудеть %f',[Delta]).
	Усовершенствовать проект: сделать к программе заголовок; сделать шрифт выводимой реплики отличным от стандартного по виду, цвету и размеру; вставить кнопку выхода из программы; предусмотреть возможность повторного запуска программы (см. проект Диалог).
	Сделайте так, чтобы в начале программы или после повторного запуска объекты Label2 и Edit2 были не видны и появлялись бы на экране только после того, как будет введен вес.	Свойству Visible нужно присвоить False.

5. В случае преобразования строкового типа в числовой тип может возникнуть ситуация появления ошибки, если введены недопустимые символы. Если функции StrToInt или StrToFloat обнаружат ошибку в записи числа, они инициируют так называемую исключительную ситуацию (исключений), которая обычно приводит к аварийному завершению работы программы.

Обработчик исключений строится в виде таких конструкций:

Try
<защищенный блок операторов>
except
<обработка исключений>
end;

Если при выполнении операторов из защищенного блока возникнет исключение, управление будет передано в блок операторов, располагающийся между except и end, но если обработка пройдет без ошибок, блок исключений игнорируется и управление передается оператору, следующему за end.

Пример использования обработки исключений для процедуры Edit1KeyPressed может выглядеть так:

try
FactW:=StrToInt(Edit1.Text);
except
ShowMessage('Ошибочная запись числа: ' + Edit1.Text);
Edit1.SetFocus;
Exit;
end;

В результате выполнения

FactW:=StrToInt(Edit1.Text);

если возникнет исключительная ситуация, то на экране появится окно с текстовым сообщением и кнопкой ОК. После появления окна работа программы приостановится в ожидании реакции пользователя. При вызове стандартной процедуры Exit снова активизируется редактор, в котором обнаружен ошибочный текст.

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

Примечание
При работе в среде Lazarus эксперименты с исключениями плохо прослеживаются, так как при каждом исключении среда перехватывает управление программой. Для отмены этого необходимо в команде Tools/Debugger Options/Language Exceptions убрать флаг у опции Stop on Lazarus Exceptions.

6. Измените алгоритм расчета с учетом Индекса массы тела.

Вес – X,
Рост – Y.
Индекс массы тела – A, где A = X / Y2 (кг/м2)

Результат определяется по таблице:

	Значение индекса	Результат (сообщение, которое надо вывести)
	A < 18	Большой недовес
	18 <= A < 20	Маловато и небезопасно, можно получить истощение
	20 <= A <= 25	Идеально
	26 <=A <=30	Легкий недобор
	30 < A	Срочно нужно худеть

 

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