Программирование на Borland Delphi

Размещено на http://www.allbest.ru/

Содержание

Введение

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

2. Блок-схема программы

3. Кодирование программы

Заключение

Библиографический список

Введение

Borland Delphi - это система быстрой разработки приложений для Windows, так называемая система RAD (Rapid Application Development).

Основой Delphi является графическая среда разработки приложений, называемая интегрированной средой разработки (Integrated Development Environment, IDE).

Delphi, как и всякая современная среда разработки приложений основана на объектно-ориентированном программировании.

После загрузки Delphi на экране открываются четыре окна IDE: главное окно, окно проектировщика форм, окно редактора кода, окно инспектора объектов. borland delphi программирование алгоритм

Главное окно состоит из трёх частей: меню, панели инструментов и палитры компонентов. IDE содержит четыре стандартных панелей инструментов: View, Standard, Debug, Custom. Среда позволяет добавлять или удалять кнопки в панели инструментов с помощью команды Customize из локального меню или панелей инструментов.

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

В окне проектировщика (Form Designer) форм отображается форма как визуальный объект. Здесь программист определяет, как будет выглядеть приложение с точки зрения пользователя, и создаёт графический интерфейс пользователя (GUI). Он выбирает компоненты из палитры компонентов и перетаскивает их в форму, используя мышь для точного расположения и определения размеров компонента. Он может управлять внешним видом и поведением компонента с помощью Object Inspector и Code Editor. Это, собственно, и есть визуальное программирование.

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

Название приложения: "Квадратные уравнения"

Поставленная задача относится к часто встречаемому в математике типу задач, называемых "Решение квадратных уравнений".

Квадратным уравнением называется уравнение вида

ax² + bx + c = 0

где, a, b, c - действительные числа. Числа a, b, c носят следующие названия a - первый коэффициент, b - второй коэффициент, c - свободный член.

Решаются уравнения такого вида следующим образом:

- Находится дискриминант. Дискриминантом квадратного уравнения называют выражение . Если D<0, то уравнение не имеет действительных корней; если D=0, то уравнение имеет один действительный корень (два одинаковых корня); если D>0, то уравнение имеет два действительных корня.

- Корни уравнения находятся по следующей формуле:

2. Блок-схема программы

3. Кодирование программы

В процессе создания данной программы я использовала такие компоненты, как: Button, Edit, Panel, Label.

Для создания нового проекта открываем File>New> Application.

Чтобы придать ясности назначения программы, в инспекторе объектов, в свойстве Captionменяем название "Расчет корней квадратного уравнения", а также, в свойстве Fontменяем параметры шрифта TimesNewRomanи размер-14.

Для того чтобы форма меняла размер в соответствии с наносимыми на нее компонентами, в свойстве формы AutoSize нужно установитьTrue.

Начинаем наносить компоненты на форму для дальнейшей реализации проекта.

Я использовала компонент Panel типа TPanel, для того чтобы было три варианта решения программы: решение стандартного квадратного уравнения, решение квадратного уравнения при условии, что а=0, решение квадратного уравнения при условии, что а=0 и b=0 и панель для выбора типа уравнения. Компоненты наносятся на форму путем нажатия закладки Standart, выбора соответствующего компонента и щелчком мыши в нужную позицию на форме. Наносим четыре компонента Panel. Программа автоматически присваивает этим компонентам стандартные имена Panel1, Panel2, Panel3, Panel4.Эти имена необходимо стереть в свойстве Caption.

На одной из панелей реализуем главное окно программы (рис.1), на котором будет производиться выбор типа квадратного уравнения. Для этого на данную панель нанесем 4 компонента Button, со страницы Standard палитры компонентов. А так же метку - Label.

Рис. 1. Главное окно программы

Для кнопки Button2 изменим значение Caption в Инспекторе объектов на ax^2 + bx + с = 0. Для того что бы при нажатии на эту кнопку выводилась панель расчета полного квадратного уравнения, необходимо прописать код инструкции для этой кнопки:

- будет показана панель расчета полного квадратного уравнения, а все остальные скрыты:

