19.Квадратное уравнение

Подготовка к работе

По указанной литературе изучить:

1. Cвойства компонентов Label, Button, Edit, StringGrid.

2. Cобытия onClick, onChange, onCreate.

3. Как создать код обработчика события.

Контрольные вопросы

1. События onClick, onCreate.

2. Назначение и свойства компонента кнопка.

3. Назначение и свойства компонент метка.

4. Назначение и свойства Компонента однострочный редактор.

5. Как создать обработчик события onClick.

6. Как создать обработчик события onDblClick.

7. Как создать обработчик события onChange.

8. Подпрограммы. Основные понятия.

Задание

Создать проект “Решение квадратного уравнения”.

Пример выполнения

1. Запустить Delphi.

2. Создать в ней новое приложение.

3. Присвоить свойству Caption компонента Form1 значение Решение квадратного уравнения.

4. Сохранить модуль под именем Roots, а проект под именем SQR.

5. Установить на форме компоненты: однострочные редакторы Edit1 - Edit3, метки Label1 - Label5, кнопки Button1- Button3 (все со страницы Standard). Компоненты расположить, как это показано на рис. 19 .1.

рис. 19.1. Заготовка интерфейса проекта "Решение квадратного уравнения"

6. В Инспекторе объектов задать следующие свойства компонент меток Label:

Name	Label1	Label2	Label3	Label4	Label5
Caption	*	Уравнение задается коэффициентами	Коэффициент А	Коэффициент B	Коэффициент C
AutoSize	True	True	False	False	False
Top	136	8	48	48	48
Left	24	40	24	136	248
Height	24	24	24	24	24
Width	40	270	95	95	95
Parent Fond	True	False	True	True	True
FontName		Arial
FontSize		11

* Компонент Label1 предназначен для вывода значений корней квадратного уравнения Ax²+Bx+C=0 или сообщений об ошибках.

7. В Инспекторе объектов задать следующие свойства компонент кнопок Button:

Name	Button1	Button2	Button3
Caption	Вычислить	Новое	Завершить
Top	208	208	208
Left	24	136	248
Height	25	25	25
Width	81	81	81

8. После вышеперечисленных установок интерфейс проекта примет вид рис. 19 .2.

рис. 19.2. Интерфейс проекта в режиме конструирования

9. Создать обработчик события OnCliсk для кнопки "Вычислить", в котором необходимо описать:

• все переменные, используемые при вычислении корней квадратного уравнения,

• процедуру преобразования текста в число для трех коэффициентов уравнения,

• код вычисления коэффициентов уравнения, при вводе в соответствующее текстовое поле коэффициентов и вывода полученных корней x1 и x2 в Label1,

• сообщения о некорректности задания коэффициентов уравнения при А=0,

• сообщения об отсутствия решения, если дискриминант меньше 0.

• процедуру преобразования числа в строку при выводе корней уравнения,

9. Создать обработчик событий OnClik для кнопки "Новое". Он должен очищать поля редактирования от первоначальных записей и устанавливать курсор в поле ввода коэффициента при второй степени неизвестного.

10. Создать обработчик событий OnClik для кнопки "Завершить", который завершает работу приложения.

11. Сохранить модуль проекта под именем Prg_19_1_, а проект под именем Prg_19_1.

12. Запустить программу командой Run, а затем вести такие коэффициенты квадратного уравнения, чтобы проверить все виды сообщений и вывода корней уравнения.

13. Закрыть проект SQR, а затем запустить его из среды Windows и проверить на его работоспособность.

Пример выполнения

Листинг модуля проекта:

unit Unit1;