Обработка исключений в Delphi 7

Задание №1
Ввести значения четырех чисел х1, х2, х3, х4 с клавиатуры. Вычислить значения переменных у1, у2, у3, у4, Z (если это возможно) при условии, что заданы выражения, определяющие значения результирующих переменных.
Написать собственные обработчики исключений, возникающих при вводе значений переменных х1, х2, х3, х4 с клавиатуры или при преобразовании их значений из строкового типа данных в числовой. Значения у1 – у4, Z вывести на экран (открыть)
Задание №2
Разработать программу для вычисления арифметического выражения и вывода полученного результата с учетом обработки исключений. Исходные данные ввести с клавиатуры.

Порядок выполнения заданий:

1. Запустить Delphi (Пуск – Все программы – Borland Delphi 7 – Delphi 7).

2. Указать заголовок формы (свойству Caption установить значение «Лабораторная 3 (задание 1,2)»). Свойству Position формы Form1 установить значение, при котором форма будет открываться в центральной части экрана при запуске приложения. Изменить размеры формы.

3. На главной форме Form1 поместить компонент «PageControl» (свойству Align установить значение alClient – компонент займет всю клиентскую часть формы). Для этого компонента создать две закладки с названиями:«Задание 1» и «Задание2» (создавать закладки можно через контекстное меню компонента выбрав команду New Page).

4. Перейти на закладку «Задание 1» и разместить на ней все необходимые компоненты для решения задачи: Edit1, Edit2, Edit3, Edit4 – для ввода исходных данных и Edit5, Edit6, Edit7, Edit8 – для вывода результатов; для каждого компонента Edit поместить комментарий (Label). Поместить на форме компонент Button1.

5. Для компонента Button1 создать событие для вычисления значений y1, y2, y3 и y4. В процедуре для вычисления этих значений предусмотреть обработку исключительных ситуаций, которые могут возникнуть при выполнении программы – конструкции try … except, которая состоит из двух блоков (если в инструкциях блока try возникает исключение, то управление передается первой инструкции блока except, а если же исключение не возникло, то инструкции блока except не выполняются).

6. Перейти на закладку «Задание 2» и разместить на ней компоненты Edit9, Edit10, Edit11 и соответствующий каждому компоненту комментарий (метка – label), а также компонент Button2.

7. Для кнопки Button2 сформировать процедуру для вычисления значения выражения с возможностью обработки исключительной ситуации, как и в предыдущем задании.

Добавить комментарий