procedure TForm1.Button2Click(Sender: TObject);

begin

panel3.visible:= true;

panel2.visible:= false;

panel1.visible:= false;

panel4.visible:= false;

end;

Для кнопки Button3 изменим значение Caption в Инспекторе объектов на ax^2 + bx + с = 0, при a = 0. Для того что бы при нажатии на эту кнопку выводилась панель расчета полного квадратного уравнения, при условии a = 0, необходимо прописать код инструкции для этой кнопки:

- будет показана панель расчета полного квадратного уравнения, при условии a = 0, а все остальные скрыты:

procedure TForm1.Button3Click(Sender: TObject);

begin

panel1.visible:=true;

panel2.visible:=false;

panel3.visible:=false;

panel4.visible:=false;

end;

Для кнопки Button4 изменим значение Caption в Инспекторе объектов на ax^2 + bx + с = 0, при a = 0, b = 0. Для того что бы при нажатии на эту кнопкувыводилась панель расчета полного квадратного уравнения, при условии a = 0, b = 0 необходимо прописать код инструкции для этой кнопки:

- будет показана панель расчета полного квадратного уравнения, при условии a = 0,b = 0,а все остальные скрыты:

procedure TForm1.Button4Click(Sender: TObject);

begin

panel4.visible:= true;

panel2.visible:= false;

panel3.visible:= false;

panel1.visible:= false;

end;

Также, для выхода из программы, реализована кнопка "Выход". Код инструкции для осуществления выхода имеет вид:

procedure TForm1.Button12Click(Sender: TObject);

begin

Form1.Close;

end;

Далее, на панель, на которой будет производиться расчет полного квадратного уравнения (Рис 2.), наносим три кнопки - Button, три Edit -строка ввода, семь меток - Label.



Рис 2. Панель для расчета полного квадратного уравнения

Для всех нанесенных компонентов необходимо изменить свойство Caption в Инспекторе объектов:

- Label1- "Введите значения коэффициентов:"

- Label2 - "Уравнение:"

- Label3 - " x^2+"

- Label4 - "x+"

- Label5-" =0"

- Label6 -" Результат:"

- Button1 - "Рассчитать"

- Button6- "На главную"

-Button7 - " Выход"

Для того чтобы производился расчет корней квадратного уравнения на данной панели, необходимо ввести код инструкции для кнопки "Рассчитать". Двойным щелчком вызывается окно редактирования кода программы, где Delphi автоматически создаст код процедуры обработки события:

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

Вводим код инструкции для данной кнопки:

- преобразование числовой строки в значение с плавающей точкой, и присваивание ее значения переменной а, b, c,d:

a := StrToFloat(Form1.Edit4.Text);

b := StrToFloat(Form1.Edit5.Text);

c := StrToFloat(Form1.Edit6.Text);

d:= b*b-4*a*c;

Также вводим условие для расчета дискриминанта:

if d >=0 then

begin

x1:= ((-1)*b+ sqrt(d))/2*a;

x2:= ((-1)*b- sqrt(d))/2*a;

Form1.Label15.Caption:= 'x1 = ' + FloatToStr(x1) + ' x2 = ' + FloatToStr(x2);

end;

if d <0 then

begin

Form1.Label15.Caption:= ' Корнейнет ';

end;

Для перехода к главному окну программы на панель нанесена кнопка "На главную". Код инструкции для осуществления перехода имеет вид:

- будет показана панель главного окна программы, а все остальные скрыты:

procedure TForm1.Button8Click(Sender: TObject);

begin

panel2.visible:=true;

panel1.visible:=false;

panel3.visible:=false;

panel4.visible:=false;

end;

Также, для выхода из программы по окончании расчетов, реализована кнопка "Выход". Код инструкции для осуществления выхода имеет вид:

procedureTForm1.Button10Click(Sender: TObject);

begin

Form1.Close;

end;

Далее, на панель, на которой будет производиться расчет уравнения с условием, что, а=0 (рис.3)наносим три кнопки - Button,три Edit-строка ввода, семь меток-Label.

Рис.3. Панель для расчета уравнения при а=0

В сроке ввода Edit, для значения переменной "а" изменим в инспекторе объектов свойство Textна 0, а так же свойствоReadOnlyнаTrue (рис. 3), чтобы запретить ввод с клавиатуры значения "а".



Рис. 4. Инспектор объектов

Для всех нанесенных компонентов необходимо изменить свойство Caption в Инспекторе объектов, аналогично компонентам, нанесенным на панель, рассмотренную выше.

Для того чтобы производился расчет корней квадратного уравнения на данной панели, необходимо ввести код инструкции для кнопки "Рассчитать". Двойным щелчком вызывается окно редактирования кода программы, где Delphi автоматически создаст код процедуры обработки события:

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

Вводим код инструкции для данной кнопки:

- преобразование числовой строки в значение с плавающей точкой, и присваивание ее значения переменной а, b, c:

a := StrToFloat(Form1.Edit1.Text);

b := StrToFloat(Form1.Edit2.Text);

c := StrToFloat(Form1.Edit3.Text);

- если переменная а = 0, то расчет корней будет производится по формуле x1 := -b/c, а так же вывод результатов расчета:

if a =0 then

begin

x1 := -b/c;

Form1.Label10.Caption := 'Кореньединственный = ' + FloatToStr(x1);

end;

Для перехода к главному окну программы на панель нанесена кнопка "На главную". Код инструкции для осуществления перехода имеет вид:

- будет показана панель главного окна программы, а все остальные скрыты:

procedure TForm1.Button6Click(Sender: TObject);

begin

panel2.visible:=true;

panel1.visible:=false;

panel3.visible:=false;

panel4.visible:=false;

end;

Также, для выхода из программы по окончании расчетов, реализована кнопка "Выход". Код инструкции для осуществления выхода имеет вид:

procedureTForm1.Button7Click(Sender: TObject);

begin

Form1.Close;

end;

Далее, на панель, на которой будет производиться расчет уравнения с условием, что, а=0 и b=0(Рис.4), наносим две кнопки - Button. В инспекторе объектов для панели в свойстве Captionпрописываем: " При a=0и b=0уравнение корней не имеет".Таким же образом изменим свойсвто Captionдля нанесенных кнопок:

-Button 9-"На главную";

-Button 11-"Выход"

Рис.5. Панель для уравнения с условиями a=0 иb=0

Для перехода к главному окну программы на панель нанесена кнопка "На главную". Код инструкции для осуществления перехода имеет вид:

- будет показана панель главного окна программы, а все остальные скрыты:

procedure TForm1.Button9Click(Sender: TObject);

begin

panel2.visible:=true;

panel1.visible:=false;

panel3.visible:=false;

panel4.visible:=false;

end;

Также, для выхода из программы по окончании расчетов, реализована кнопка "Выход". Код инструкции для осуществления выхода имеет вид:

procedureTForm1.Button11Click(Sender: TObject);

begin

Form1.Close;

end;

Заключение

1. Разработанное Windows-приложение соответствует требованиям задания на курсовое проектирование.

2. Размер исполнимого файла составляет 391 Кб.

3. В результате тестирования программы выявлено, что программа способна обрабатывать ошибки, связанные с некорректным вводом исходных данных пользователем (ввод нескольких коэффициентов в одно поле, ввод буквенного значения коэффициента).

4. Есть возможность доработать дизайн интерфейса.

Библиографический список

1. Визуальное программирование задач пользователя в среде Delphi: Методические указания к практическим занятиям по курсу "Объектно-ориентированные системы" / Воронеж. гос. технол. акад.; Сост. И.О. Павлов, О.А. Гордиенко, С.В. Кулакова. Воронеж, 2001. 32 с

2. Иллюстрированный самоучитель по Delphi 7 для начинающих. Электронный учебник.

3. Иллюстрированный самоучитель по Delphi 7 для профессионалов. Электронный учебник

4. Delphi - готовые алгоритмы. Род Стивен, изд. Питер, Москва 2004г.

Размещено на Allbest.ru